Bonjour,

J’ai une question assez simple à vous poser.

Je souhaite insérer un nom dans un tableau qui contient une liste de noms, précisemment juste après le nom "strrr".

Je ne sais pas comment je peux dans un premier temps insérer après ce nom une ligne vide pour éviter que l’insertion de mon nom "strrr2" ne remplace le nom qui suit "strrr" dans la liste.

J’ai essayé d’insérer une ligne vide après strrr mais j’y arrive pas.

Voila mon code.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
 
Dim i, j As Long
 
    Sheets("feuille1").Select
 
    j = 4
 
    For i = 3 To 65536
 
        If Cells(i, j).Value = strrr Then
 
       'insérer une nouvelle ligne ???
       'puis insérer le nom strrr2, cells (i+1,j).value = strrr2
 
        Rows.Select
        Selection.Insert Shift:=xlDown
 
    End If
 
    Next i
 
End Sub
Je vous remercie d'avance pour votre aide