Condition concernant plusieurs cellules nommées ayant le même préfixe

[Magic_Doctor]

Bonsoir,

J'ai plusieurs cellules nommées dans une feuille et toutes possèdent le même préfixe "Dil".

Plutôt que d'écrire :

If [DilX1].value = "zaza" Or [DilX2].value = "zaza" Or [DilX3].value = "zaza" Or ... Then

N'y aurait-il pas une possibilité d'abréger tout ça avec un "*" ou quelque chose dans le genre, en écrivant :

If Range("Dil" & "*").value = "zaza" Then

 

[Hervé]

Re : Condition concernant plusieurs cellules nommées ayant le même préfixe

Bonjour

peut etre a travers une boucle :

Dim i As Integer
 
With ActiveWorkbook
For i = 1 To .Names.Count
    If Left(.Names(i).Name, 3) = "Dil" And Range(.Names(i).Value) = "zaza" Then
        'ton code
    End If
Next i
End With

salut

edit : salut robert, eh oui, de moins en moins de temps (

 

[Robert]

Re : Condition concernant plusieurs cellules nommées ayant le même préfixe

Bonjour Magic_Doctor, bonjour le forum,

Peut-être comme ça :

Sub Macro2()
Dim n As Name
For Each n In Names
    If Left(n.NameLocal, 3) = "Dil" And Range(n).Value = "zaza" Then
        'ton code...
    End If
Next n
End Sub

Édition :

Salut Hervé ! C'est un plaisir de te voir. Tu te fais rare me semble-t-il...

 

[Magic_Doctor]

Re : Condition concernant plusieurs cellules nommées ayant le même préfixe

Bonsoir Hervé,

Merci, ça marche très bien.

Ci-joint, pour les curieux, le résultat.