AIDE pour progammer des bouton option en VBA
Bonjour,
Je vous soumets mon problème car je ne trouve pas la solution.
Je suis entrain de faire un projet excel et vBA, intégration d'un contrat juridique avec la possibilité de la modifier par des userform..
mon problème est que j'ai crée un userform dans le lequel il y a 3 boutons options (à cocher), un seul choix est offert à l'utilisateur et un bouton valider...
J'ai crée 3 feuille dans mon classeur excel interface / contrat / clauses..
je souhaite donner à chaque bouton option la valeur d'une cellule qui est préalablement remplie ds la feuille clauses et que si l'utilisateur coche cette case et valide, une cellule dans la feuille contrat prenne cette valeur (en l'occurence il s'agit du texte)... je ne sais pas si j'ai été clair...
voici mon semblant de code pour le bouton validation qui ne fonctionne pas
Private Sub cmdvalidfactu_Click()
If facturation.choixprelevauto = True Then
Sheets("Le contrat").Cells(36, 2).Value = choixprelevauto.Value
Else: Sheets("Le contrat").Cells(36, 2).Value = " "
End If
facturation.Hide
end sub
merci d'avance pour votre aide
Je vous soumets mon problème car je ne trouve pas la solution.
Je suis entrain de faire un projet excel et vBA, intégration d'un contrat juridique avec la possibilité de la modifier par des userform..
mon problème est que j'ai crée un userform dans le lequel il y a 3 boutons options (à cocher), un seul choix est offert à l'utilisateur et un bouton valider...
J'ai crée 3 feuille dans mon classeur excel interface / contrat / clauses..
je souhaite donner à chaque bouton option la valeur d'une cellule qui est préalablement remplie ds la feuille clauses et que si l'utilisateur coche cette case et valide, une cellule dans la feuille contrat prenne cette valeur (en l'occurence il s'agit du texte)... je ne sais pas si j'ai été clair...
voici mon semblant de code pour le bouton validation qui ne fonctionne pas
Private Sub cmdvalidfactu_Click()
If facturation.choixprelevauto = True Then
Sheets("Le contrat").Cells(36, 2).Value = choixprelevauto.Value
Else: Sheets("Le contrat").Cells(36, 2).Value = " "
End If
facturation.Hide
end sub
merci d'avance pour votre aide
Configuration: Windows Vista Firefox 3.0.5
4 réponses
-
tout d'abord quand tu dis un seul choix offert a l'utilisateur c'est qu'il ne peut choisir qu'une seule des trois options?
si c'est le cas il faut utiliser des radiobutton et pas des check box ;)
niveau de ton code :
Ca ne peut pas marcher car tu ne peux pas récupérer le texte de ta check box!
Apres il y'a differentes option:
mettre une textbox à côté de ta check box... -
effectivement dans mon userform il y a 3 radiobutton
l'utilisateur ne peut en choisir qu'un sur 3...
chaque radiobutton font appel à des cellules dans la feuille clauses et qui s'integrerait dans la feuille contrat en fontion du choix de l'utilisateur.
merci -
A vrai dire je ne vois plus vraiment de probleme...
si il choisi un des boutons quand il click sur valider tu met la valeur de la case associe dans la case de destination et voila
non? -
le code doit ressembler a un truc comme ca:
if radiobutton1.chek = true then
sheets("").cells(x,y).value = sheets("").cells(x,y).value
End If
avec x,y correspondant au bon numero de cellule et radiobutton au radiobutton :)
