Clauclau42 |
Le 21/01/2009 à 16:57 |
|
|
Bon, ancienne macro solutionnée ..... Je n'arrive juste pas à dire à ma macro de se terminer à la ligne 167 et de ne pas faire le reste de la feuille qui est vide en plus .... Qq'un pourrait-il m'aider ?? Merciiiiiii -- Clau |
Brako |
Le 21/01/2009 à 17:24 |
|
|
Bonjour ! Pourrais tu poster ta macros que je puisse voir ? -- Ce qui donne une éventuelle matière à suspecter une quelconque propagande ... |
Tigene |
Le 21/01/2009 à 17:38 |
|
Viconaute Modérateur |
bonjour c'est exactement, ce que je voulais demander @+ -- Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir |
Tigene |
Le 21/01/2009 à 18:36 |
|
Viconaute Modérateur |
hé bien tu peux faire comme avec le reste de la macro, tu rajoutes une autre condition. du genre désolé je connais mal le VBA mais l'algoritme serait le suivant : si "numéro de ligne" < 167 passer à la ligne suivante sinon stop ou une boucle : for ligne = 1 to 167 faire la macro L=L+1 next end
ça t'inspire ?
@+ -- Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir |
Clauclau42 |
Le 21/01/2009 à 18:41 |
|
|
Oui ça m'inspire lol Merc ... mais en fait j'ai les écritues de bases mais je n'arrive ps à les appliquer à ma macro ..... il y a qq chose que je dois mal faire !! Vous verrez ma macro demain vous pourrez donc mieux me dire ce que vos en pensez !! Merciiiii -- Clau |
Marculinos |
Le 21/01/2009 à 20:51 |
|
Viconaute Modérateur |
Hello,
La ligne 167 est toujours la dernière ligne?
Si ce numéro de ligne était variable, il faudrait alors recourir à une routine de vérification de la dernière ligne. Par exemple :
L=1
Cells(L,1).select
Do until activecell.value=""
Cells(L,1).select
L=L+1
Loop
L=L-1
Du coup, la variable L contient la valeur numéraire de la dernière ligne non vide.
@+ |
Clauclau42 |
Le 22/01/2009 à 16:01 |
|
|
Re coucou à tous !! Tout d'abord merci à vous pour vos réponses qui m'ont été utiles !!!
Ma macro finale, pour ceux qui l'ont demandé, est la suivante :
Worksheets("PLAN ENTREPOT").Select
Cells.Select
Range("G4").Activate
Selection.Interior.ColorIndex = xlNone
Range("B6").Select
Do Until ActiveCell = 20
If ActiveCell = 1 Then
Rows(ActiveCell.Row).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
ActiveCell.Offset(-1, 1).Activate
End With
Else
ActiveCell.Offset(-1, 0).Activate
End If
Loop
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Interior.ColorIndex = xlNone
Columns("A:B").Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
End Sub
Voilà j'espère que ça en aidera certains
A+++ -- Clau |