Discussion :

[Cedric_225]

Bonjour a tous,

J'ai besoin d'aide par rapport à un problème. Ca peut être trivial pour certains mais je tâtonne depuis un moment.


J'aimerai parcourir le tableau, notamment la colonne D à l'aide d'une boucle, et à chaque fois que celle-ci rencontre un nom, je veux qu'une ligne où il y'a écrit
"Souscrit par M : le nom rencontrer " sois insérée en dessous et à la colonne B.

J'espère être assez clair.

Je vous joint au cas où le fichier.

Merci d'avance,
Cordialement

[Pierre Fauconnier]

Salut.

Lorsque l'on insère ou supprime des lignes, on a intérêt à commencer par le bas et remonter pour éviter des calculs de décalage. Voici une procédure qui réalise ton souhait le plus cher...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub TEst()
  Dim r As Range
 
  Set r = Range("b1048576").End(xlUp)
  Do While r.Row > 2
    If r.Value Like "Contrat*" Then
      r(2).EntireRow.Insert xlDown
      r(2).Value = "Souscrit par: " & r(1, 4).Value
    End If
    Set r = r(0)
  Loop
End Sub

[Cedric_225]

Bonjour M Pierre Fauconnier,

Merci beaucoup pour votre aide, c'est exactement ce que je cherche.

Merci!