for each tout simple : pouvez vous m'aider a le corriger ?

[antoine]

Re-bonsoir

Je ne comprend pas pourquoi ce code ne marche pas. Si quelqu'un pouvait m'aider a le corriger

Dim CELLULE as range

For each CELLULE in feuil10.columns("a:a")
if CELLULE.value <> "" then
CELLULE.entirerow.insert
end if
next cellule

Voila, c'est tout bete... mais ça marche pas.

Je remercie la bonne ame qui voudra bien me désigner l'erreur qui se cache dans ces 6 malheure lignes !

antoine

 

[@+Thierry]

Bonsoir Antoine, le Forum

Je ne suis pas sûr d'avoir bien interprété ta demande... Pour moi, je comprends que tu souhaites inserrer une ligne en dessous de chaque cellule contenant une valeur dans ta colonne "A"...

Alors si c'est ceci, je propose celà, (attention ce n'est vraiment pas propre du tout, car l'insertion décale la boucle... Il faudrait récupérer d'abord les adresse des lignes, puis faire un insertion, mais je n'ai pas le temps sinon je suis enfermé au bureau tout le wekk end !! lol) :

Sub MaDerniereMacroAvantLeWeekEnd()
Dim Cell As Range
Dim Ligne As Long

With Feuil10
For Each Cell In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
If Cell.Value <> "" Then
Ligne = Cell.Row
Rows(Ligne + 1).Insert
End If
Next Cell
End With
End Sub

Si çà peut déjà dépanner...

Bon Week End
@+Thierry

 

[antoine]

nickel ! , en fait je me trompais car je me rendais pas que "l'insertion décale la boucle" et du coups ma boucle n'avait pas de fin....
En fait je voulais faire une insertion a la ligne meme si cell.value <> ""
j'ai reussi en grande partie ( exclusivement ?? ) grace a ton aide. Encore une fois merci ;-) )


antoine