Dans un useform, j'ai défini 2 option button que j'ai rattaché à une
cellule
ascii et binaire, lorsque que j'active ascii j'ai 1 dans cellule, lorsque
j'active binaire
j'ai 2.
pour récupérer la chaine de caractère, j'ai codé ceci :
' ascii ou binaire
If Worksheets("variable").Range("B1").Value = 1 Then
valeur = " ascii "
End If
If Worksheets("variable").Range("B1").Value = 2 Then
valeur = " binary "
End If
puis je récupère le contenu de la variable valeur, mais le fonctionnement
est aléatoire.
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
Herdet
Bonjour Issorp, Pourquoi passer par une cellule avec 1 ou 2 ?
La solution la plus directe est : Dans le module principal pour utiliser Valeur partout dans le programme : Public Valeur As String
Dans le code de la boite de dialogue : Private Sub OptionButton1_Click() Valeur = " " & OptionButton1.Caption End Sub
Private Sub OptionButton2_Click() Valeur = " " & OptionButton1.Caption End Sub
Par sécurité bien que ce ne soit pas obligatoire pour seulement 2 options on peut donner un nom dans la propriété Groupe de chaque bouton d'option par exemple GRP1
Cordialement Robert Dezan
"issorp" a écrit dans le message de news:
Bonjour à tous,
Dans un useform, j'ai défini 2 option button que j'ai rattaché à une cellule ascii et binaire, lorsque que j'active ascii j'ai 1 dans cellule, lorsque j'active binaire j'ai 2.
pour récupérer la chaine de caractère, j'ai codé ceci :
' ascii ou binaire If Worksheets("variable").Range("B1").Value = 1 Then valeur = " ascii " End If If Worksheets("variable").Range("B1").Value = 2 Then valeur = " binary " End If puis je récupère le contenu de la variable valeur, mais le fonctionnement est aléatoire.
Pourriez vous m'éclairer, je ne comprends pas
Merci de votre aide !ss0rp
Bonjour Issorp,
Pourquoi passer par une cellule avec 1 ou 2 ?
La solution la plus directe est :
Dans le module principal pour utiliser Valeur partout dans le programme :
Public Valeur As String
Dans le code de la boite de dialogue :
Private Sub OptionButton1_Click()
Valeur = " " & OptionButton1.Caption
End Sub
Private Sub OptionButton2_Click()
Valeur = " " & OptionButton1.Caption
End Sub
Par sécurité bien que ce ne soit pas obligatoire pour seulement 2 options on
peut donner un nom dans la propriété Groupe de chaque bouton d'option par
exemple GRP1
Cordialement
Robert Dezan
"issorp" <issorp@noos.Fr> a écrit dans le message de news:
Xns9639CE79EDA42rasorgftv@212.27.42.69...
Bonjour à tous,
Dans un useform, j'ai défini 2 option button que j'ai rattaché à une
cellule
ascii et binaire, lorsque que j'active ascii j'ai 1 dans cellule, lorsque
j'active binaire
j'ai 2.
pour récupérer la chaine de caractère, j'ai codé ceci :
' ascii ou binaire
If Worksheets("variable").Range("B1").Value = 1 Then
valeur = " ascii "
End If
If Worksheets("variable").Range("B1").Value = 2 Then
valeur = " binary "
End If
puis je récupère le contenu de la variable valeur, mais le fonctionnement
est aléatoire.
Bonjour Issorp, Pourquoi passer par une cellule avec 1 ou 2 ?
La solution la plus directe est : Dans le module principal pour utiliser Valeur partout dans le programme : Public Valeur As String
Dans le code de la boite de dialogue : Private Sub OptionButton1_Click() Valeur = " " & OptionButton1.Caption End Sub
Private Sub OptionButton2_Click() Valeur = " " & OptionButton1.Caption End Sub
Par sécurité bien que ce ne soit pas obligatoire pour seulement 2 options on peut donner un nom dans la propriété Groupe de chaque bouton d'option par exemple GRP1
Cordialement Robert Dezan
"issorp" a écrit dans le message de news:
Bonjour à tous,
Dans un useform, j'ai défini 2 option button que j'ai rattaché à une cellule ascii et binaire, lorsque que j'active ascii j'ai 1 dans cellule, lorsque j'active binaire j'ai 2.
pour récupérer la chaine de caractère, j'ai codé ceci :
' ascii ou binaire If Worksheets("variable").Range("B1").Value = 1 Then valeur = " ascii " End If If Worksheets("variable").Range("B1").Value = 2 Then valeur = " binary " End If puis je récupère le contenu de la variable valeur, mais le fonctionnement est aléatoire.
