Stéphanie82
XLDnaute Nouveau
Bonjour
j'ai besoin de votre aide pour faire un boucle, j'ai essayé de le faire mais en vain
J'aimerai qu'il regarde si la celulle est vide
si cellule vide il met un TEXTE + rajoute une ligne en dessous
Sinon si il n'est pas vide, il regarde si la cellule du dessous est vide.
Si oui il met un TEXTE + rajoute une ligne en dessous
etc.
j'ai réussi a faire le code sans le boucle (fier de moi) :
J'ai ensuite essayé de faire le boucle avec Do While ==> Loop.
mais ça ne marche pas je ne sais pas pourquoi.
voila mon code avec le boucle (un peu moins fier)
Merci d'avance.
j'ai besoin de votre aide pour faire un boucle, j'ai essayé de le faire mais en vain
J'aimerai qu'il regarde si la celulle est vide
si cellule vide il met un TEXTE + rajoute une ligne en dessous
Sinon si il n'est pas vide, il regarde si la cellule du dessous est vide.
Si oui il met un TEXTE + rajoute une ligne en dessous
etc.
j'ai réussi a faire le code sans le boucle (fier de moi) :
Code:
Sub TEST()
Range("B4").Select
If Range("B4") = "" Then [COLOR="SeaGreen"]'Si la valeur est vide[/COLOR]
Range("B4").Value = "TEXTE" [COLOR="seagreen"]'On insère le TEXTE[/COLOR]
ActiveCell.Offset(1, 0).EntireRow.Insert [COLOR="seagreen"]'et on insérer une ligne en dessous après avoir mis le TEXTE[/COLOR]
Else: ActiveCell.Offset(1, 0).Select [COLOR="seagreen"]'Sinon on descend d'une case et on la selectionn[/COLOR]
If ActiveCell = "" Then [COLOR="seagreen"]'Si la valeur est vide[/COLOR]
ActiveCell.Value = "TEXTE" [COLOR="seagreen"]'On insère le TEXTE[/COLOR]
ActiveCell.Offset(1, 0).EntireRow.Insert [COLOR="seagreen"]'et on insérer une ligne en dessous après avoir mis la TEXTE[/COLOR]
End If
End If
End Sub
J'ai ensuite essayé de faire le boucle avec Do While ==> Loop.
mais ça ne marche pas je ne sais pas pourquoi.
voila mon code avec le boucle (un peu moins fier)
Code:
Sub TEST2()
Range("B4").Select
If Range("B4") = "" Then [COLOR="seagreen"]'Si la valeur est vide[/COLOR]
Range("B4").Value = "TEXT" [COLOR="seagreen"]'On insère le TEXTE[/COLOR]
ActiveCell.Offset(1, 0).EntireRow.Insert [COLOR="seagreen"]'et on insérer une ligne en dessous après avoir mis le TEXTE[/COLOR]
Else:
[COLOR="blue"]Do While [/COLOR]ActiveCell.Offset(1, 0) <> ""
ActiveCell.Value = "TEXTE" [COLOR="seagreen"]'On insère le texte[/COLOR]
ActiveCell.Offset(1, 0).EntireRow.Insert [COLOR="seagreen"]'et on insérer une ligne en dessous après avoir mis le TEXTE[/COLOR]
[COLOR="Blue"]Loop[/COLOR]
End If
End Sub
Merci d'avance.
Dernière édition: