Données dans le code

Bonjour à tous,

C'est une macro dans le classeur personnel, je souhaiterai mettre les informations de ma condition dans la boucle directement dans le code. Mais comment faire pour en mettre plusieurs ? Merci de votre aide !

Dans "Titres" : j'aimerai mettre plusieurs éléments

Dim Cell As Range
Dim Titres As String
Titres = "Gum"
For Each Cell In Columns(1).Cells
If Cell.Value = (Titres) Then Cell.EntireRow.ShowDetail = True

Bonjour saaku, le forum,

Je ne connais pas l'utilisation de Showdetail, mais un truc du genre:

Dim Cell As Range, Titres, i As Integer, derlig As Integer, lig As Integer
 Titres = Array("Gum", "Gam", "Gym", "Gom") 'tes conditions
 derlig = Range("A" & Rows.Count).End(xlUp).Row
  Application.ScreenUpdating = False
   For i = 0 To UBound(Titres)
    For lig = 1 To derlig
     If Cells(lig, 1).Value = Titres(i) Then '................traitement
    Next lig
   Next i
  Erase Titres

A tester...

Cordialement,

Merci de ton aide, j'ai utilisé Array

Dim Cell As Range
Dim Titres As Variant
Dim Thing As Variant

Titres = Array("Gom", "Gum")

For Each Cell In Columns(1).Cells
For Each Thing In Titres
If Cell.Value = Thing Then Cell.EntireRow.ShowDetail = True
Next Thing
Next Cell
End Sub