Correspondance entre la valeur d'une cellule et un USERFORMRésolu

Question

Bonjour les ptis loups

Voila je suis débutant en programmation VBA excel. Désolé j'ai pas trouvé le thème qu'il fallait. Voici mon problème :

J'ai des valeurs dans les cellules A1 à A10. Ces nombres vont de 1 à 10.
A1 peut avoir tous les nombres de 1 à 10 egalement A2,A3.....

j'ai affecté c'est valeurs de cellule dans des labels. Il y'en a 10 au total.

label1 affiche le nombre qui ce trouve dans A1 (soit 1,2,3,4,5,6,7,8,9,ou10)
label2 "                                               " dans A2 (soit 1,2,3,4,5,6,7,8,9,ou10)

jusque la pas de soucis

Voici la suptilité si s'en est une!!!!

Je voudrai lorsque je clic sur le label1 avec la valeur 3 par exemple qu'il m'ouvre la userform3
si le label1 à la valeur 10 il m'ouvre la userform 10.

J'espere avoir été clair.

Merci pour votre aide.

Supra3000 · Accepted Answer

dim alloticrain as String


alloticrain = label1.text


if alloticrain = 1 then


userform1.show

else if  alloticrain = 2 then

userform2.show

...

Bonne prog
@+

zen69 · Answer

Deux erreurs dans la solution proposée :
1. Un label ne possède pas de propriété TEXT mais CAPTION donc
    label1.caption
2. La valeur de la propriété CAPTION d'un label est un STRING donc
    if alloticrain = 1 then

Cordialement,

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

pile_poil · Answer

en toute logique j'aurais commencé par affecté la valeur des cellules à des variables puis éventuellement à des labels si nécessaire plutot que l'inverse 
surtout si ces données sont nécessaire ailleurs que dans la form en cours en déclarant alors ces variables en "Public"

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

zen69 · Answer

2. La valeur de la propriété CAPTION d'un label est un STRING donc
    if alloticrain = "1" then

excusez la




<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

cs_baz187rem · Answer

Je rajouterai en plus que c'est lourd de travailler avec des if elseif elseif....

Pensez donc au Select case qui est beaucoup plus souple je trouve

Select case label1.caption

   case "1" : userform1.show
  case "2" : userform2.show
 ...
end Select

cs_MPi · Answer

Où sont ces Labels ? sur la feuille ou sur un UserForm ?
Si c'est sur la feuille, de quelle boîte d'outils sont-ils pris ? Formulaire ou VB ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

ticrain · Answer

Bien vu les gards je vous remercie pour votre aide, et je vous dit à bientôt pour de nouvelles aventures...

Correspondance entre la valeur d'une cellule et un USERFORM

7 réponses

Votre réponse