Discussion :

[Invité]

Bonjour,
J'ai une feuille dans la colonne A on a: un mot qui est une variable,un espace, un tiret,un espace, un une variable connue. Exemple "xxx - Test1". Voir feuille jointe.
Je voudrais que lorsque pour la variable xxx Test 1 n'existe, la macro ajoute une ligne. et si elle existe ne rien faire.
Attention, il y a plusieurs mots variables (que je ne connais pas ):
aaa - Test1
aaa - Test2
aaa - Test3
aab - Test2
bab - Test1
bab - Test2

Les variables sont déjà trier par ordres alphabétiques. Je sais pas si cela change quelque chose

[Daniel.C]

Bonjour,

Est-ce que tu peux donner un exemple ? Je n'y comprends goutte. Ajouter une ligne ? où ? Puisque la variable n'existe pas...

[Invité]

Désolé de ne pas voir été assez clair. Je vais essayer de faire plus simple.
En fait ce je veux c'est si pour xxx, test1 n'existe pas je veux ajouter une ligne. Si pour xxx, test1 existe ne rien faire.
Les écritures (aaa, ect) avant le tiret c'est un autre programme qui me les donnent, donc ça peux être n'importe quoi . Je connais seulement ce qu'il y aura après le tiret (Test1, Test2, Test3)
aaa - Test1
aaa - Test2
aaa - Test3
aab - Test2
bab - Test1
bab - Test2

[Daniel.C]

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 C As Range
    With Sheets("Feuil1")
        For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
            txt = Split(.Cells(i, 1), " - ")(0) & " - " & "Test1"
            If Application.CountIf(.[A:A], txt) = 0 Then
                Rows(i).Insert
                .Cells(i, 1) = txt
            End If
        Next i
    End With
End Sub

[Invité]

Merci, c'est presque ce que je voulais. Sauf que la ligne insérée doit être vide et dois se trouver ou devrais se trouvais le test1,2,3 manquant. Par exemple si avant macro :
aab - Test2
bab - Test1
bab - Test2
yyy - Test1
yyy - Test2

Après macro:
ligne vide ajoutée, car aab - Test1 n’existe pas
aab - Test2
ligne vide ajoutée, car aab - Test3 n’existe pas
bab - Test1
bab - Test2
ligne vide ajoutée, car bab - Test3 n’existe pas
yyy - Test1
yyy - Test2
ligne vide ajoutée, car yyy- Test3 n’existe pas

[Daniel.C]

Il n'y a que test1, test2 et test3 ou il y en a un nombre indéterminé ?

[Invité]

Merci pour votre aide, j'ai réusis à résoudre le problème. Voici le code pour ceux que ça intéresse.

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
 
Option Explicit
 
Sub InsertionLigne()
Dim EnCours As String
Dim Ligne As Long
Dim I As Integer
Dim Suites
 
  Suites = Array("Test1", "Test2", "Test3", "Test4")
  Application.ScreenUpdating = False
  Ligne = 1
  Do While Range("A" & Ligne) <> ""
    EnCours = Left(Range("A" & Ligne), InStr(1, Range("A" & Ligne), " -") + 2)
    For I = 0 To UBound(Suites)
      If Range("A" & Ligne) <> EnCours & Suites(I) Then
        Rows(Ligne).Insert
      End If
      Ligne = Ligne + 1
    Next I
  Loop
  Application.ScreenUpdating = True
End Sub