Discussion :

[ridokou]

Bonjour,

Je rencontre un petit problème dans la sélection d'un plage nommée.
j'ai dans un onglet plusieurs plages nommées qui sont construit de la manière suivante : CommRPF1, CommRPF2, CommRPF3 ...

j'ai sur un autre onglet une cellule nommée (NOM_RPF) qui reprend la partie variable à savoir : RPF1, RPF2, RPF3...

je voudrais maintenant que ma macro aille chercher ma première plage nommée en fonction de ma seconde.

j'ai essayé plusieurs syntaxes mais je ne trouve toujours pas ma solution, pourriez vous m'aider svp ?

Merci d'avance,

Code :

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

1
2
3
4
5
 
'Mise à jour DATA_COMM
Feuil4.Select
Feuil4("Comm" & Range(NOM_RPF)).Select
Selection.Copy

[Philippe Tulliez]

Bonjour,
Regarde du côté de la fonction INDIRECT en VBA.
EN excel par exemple si on veux faire la somme d'une plage nommée dont le nom variable serait en cellule A1 qui elle même est nommée Indication

Code :

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

=SOMME(INDIRECT(Indication))

[ridokou]

Bonjour Corona,

le problème dans tes indications est que je ne cherche pas à faire une somme mais juste à récupérer une valeur texte.

En utilisant la fonction indirect, la macro va me chercher la cellule correspondant à mon indirect à savoir colonne RPF ligne 1,2,3, ... et ne semble pas prendre en compte la partie fixe de ma range : "Comm"

Code :

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

1
2
3
4
5
 
'Mise à jour DATA_COMM
Feuil4.Select
Range(Comm & "=indirect(NOM_RPF)").Select
Selection.Copy

[gFZT82]

Bonjour ridokou,

Une solution en reprenant ton code :
- la cellule nommée NOM_RPF est en feuille 3.
- les plages nommées CommRPF1, CommRPF2, CommRPF3 sont en feuille 4.

Code :

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

1
2
3
4
    'Mise à jour DATA_COMM
    Feuil4.Select
    Feuil4.Range("Comm" & Feuil3.Range("NOM_RPF").Value).Select
    Selection.Copy

Cordialement.

[ridokou]

Bonjour gFZT82 et merci beaucoup,

Ca fonctionne parfaitement maintenant.

Merci beaucoup également a corona et a mercatog pour votre aide/participation.

Bonne journée à tous

[mercatog]

Code :

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

1
2
3
4
Dim PRF As String
 
PRF = "Comm" & Sheets("Feuil3").Range("NOM_RPF")
Sheets("Feuil4").Range(PRF).Copy