Des CheckBox qui conditionne le reste

[J-c]

Bonsoir à tous

Je viens solliciter votre aide.🙁

En utilisant le fichier joint comme point de départ je voudrais vous poser plusieurs questions
-Dans l’USF apparaissent 2 checkBox, serrait il possible d’empêcher le remplissage des différant champs, temps que l’une des 2 CheckBox n’est pas cochée ?
-Comment puis-je rendre impossible le fait de cocher les 2 CheckBox en même temps (soit l’une soit l’autre) ?
-Comment puis-je conditionner l’enregistrement des données de l’USF soit sur Feuil3 soit sur Feuil4 en fonction de la CheckBox coché ?
Et en fin Comment puis-je attribuer automatiquement une valeur à la textBox3 (N° De place) qui correspondrait à la valeur la plus élevé de la colonne F (Feuil3 ou Feuil4) +1

Merci Cdlt J-C

 

[Hulk]

Re : Des CheckBox qui conditionne le reste

Hello,

Comme ceci peut-être..

Vois le fichier joint, ai rajouté deux macros pour les CheckBox, et modifié le code du bouton "Valider".

Cdt, Hulk.

 

[J-c]

Re : Des CheckBox qui conditionne le reste

Bonsoir

Super Merci Hulk 🙂

Il ne me reste plus qu'a trouver Comment attribuer automatiquement une valeur à la textBox3 (N° De place) qui correspondrait à la valeur la plus élevé de la colonne F (Feuil3 ou Feuil4) +1

Merci Cdlt J-C

 

[jp14]

Re : Des CheckBox qui conditionne le reste

Bonjour

Bonsoir

Super Merci Hulk 🙂

Il ne me reste plus qu'a trouver Comment attribuer automatiquement une valeur à la textBox3 (N° De place) qui correspondrait à la valeur la plus élevé de la colonne F (Feuil3 ou Feuil4) +1

Merci Cdlt J-C

En utilisant le code ci dessous

dim plage1 as range
dl1 dernière ligne
        Set plage1 = Sheets("Feuil3").Range("F2:A" & dl1)
        textBox3.Value = Application.WorksheetFunction.Max(plage1) + 1

A tester

JP

 

[J-c]

Re : Des CheckBox qui conditionne le reste

Bonsoir

Merci , j'ai testé mais je bloque sur (dl1 dernière ligne)
IL est fort probablement que je n'utilise pas correctement ce code
pouvez vous me l'expliquer et me dire ce que signifie cette ligne

dim plage1 as range
dl1 dernière ligne
Set plage1 = Sheets("Feuil3").Range("F2:A" & dl1)
textBox3.Value = Application.WorksheetFunction.Max(plage1) + 1


Et toujours sur le meme exemple, comment d’empêcher le remplissage des différant champs, temps que l’une des 2 CheckBox n’est pas cochée ?

Ou une autre façon de voir en empêchant la validation


Cdlt J-C

 

[jp14]

Re : Des CheckBox qui conditionne le reste

Bonjour

Ci joint le fichier avec recherche du numéro suivant.

A tester

JP

 

[Hulk]

Re : Des CheckBox qui conditionne le reste

Hello,

Et toujours sur le meme exemple, comment d’empêcher le remplissage des différant champs, temps que l’une des 2 CheckBox n’est pas cochée ?

Il y a sûrement mieux, mais je te propose ceci

Private Sub TextBox1_Change()
If CheckBox1 = False And CheckBox2 = True Then
ElseIf CheckBox2 = False And CheckBox1 = True Then
Else
MsgBox "Vous devez côcher A ou B"
End If
End Sub

A toi de l'adapter aux autres contrôles et de l'améliorer à ta guise.

NOTE : Si on met TextBox1 = "" après le End If, il affiche deux fois la MsgBox 😕

Cdt, Hulk.

 

[J-c]

Re : Des CheckBox qui conditionne le reste

Bonjour

Merci pour votre aide je test tout ceci
Merci Cdlt J-C