Bonjour a tous,
Voici ma problématique :
Je souhaite faire un formulaire à l'aide de "case à cocher" et de "case d'option" dans excel. Suite à ça je souhaite mettre en place des réponse globale (Liens internet) en fonction de la combinaison des choix saisie par l'utilisateur.
J'arrive donc à récupérer les valeurs en VBA mais mon soucis c'est qu'il y a tellement de combinaison ca me fait beaucoup trop de condition pour des boucle if:
If ActiveSheet.Shapes("Case à cocher 1").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 2").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 3").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 4").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 5").ControlFormat.Value = 1.... AND
ActiveSheet.Shapes("Case d'option 3").ControlFormat.Value = TRUE...
Then
Message = "www.monsiteinternet.com"
ATIS = ATIS + 1
End If
Quelqu'un aurais t il un solution ????
Je sais qu'il y a possibilité de mettre en place des matrice mais j'ai jamais fait !
En tout cas si quelqu'un peut me simplifier la tache et me trouver une astuce ca serais Génial !!!
Merci d'avance a tous . (En espérant avoir clairement exposé le sujet)
Voici ma problématique :
Je souhaite faire un formulaire à l'aide de "case à cocher" et de "case d'option" dans excel. Suite à ça je souhaite mettre en place des réponse globale (Liens internet) en fonction de la combinaison des choix saisie par l'utilisateur.
J'arrive donc à récupérer les valeurs en VBA mais mon soucis c'est qu'il y a tellement de combinaison ca me fait beaucoup trop de condition pour des boucle if:
If ActiveSheet.Shapes("Case à cocher 1").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 2").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 3").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 4").ControlFormat.Value = 1 and ActiveSheet.Shapes("Case à cocher 5").ControlFormat.Value = 1.... AND
ActiveSheet.Shapes("Case d'option 3").ControlFormat.Value = TRUE...
Then
Message = "www.monsiteinternet.com"
ATIS = ATIS + 1
End If
Quelqu'un aurais t il un solution ????
Je sais qu'il y a possibilité de mettre en place des matrice mais j'ai jamais fait !
En tout cas si quelqu'un peut me simplifier la tache et me trouver une astuce ca serais Génial !!!
Merci d'avance a tous . (En espérant avoir clairement exposé le sujet)