S
stratos
Guest
Bonjour à tous,
J'essaye de débuter en vba et depuis quelques jours je commence à désespérer.J'ai déja regardé pas mal de Forums sur vba mais je ne trouve pas réponse à ma question.
Voici mon problème : Dans une colonne donné par exemple la colonne B,
je voudrais insérer une ligne chaque fois qu'une cellule
contient le mot "Somme".
En moyenne sur mon tableau ce mot apparaît une quinzaine de fois et je voudrais automatiser le processus afin de préserver mes yeux du strabisme.
J'ai trouvé et un peu modifié le code suivant qui me permet d'ajouter une ligne en bas du mot "Somme".
Cependant ceci fonctionne que pour la première cellule contenant le mot"Somme".
Comment peut on obtenir un résultat identique pour les autres cellules de ma colonne contenant le mot "Somme"?
Merci d'avance pour votre aide ou conseil
Dim FoundCell As Range
Set FoundCell = Range("B:B").Find(what:="Somme")
If Not FoundCell Is Nothing Then
FoundCell.Activate
ActiveCell.Offset(1, 0).EntireRow.Insert shift:=xlDown
End If
J'essaye de débuter en vba et depuis quelques jours je commence à désespérer.J'ai déja regardé pas mal de Forums sur vba mais je ne trouve pas réponse à ma question.
Voici mon problème : Dans une colonne donné par exemple la colonne B,
je voudrais insérer une ligne chaque fois qu'une cellule
contient le mot "Somme".
En moyenne sur mon tableau ce mot apparaît une quinzaine de fois et je voudrais automatiser le processus afin de préserver mes yeux du strabisme.
J'ai trouvé et un peu modifié le code suivant qui me permet d'ajouter une ligne en bas du mot "Somme".
Cependant ceci fonctionne que pour la première cellule contenant le mot"Somme".
Comment peut on obtenir un résultat identique pour les autres cellules de ma colonne contenant le mot "Somme"?
Merci d'avance pour votre aide ou conseil
Dim FoundCell As Range
Set FoundCell = Range("B:B").Find(what:="Somme")
If Not FoundCell Is Nothing Then
FoundCell.Activate
ActiveCell.Offset(1, 0).EntireRow.Insert shift:=xlDown
End If