Ajout de lignes vides avec conditions

[wywy22]

Bonjour,
Ce que je veux faire tous simplement. Ajouter des lignes vides
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

 

[tbft]

Re : Ajout de lignes vides avec conditions

Bonjour

plus je regarde le probleme moins, je le comprend.
qu'elles sont les régles pour savoir quoi inserer avant quoi?
existe il une liste (double?) des trucs à inserer?

 

[wywy22]

Re : Ajout de lignes vides avec conditions

Le problème a été résolu. Voici le code

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

 

[tbft]

Re : Ajout de lignes vides avec conditions

D'accord

il me manquait une bonne partie du probleme.
le plus important est que cela fonctionne....
la macro insert une ligne mais remplit elle la nouvelle ligne???