Insertion Ligne Condition [VBA] [Résolu]]

[ljoue]

Bonjour à tous,

je voudrais à l'aide d'une Macro insérer un ligne blanche chaque fois que le nom de la cellule de la colonne E change

Par exemple le nom passe de 'HedgeFund' à 'Future'
----------------------- passe de 'Future' à 'Action'


J'ai retrouvé dans un Post de Hervé la Macro suivante

Sub Test()
Dim c As Range
For Each c In Range('e6:e' & Range('e65536').End(xlUp).Row)
If IsNumeric(c.Offset(-1, 0)) Then
If c.Offset(-1, 0) <> c And c.Offset(-1, 0) <> '' Then
c.EntireRow.Insert Shift:=xlDown
End If
End If
Next c
End Sub

Le problème est qu'elle ne fonctionne qu'avec des Nombres.
Comment la modifier pour qu'elle fonctionne avec du Texte ?

Merci d'avance.
Cordialement,
Laurent

Message édité par: ljoue, à: 29/08/2005 13:34

 

[PascalXLD]

Re:Insertion Ligne Condition [VBA]

Bonjour

retires la condition sur le numérique

Sub Test()
Dim c As Range
For Each c In Range('e6:e' & Range('e65536').End(xlUp).Row)

If c.Offset(-1, 0) <> c And c.Offset(-1, 0) <> '' Then
c.EntireRow.Insert Shift:=xlDown
End If

Next c
End Sub

Bon courage

 

[ljoue]

Re:Insertion Ligne Condition [VBA]

Salut Pascal,

Merci beaucoup !

Ca marche impec !!!


@+