Code VBA:référence à cellule contenant un mot

Bonjour,

dans le code joint, j'insère une ligne après celle qui contient Total en colonne G.

Sub insererligne()

'Créée par Elfi avec l'aide précieuse de Galopin du Forum

'Supprimer la ligne si la cellule H est vide

For i = [H65000].End(xlUp).Row To 1 Step -1

If Cells(i, 7) = "" Then Cells(i, 7).EntireRow.Delete

Next i

'puis insérer une ligne après celle où "Total" est saisie dans la cellule G

For i = [G65000].End(xlUp).Row To 1 Step -1

If Cells(i, '8) = "Total" Then Cells(i + 1, '8).EntireRow.Insert

Next i

End Sub

Le problème est que les cellules recherchées contiennent le mot Total mais pas uniquement. Exemple: Total 01 de petits poix - Total 02 de framboises, ETC

Comment modifier le code ?

d'avance merci,

Elfi

Bonjour,

J'ai utilisé la fonction Left pour vérifier que les 5 premiers caractères sont égaux à Total.

J'ai modifié ton code car tu parles de la colonne H, c'est la colonne 8 et non pas 7, idem pour la colonne G c'est la colonne 7 et non pas 8.

Sub insererligne()
    'Créée par Elfi avec l'aide précieuse de Galopin du Forum

    'Supprimer la ligne si la cellule H est vide
    For i = [H65000].End(xlUp).Row To 1 Step -1
        If Cells(i, 8) = "" Then Cells(i, 8).EntireRow.Delete
    Next i

    'puis insérer une ligne après celle où "Total" est saisie dans la cellule G
    For i = [G65000].End(xlUp).Row To 1 Step -1
        If Left(Cells(i, 7), 5) = "Total" Then Cells(i + 1, 7).EntireRow.Insert
    Next i
End Sub

A+

Bonsoir,

merci beaucoup pour ta réponse. J'avais complètement oublié la solution "left". Il faut dire que je ne suis pas un pro du VBA.

Pour le reste effectivement, dans l'exemple c'était erroné. Je m'en était rendu compte sur mon fichier.

Merci encore,

bonne soirée,

Amicalement,

Elfi