Discussion :

[mouncefdi]

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

[melouille56]

essaye

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
24
25
26
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(i+1).Insert Shift:=xlDown
        Cells(i+1, j) = strrr2
 
        'Rows.Select
        'Selection.Insert Shift:=xlDown
 
    End If
 
    Next i
 
End Sub

[mouncefdi]

Bonsoir,

Merci pour ton intervention melouille56.

Malheureusement, ça ne marche pas

Je vous remercie d'avance pour votre aide.

N'hésitez surtout pas à proposer des alternatives.

[jfontaine]

Ci dessous un code qui fonctionne.
J'ai revu ton code afin d'éviter de lire la feuille jusqu'a la derniere ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim i As Long
 
i = 1
 
'recherche la ligne avec le nom recherché
Do While Range("D" & i).Value <> "strrr"
    i = i + 1
Loop
 
If Range("D" & i).Value = "strrr" Then
    Rows(i + 1).Insert Shift:=xlDown
End If

[mouncefdi]

Merci jfontaine pour ta réponse.

mais le code ne fait rien du tout meme si j'ai le nom que je cherche dans la colonne D de mon tableau.

en plus le code n'aborde à aucun moment l'insertion de "strrr2" dans la cellule en dessous de celle de strrr??

Merci encore pour l'aide

[jfontaine]

Ce code est fait pour etre au niveau de la feuille qui contient les données.
Si tu utilises un module, il faut ajouter le nom de la feuille avant les range


J'ai modifier le code pour qu'il ajoute strrr2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i As Long
 
i = 1
 
'recherche la ligne avec le nom recherché
Do While Range("D" & i).Value <> "strrr"
    i = i + 1
Loop
 
If Range("D" & i).Value = "strrr" Then
    Rows(i + 1).Insert Shift:=xlDown
    Range("D" & i+1).value="strrr2"
End If