Discussion :

[duboisgs]

Bonjour à tous,
je cherche à employer une variable dans la fonction "Application.Goto Reference"

Mais je bloque actuellement.
Excel me renvoir une message d'erreur:
"Run-time error 1004:
Reference is not valid"

En réalité mon projet est plus large,
je cherche à récupérer les couleurs de fond d'une zone de champ, elle-même utilisé dans une liste déroulante via validation de données (ex en C10).

Dans certain cas, j'utilise des cascades de validation de données avec la fonction "INDIRECT" (ex en C11).

C'est pourquoi j'ai besoin d'une variable reprennant le résultat de la fonction Indirect.

Ci-joint le début de macro que j'ai réalisé et ainsi que le fichier Excel.
Je ne suis qu'un débutant dans la création de macro mais un grand fervant et professionnel d'Excel, c'est pourquoi je vous demanderai un peu d'indulgence dans ce domaine.

Merci d'avance à tous les mordus d'Excel.

[galopin01]

Bonjour,
Moi j'en suis là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub synoptic1()
Dim Nom_Z_C As String, o As Range
'sélectionner le contenu choisi dans la liste déroulante
Choix = ActiveCell.Value
'définition de la zone de champ correpondante à la datavalidation
Nom_Z_C = [C5] & "_reflectors"
' find du choix dans la zone de champ correspondant
With Worksheets("Global Synoptic").Range(Nom_Z_C)
Set o = .Find(Choix, LookIn:=xlValues)
End With
'sélectionner le code couleur de la cellule recherchée et l'appliquer au choix de la liste déroulente
ActiveCell.Interior.ColorIndex = o.Interior.ColorIndex
End Sub

... mais je ne manipule pas la validation de donnée. Dans ton exemple il ne semble pas que cela soit indispensable ?
A+

[duboisgs]

Merci pour ton aide.

après remaniement, voici la version que je vais utiliser.
Elle me parait plus simple/allégé.

Merci encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub synoptic()
'sélectionner le contenu choisi dans la liste déroulante
Choix = ActiveCell.Value
'définition de la zone de champ correpondante à la datavalidation
Nom_Z_C = ActiveCell.Validation.Formula1
 
' find du choix dans la zone de champ correspondant
 
With Range(Nom_Z_C) 'il n'est pas nécessaire de spécifier la feuille puisque une des force d'Excel est d'atteindre une zone de champ directement
Set o = .Find(Choix, LookIn:=xlValues)
End With
'sélectionner le code couleur de la cellule recherchée et l'appliquer au choix de la liste déroulente
ActiveCell.Interior.ColorIndex = o.Interior.ColorIndex
End Sub