Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel OptionButton1_Click() suite...

OptionButton1_Click() suite...

2 réponses
Avatar
Papou2M
Re Bonjour...
La feuille 2 en colonne B et C portent en titre de colonne "Correct"
"Incorrect". la colonne A est renseignée par Numéro
Userform1 ne comporte que les boutons (OptionButton) Valeur1, Valeur 2 et
Valider et Annuler(CommandButton)
et je souhaiterais que les cellules B2 et C2 reçoivent "oui" et "non" en
fonction du choix Valeur1 ou Valeur2 et je n'y arrive pas ....:-(((

qu'est ce qui ne tourne pas rond dans mon histoire ???
Merci de votre aide
---------------------------------
Sub Essaival()
UserForm1.Show
End Sub
---------------------
Private Sub Annuler_Click()
UserForm1.Hide
End Sub
----------------------
Private Sub Valeur1_Click()

End Sub
-------------------------
Private Sub valeur2_Click()

End Sub
----------------------------
Private Sub Valider_Click()
Dim Num
Dim cellule As Object
'Détermination du numéro de fiche
Set cellule = Worksheets("Feuil2").Range("A2")
Num = 1
If cellule.Value = "" Then
cellule.Value = Num
Else
Do While IsEmpty(cellule) = False
Num = Num + 1
Set cellule = cellule.Offset(1)
Loop
cellule.Value = Num
End If
cellule.Offset(0, 1).Value = Correct
cellule.Offset(0, 2).Value = Incorrect
UserForm1.Hide
End Sub
-------------------
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Essaie en modifiant comme ça le code de ton Userform :
Private Sub Valider_Click()
Dim Derncel As Range
Set Derncel = Feuil2.Range("A65536").End(xlUp)(2)
If Derncel.Address = "$A$2" Then
Derncel.Value = 1
Else: Derncel.Value = Derncel.Offset(-1, 0).Value + 1
End If
If Valeur1.Value = True Then
Derncel.Offset(0, 1).Value = "oui"
Derncel.Offset(0, 2).Value = "non"
ElseIf Valeur2.Value = True Then
Derncel.Offset(0, 1).Value = "non"
Derncel.Offset(0, 2).Value = "oui"
End If
End Sub
Private Sub Annuler_Click()
UserForm1.Hide
Unload UserForm1
End Sub

Cordialement
Pascal


"Papou2M" <enplus+ a écrit dans le message de news:
40877930$0$20142$
Re Bonjour...
La feuille 2 en colonne B et C portent en titre de colonne "Correct"
"Incorrect". la colonne A est renseignée par Numéro
Userform1 ne comporte que les boutons (OptionButton) Valeur1, Valeur 2 et
Valider et Annuler(CommandButton)
et je souhaiterais que les cellules B2 et C2 reçoivent "oui" et "non" en
fonction du choix Valeur1 ou Valeur2 et je n'y arrive pas ....:-(((

qu'est ce qui ne tourne pas rond dans mon histoire ???
Merci de votre aide
---------------------------------
Sub Essaival()
UserForm1.Show
End Sub
---------------------
Private Sub Annuler_Click()
UserForm1.Hide
End Sub
----------------------
Private Sub Valeur1_Click()

End Sub
-------------------------
Private Sub valeur2_Click()

End Sub
----------------------------
Private Sub Valider_Click()
Dim Num
Dim cellule As Object
'Détermination du numéro de fiche
Set cellule = Worksheets("Feuil2").Range("A2")
Num = 1
If cellule.Value = "" Then
cellule.Value = Num
Else
Do While IsEmpty(cellule) = False
Num = Num + 1
Set cellule = cellule.Offset(1)
Loop
cellule.Value = Num
End If
cellule.Offset(0, 1).Value = Correct
cellule.Offset(0, 2).Value = Incorrect
UserForm1.Hide
End Sub
-------------------







Avatar
Papou2M
Re , encore une fois de nouveau ....
c'est bon, j'ai, grâce à toi, trouvé la solution ;-D))
merci de ton aide
JPM
"papou" a écrit dans le message de
news:
Bonjour
Essaie en modifiant comme ça le code de ton Userform :
Private Sub Valider_Click()
Dim Derncel As Range
Set Derncel = Feuil2.Range("A65536").End(xlUp)(2)
If Derncel.Address = "$A$2" Then
Derncel.Value = 1
Else: Derncel.Value = Derncel.Offset(-1, 0).Value + 1
End If
If Valeur1.Value = True Then
Derncel.Offset(0, 1).Value = "oui"
Derncel.Offset(0, 2).Value = "non"
ElseIf Valeur2.Value = True Then
Derncel.Offset(0, 1).Value = "non"
Derncel.Offset(0, 2).Value = "oui"
End If
End Sub
Private Sub Annuler_Click()
UserForm1.Hide
Unload UserForm1
End Sub

Cordialement
Pascal


"Papou2M" <enplus+ a écrit dans le message de news:
40877930$0$20142$
Re Bonjour...
La feuille 2 en colonne B et C portent en titre de colonne "Correct"
"Incorrect". la colonne A est renseignée par Numéro
Userform1 ne comporte que les boutons (OptionButton) Valeur1, Valeur 2
et


Valider et Annuler(CommandButton)
et je souhaiterais que les cellules B2 et C2 reçoivent "oui" et "non"
en


fonction du choix Valeur1 ou Valeur2 et je n'y arrive pas ....:-(((

qu'est ce qui ne tourne pas rond dans mon histoire ???
Merci de votre aide
---------------------------------
Sub Essaival()
UserForm1.Show
End Sub
---------------------
Private Sub Annuler_Click()
UserForm1.Hide
End Sub
----------------------
Private Sub Valeur1_Click()

End Sub
-------------------------
Private Sub valeur2_Click()

End Sub
----------------------------
Private Sub Valider_Click()
Dim Num
Dim cellule As Object
'Détermination du numéro de fiche
Set cellule = Worksheets("Feuil2").Range("A2")
Num = 1
If cellule.Value = "" Then
cellule.Value = Num
Else
Do While IsEmpty(cellule) = False
Num = Num + 1
Set cellule = cellule.Offset(1)
Loop
cellule.Value = Num
End If
cellule.Offset(0, 1).Value = Correct
cellule.Offset(0, 2).Value = Incorrect
UserForm1.Hide
End Sub
-------------------