Pb de boucle

[Ilan]

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@]

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]

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@]

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@