=E0 chaque fois que la proc=E9dure rencontre le mot "somme" en=20
colonne " A "
PS : Je pr=E9cise que le mot somme est suivis de chiffre=20
exemple : somme454545445544 somme est toujours en d=E9but de=20
ligne mais les chiffres changent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
qui me permette d'ajouter une ligne en dessous à chaque fois que la procédure rencontre le mot "somme" en colonne " A "
Sub zzzz() For i = [A65536].End(3).Row To 1 Step -1 On Error Resume Next If Left(Cells(i - 1, "A").Value, 5) = "somme" Then Rows(i & ":" & i).Insert Shift:=xlDown Next End Sub
AV
qui me permette d'ajouter une ligne en dessous
à chaque fois que la procédure rencontre le mot "somme" en
colonne " A "
Sub zzzz()
For i = [A65536].End(3).Row To 1 Step -1
On Error Resume Next
If Left(Cells(i - 1, "A").Value, 5) = "somme" Then Rows(i & ":" & i).Insert
Shift:=xlDown
Next
End Sub
qui me permette d'ajouter une ligne en dessous à chaque fois que la procédure rencontre le mot "somme" en colonne " A "
Sub zzzz() For i = [A65536].End(3).Row To 1 Step -1 On Error Resume Next If Left(Cells(i - 1, "A").Value, 5) = "somme" Then Rows(i & ":" & i).Insert Shift:=xlDown Next End Sub
AV
Merci pour ta réponse J'ai fais un copier coller de ta formule mais j'ai une erreur à "Shift:=xlDown" Merci
-----Message d'origine-----
qui me permette d'ajouter une ligne en dessous à chaque fois que la procédure rencontre le mot "somme" en
colonne " A "
Sub zzzz() For i = [A65536].End(3).Row To 1 Step -1 On Error Resume Next If Left(Cells(i - 1, "A").Value, 5) = "somme" Then Rows(i & ":" & i).Insert
Shift:=xlDown Next End Sub
AV
.
Merci pour ta réponse
J'ai fais un copier coller de ta formule mais j'ai une
erreur à "Shift:=xlDown"
Merci
-----Message d'origine-----
qui me permette d'ajouter une ligne en dessous
à chaque fois que la procédure rencontre le mot "somme"
en
colonne " A "
Sub zzzz()
For i = [A65536].End(3).Row To 1 Step -1
On Error Resume Next
If Left(Cells(i - 1, "A").Value, 5) = "somme" Then
Rows(i & ":" & i).Insert
