Sélectionner plusieurs cellule contenant nom

Résolu
dikold Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
dikold Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -
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

  1. ThauTheme Messages postés 1564 Statut Membre 160
     
    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
    1. dikold Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   1
       
      Merci ça marche nickel :)
      0