AIDE pour progammer des bouton option en VBA
lamerloc
Messages postés
22
Statut
Membre
-
xav3601 Messages postés 3390 Statut Membre -
xav3601 Messages postés 3390 Statut Membre -
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
A voir également:
- AIDE pour progammer des bouton option en VBA
- Option d'ergonomie - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton home clavier ✓ - Forum PC portable
- Bouton shift pc - Forum Jeux vidéo
- Bouton on/off comment savoir - Forum Word
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...
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
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
