Discussion :

[John81]

Bonjour,

Je cherche à définir la plage constituée par les cellules de la colonne A qui contiennent les valeurs "3", "4" et "5". J'y parviens mais en définissant 4 variables de la manière suivante:

Code :

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

1
2
3
4
5
6
Set l = Range("A:A").Find("3")
Set m = Range("A:A").Find("4")
Set n = Range("A:A").Find("5")
Set o = Union(l, m, n).Offset (0,1)
 
Range("B" & q).Formula = "=SUM(" & o.Address & " )"

Je cherche à arriver au même résultat en utilisant qu'une variable. Le code ci-dessous ne fonctionne pas.

Code :

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

Set o = Union (Range("A:A").Find("3") , Range("A:A").Find("4"), Range("A:A").Find("5"))

Qqn pourrait-il m'aider? Merci John81

[Pierre Fauconnier]

Bonsoir

Ton deuxième code ne peut fonctionner que si tous les FIND trouvent une cellule. Le FIND qui ne trouve pas de cellule renvoie un objet NOTHING qui ne peut pas servir à la création d'une plage avec UNION.

Si 3, 4 et 5 sont présents dans des cellules, ton deuxième code fonctionne.

il faut noter que FIND, sans plus de précisions, utilise les paramètres de la fenêtre Edition/Rechercher.... Il est souvent (toujours?) prudent de mentionner les paramètres pour éviter les surprises

Code :

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

Range("A:A").Find(what:="3", LookIn:=xlValues, lookat:=xlPart)

pour rechercher dans une partie des valeurs des cellules

Code :

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

...Lookat:=XlWhole

pour rechercher dans la totalité de la cellule

[John81]

Merci Pierre Fauconnier pour ta réponse. Bonne soirée. John81