WhiteRabbit
XLDnaute Nouveau
Bonjour,
Je souhaiterais pouvoir utiliser la valeur d'une cellule pour ensuite l'utiliser comme nom de variable dans une macro
Cela m'éviterait beaucoup de test IF redondant et vraiment impossible à garder propre dans l'évolution de l'application.
Voici la portion de code que je cherche à optimiser. Il s'agit de deux des itérations IF que je cherche à automatiser en une seule itération IF qui saurait utiliser la variable nom pour ensuite aller chercher les bonnes variable cXXX :
If nom = "PIERRE" Then
typ_A = Worksheets("feuille1").Range("C" & cPIERRE).Value
typ_B = Worksheets("feuille1").Range("A" & cPIERRE).Value
ref = cPIERRE
End If
If nom = "PAUL" Then
typ_A = Worksheets("feuille1").Range("C" & cPAUL).Value
typ_B = Worksheets("feuille1").Range("A" & cPAUL).Value
ref = cPAUL
End If
Savez vous s'il est possible de nommer les paramètres du Range d'une façon (par exemple "C" & c&nom) automatisable ?
Merci pour votre aide.
Je souhaiterais pouvoir utiliser la valeur d'une cellule pour ensuite l'utiliser comme nom de variable dans une macro
Cela m'éviterait beaucoup de test IF redondant et vraiment impossible à garder propre dans l'évolution de l'application.
Voici la portion de code que je cherche à optimiser. Il s'agit de deux des itérations IF que je cherche à automatiser en une seule itération IF qui saurait utiliser la variable nom pour ensuite aller chercher les bonnes variable cXXX :
If nom = "PIERRE" Then
typ_A = Worksheets("feuille1").Range("C" & cPIERRE).Value
typ_B = Worksheets("feuille1").Range("A" & cPIERRE).Value
ref = cPIERRE
End If
If nom = "PAUL" Then
typ_A = Worksheets("feuille1").Range("C" & cPAUL).Value
typ_B = Worksheets("feuille1").Range("A" & cPAUL).Value
ref = cPAUL
End If
Savez vous s'il est possible de nommer les paramètres du Range d'une façon (par exemple "C" & c&nom) automatisable ?
Merci pour votre aide.
Dernière édition: