Pb de boucle

Ilan · 12 Mai 2003

Bonjour,

Je souhaiterais savoir quelle est le code VBA qui permet d' etirer les formules d'une colonne vers le bas , si pour la cellule de la colonne précédente une valeur existe!!!

Dans mon fichier je souhaite etirer toutes les formules a partir de la colonne B si a chake fois il existe une valeur (quelconque) dans la cellule de la colonne "plage"

Merci d'avance,

ilan

@Christophe@ · 12 Mai 2003

Bonjour,

Voila le genre de boucle qui devrait t'aider:

Sub Remplir()
Dim L As Byte

L = 2

Do While Range("A" & L).Value <> ""
Range("B" & L & "" & L).AutoFill Destination:=Range("C" & L & "" & L + 1), Type:=xlFillDefault
L = L + 1
Loop
End Sub

Dis moi quoi

Bonne journée

@Christophe@

Ilan · 12 Mai 2003

Merci @Christophe@ mais ...

...Je dois etre trés mauvais mais je n'arrive pas à la faire fonctionner!!!
A quoi correspond le "& L &"???

Aidez moi!!!!

Ilan

@Christophe@ · 12 Mai 2003

Re

Excuse, modifie par cela, j'ai fait une petite faute de frappe

Sub Remplir()
Dim L As Byte

L = 2

Do While Range("A" & L).Value <> ""
Range("B" & L & "" & L).AutoFill Destination:=Range("B" & L & "" & L + 1), Type:=xlFillDefault
L = L + 1
Loop
End Sub

Si tu as plus de 255 ligne, modifie Byte par integer dans la deuxieme ligne

@Christophe@

Pb de boucle

Ilan

Guest

@Christophe@

Guest

Ilan

Guest

@Christophe@

Guest

Discussions similaires