Optionbutton dans un Frame renvoyer valeur différente
Résolu/Fermé
A voir également:
- Optionbutton dans un Frame renvoyer valeur différente
- Uma frame buffer size ✓ - Forum Matériel & Système
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Excel renvoyer la valeur d'une cellule en fonction d'une autre ✓ - Forum Excel
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
3 réponses
Bonjour Lili,
Fichier Excel 2007 : https://mon-partage.fr/f/tIU1LzBw/
Alt F11 pour voir la macro, puis revenir sur Excel
Cordialement
Fichier Excel 2007 : https://mon-partage.fr/f/tIU1LzBw/
Alt F11 pour voir la macro, puis revenir sur Excel
Cordialement
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
8 sept. 2017 à 09:48
8 sept. 2017 à 09:48
Bonjour,
Deux choix.
1- tu souhaites conserver ton bouton de commande pour valider :
2- tu peux te passer du bouton :
Comme tu préfères...
Deux choix.
1- tu souhaites conserver ton bouton de commande pour valider :
Private Sub CommandButton1_Click() With Sheets("Effectifs") Select Case True Case OptionButton1: .Cells(Ligne, 7) = "TP" Case OptionButton2: .Cells(Ligne, 7) = "Redh" Case OptionButton3: .Cells(Ligne, 7) = "RedJ" End Select End With End Sub
2- tu peux te passer du bouton :
Private Sub OptionButton1_Click() If OptionButton1 Then Sheets("Effectifs").Cells(Ligne, 7) = "TP" End Sub Private Sub OptionButton2_Click() If OptionButton2 Then Sheets("Effectifs").Cells(Ligne, 7) = "Redh" End Sub Private Sub OptionButton3_Click() If OptionButton3 Then Sheets("Effectifs").Cells(Ligne, 7) = "RedJ" End Sub
Comme tu préfères...