Sélectionner plusieurs cellule contenant nom [Résolu/Fermé]

Signaler
Messages postés
22
Date d'inscription
mardi 19 mai 2015
Statut
Membre
Dernière intervention
14 novembre 2016
-
Messages postés
22
Date d'inscription
mardi 19 mai 2015
Statut
Membre
Dernière intervention
14 novembre 2016
-
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

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
152
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

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