Discussion :

[BtjpsspgrW]

Bonjour,

Je souhaiterais sélectionner dans une même colonne, toutes les cellules dont le mot clé est "TRES"

Si je fais un tri sur cette colonne, la syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(selection, selection.End(xlDown)).Select

sélectionne toutes les cellules remplies et ne fait pas de différence avec le contenu des cellules.

A vrai dire, je préfèrerais un contrôle du mot sur chaque cellule, et sélectionner la cellule ou pas (Union), si le mot clé est différent.

Pourriez-vous m'aider à rédiger cette macro ?

Vous en remerciant par avance.

Cordialement

[boisgontierjacques]

Bonoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
  Set champ = Nothing
  For Each c In [B1:B20]
    If c = "Très" Then
      If champ Is Nothing Then
        Set champ = c
      Else
        Set champ = Union(champ, c)
      End If
    End If
  Next c
  champ.Select

Jacques Boisgontier