Sélectionner plusieurs cellule contenant nom

Résolu/Fermé
dikold Messages postés 22 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 14 novembre 2016 - 8 juin 2015 à 17:15
dikold Messages postés 22 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 14 novembre 2016 - 9 juin 2015 à 10:06
Bonjour,

Après quelques heures de recherche et de code qui ne marche pas, j'ai besoin de votre aide.
Je voudrais sélectionner toutes les cellules qui contiennent le nom "NEVER" par exemple.

Merci

1 réponse

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
8 juin 2015 à 17:24
Bonjour Dikold, bonjour le forum,

Sans plus de précision, essaie comme ça :
Sub Macro1()
Dim CEL As Range
Dim PL As Range

For Each CEL In Cells.SpecialCells(xlCellTypeConstants)
    If CEL.Value = "NEVER" Then
        If PL Is Nothing Then Set PL = CEL Else Set PL = Application.Union(PL, CEL)
    End If
Next CEL
PL.Select
End Sub

1
dikold Messages postés 22 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 14 novembre 2016 1
9 juin 2015 à 10:06
Merci ça marche nickel :)
0