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
anonymousA
Bonjour
pour contraindre l'utilsateur à ne sortir que si l'un ou l'autres des deux options est saisi
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If (Me.OptionButton1.Value * 1) + (Me.OptionButton2.Value * 1) = 0 Then MsgBox "saisie d'un des boutons obligatoire" Cancel = 1 End If
End Sub
Par contre, pour la question à propos de [i] , ( [i] = ????), la question que je te pose c'est qu'est ce que tu veux faire ? car [i] est porblématique en tant que syntaxe. Les crochets sont réservés en Excel à des utilisatins précises qui sont en contradiction avec l'écriture de ton instruction.
A+
On 14 fév, 07:29, "Alba" wrote:
Bonjour,
Je n'arrive pas à insérer la valeur de mes Options button sur ma ligne.
J'ai ceci :
Private Sub AjouterFactureCompte_Click()
Dim L As Integer
L = Sheets("Compte dentiste").Range("A65536").End(xlUp).Row + 1 Sheets("Compte dentiste").Activate With Sheets("Compte dentiste")
If Controls("Dentaire").Value = True Then [i] = Controls("Dentaire").Caption End If
If Controls("Naturopathe").Value = True Then Controls("Naturopathe").Caption End If End With
Qu'est ce que je dois lui dire à la place du [i] = ????
et j'aimerai beaucoup que si on oublie de faire un choix ou un autre il interdit ne sorte pas de l'userform avec un message :
MsgBox "Vous devez définir le traitement Dentaire ou Naturopathe " Exit Sub End If
merci beaucoup pour votre aide Très bonne journée à tous
Bonjour
pour contraindre l'utilsateur à ne sortir que si l'un ou l'autres des
deux options est saisi
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
If (Me.OptionButton1.Value * 1) + (Me.OptionButton2.Value * 1) = 0
Then
MsgBox "saisie d'un des boutons obligatoire"
Cancel = 1
End If
End Sub
Par contre, pour la question à propos de [i] , ( [i] = ????), la
question que je te pose c'est qu'est ce que tu veux faire ? car [i]
est porblématique en tant que syntaxe. Les crochets sont réservés en
Excel à des utilisatins précises qui sont en contradiction avec
l'écriture de ton instruction.
A+
On 14 fév, 07:29, "Alba" <lilas-...@hotmail.com> wrote:
Bonjour,
Je n'arrive pas à insérer la valeur de mes Options button sur ma
ligne.
J'ai ceci :
Private Sub AjouterFactureCompte_Click()
Dim L As Integer
L = Sheets("Compte dentiste").Range("A65536").End(xlUp).Row + 1
Sheets("Compte dentiste").Activate
With Sheets("Compte dentiste")
pour contraindre l'utilsateur à ne sortir que si l'un ou l'autres des deux options est saisi
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If (Me.OptionButton1.Value * 1) + (Me.OptionButton2.Value * 1) = 0 Then MsgBox "saisie d'un des boutons obligatoire" Cancel = 1 End If
End Sub
Par contre, pour la question à propos de [i] , ( [i] = ????), la question que je te pose c'est qu'est ce que tu veux faire ? car [i] est porblématique en tant que syntaxe. Les crochets sont réservés en Excel à des utilisatins précises qui sont en contradiction avec l'écriture de ton instruction.
A+
On 14 fév, 07:29, "Alba" wrote:
Bonjour,
Je n'arrive pas à insérer la valeur de mes Options button sur ma ligne.
J'ai ceci :
Private Sub AjouterFactureCompte_Click()
Dim L As Integer
L = Sheets("Compte dentiste").Range("A65536").End(xlUp).Row + 1 Sheets("Compte dentiste").Activate With Sheets("Compte dentiste")
If Controls("Dentaire").Value = True Then [i] = Controls("Dentaire").Caption End If
If Controls("Naturopathe").Value = True Then Controls("Naturopathe").Caption End If End With
Qu'est ce que je dois lui dire à la place du [i] = ????
et j'aimerai beaucoup que si on oublie de faire un choix ou un autre il interdit ne sorte pas de l'userform avec un message :
MsgBox "Vous devez définir le traitement Dentaire ou Naturopathe " Exit Sub End If
merci beaucoup pour votre aide Très bonne journée à tous
Alba
Bonjour anonymousA
merci pour la réponse, je vais donc pouvoir mettre l'interdiction avec la condition.
En somme et au même titre qu'avec mes textbox qui viennent insérer le valeurs dans une ligne ajoutée par commande du bouton, je voudrais que l'option choisie Controls("Naturopathe") ou Controls("Dentaire") s'insére dans la Range("I" & L).....dans la colonne I donc.
Bonjour anonymousA
merci pour la réponse, je vais donc pouvoir mettre l'interdiction avec
la condition.
En somme et au même titre qu'avec mes textbox qui viennent insérer le
valeurs dans une ligne ajoutée par commande du bouton, je voudrais que
l'option choisie Controls("Naturopathe") ou Controls("Dentaire")
s'insére dans la Range("I" & L).....dans la colonne I donc.
merci pour la réponse, je vais donc pouvoir mettre l'interdiction avec la condition.
En somme et au même titre qu'avec mes textbox qui viennent insérer le valeurs dans une ligne ajoutée par commande du bouton, je voudrais que l'option choisie Controls("Naturopathe") ou Controls("Dentaire") s'insére dans la Range("I" & L).....dans la colonne I donc.
Alba
Je dois m'absenter jusqu'en début d'après-midi, donc excuse moi si je ne réponds pas de suite à tes questions.
Merci encore de ton aide.
Je dois m'absenter jusqu'en début d'après-midi, donc excuse moi si je
ne réponds pas de suite à tes questions.
Je dois m'absenter jusqu'en début d'après-midi, donc excuse moi si je ne réponds pas de suite à tes questions.
Merci encore de ton aide.
anonymousA
With Sheets("Compte dentiste")
If Controls("Dentaire").Value = True Then .Range("I" & L).Value = Controls("Dentaire").Caption
If Controls("Naturopathe").Value = True Then .Range("I" & L).Value =Controls("Naturopathe").Caption
End With
On ne peut utiliser de chaine de texte concaténée avec les crochets , il faut passer par Range ou par Evaluate.
A+
On 14 fév, 09:15, "Alba" wrote:
Bonjour anonymousA
merci pour la réponse, je vais donc pouvoir mettre l'interdiction avec la condition.
En somme et au même titre qu'avec mes textbox qui viennent insérer le valeurs dans une ligne ajoutée par commande du bouton, je voudrais que l'option choisie Controls("Naturopathe") ou Controls("Dentaire") s'insére dans la Range("I" & L).....dans la colonne I donc.
With Sheets("Compte dentiste")
If Controls("Dentaire").Value = True Then .Range("I" & L).Value =
Controls("Dentaire").Caption
If Controls("Naturopathe").Value = True Then .Range("I" & L).Value
=Controls("Naturopathe").Caption
End With
On ne peut utiliser de chaine de texte concaténée avec les crochets ,
il faut passer par Range ou par Evaluate.
A+
On 14 fév, 09:15, "Alba" <lilas-...@hotmail.com> wrote:
Bonjour anonymousA
merci pour la réponse, je vais donc pouvoir mettre l'interdiction avec
la condition.
En somme et au même titre qu'avec mes textbox qui viennent insérer le
valeurs dans une ligne ajoutée par commande du bouton, je voudrais que
l'option choisie Controls("Naturopathe") ou Controls("Dentaire")
s'insére dans la Range("I" & L).....dans la colonne I donc.
If Controls("Dentaire").Value = True Then .Range("I" & L).Value = Controls("Dentaire").Caption
If Controls("Naturopathe").Value = True Then .Range("I" & L).Value =Controls("Naturopathe").Caption
End With
On ne peut utiliser de chaine de texte concaténée avec les crochets , il faut passer par Range ou par Evaluate.
A+
On 14 fév, 09:15, "Alba" wrote:
Bonjour anonymousA
merci pour la réponse, je vais donc pouvoir mettre l'interdiction avec la condition.
En somme et au même titre qu'avec mes textbox qui viennent insérer le valeurs dans une ligne ajoutée par commande du bouton, je voudrais que l'option choisie Controls("Naturopathe") ou Controls("Dentaire") s'insére dans la Range("I" & L).....dans la colonne I donc.
