Sectionner un ligne contenant un mot

Bonjour a tous,

Je suis débutant avec VBA et je cherche à sélectionner tout les lignes contenant un mot ("Total") dans la colonne A d'une feuille excel.

Pouvez-vous m'aider à ce sujet!

Merci pour tout!

Fred

Bonjour,

essaie ce code

Sub selection()

Dim L As Integer

For L = 1 To 30 Step 1 ' traite 30 lignes à modifier si plus de ligne

If Cells(L, 1) <> "Total" Then

Rows(L).Delete

End If

Next L

End Sub

Cordialement

Merci Patrick33,

Cependant dans cet programmation, où j'insert le mot à rechercher ("total" dans mon cas), et comment je fait pour qu'il ne ce base que sur la colonne A pour rechercher le mot en question? Si le mot apparaît dans une autre colonne je ne veux pas que la ligne ne soit sélectionner. En fait, je cherche a sélectionner ces ligne pour ensuite leur mettre une couleur de texte différente .Je joins le tableau en question. Dans ce cas j'aimerais sélectionner les ligne (11-19-24-28........ et suivante) pour les mettre en caractère différent.

Merci encore pour ton aide.

Salutation!

Bonsoir

Un essai

Merci Banzai64,

Ça y est presque. Au fait, j'aimerais que la ligne au complet adopte ce caractère, non pas seulement la cellule ou le mot.

Merci pour tout!

Bonne journée!

Bonjour

Modifies ta macro

Option Explicit

Sub ModifTexte()
Dim Cel As Range
Dim Depart As String

  Set Cel = Columns(1).Find(what:="Total", LookIn:=xlValues, lookat:=xlPart)
  If Not Cel Is Nothing Then
    Depart = Cel.Address
    Do
     Rows(Cel.Row).Font.ColorIndex = 3
      [barrer]'Cel.Characters(InStr(1, Cel, "Total"), 5).Font.ColorIndex = 3[/barrer]
      Set Cel = Columns(1).FindNext(Cel)
    Loop While Not Cel Is Nothing And Cel.Address <> Depart
  End If
End Sub

Merci à vous deux d'avoir pris le temps de m'aider!

Ça marche numéro 1 !!!

Super!!!

Bonne soirée!!!!