Bonjour, tout d'abord merci de vous attarder sur mon problème j'ai créé une macro avec des incrémentations et j'aimerais que cette incrémentation soit un seuil min et Max à pas dépasser qui serait demandé à l'utilisateur dans une Text Box
Exemple: admettons qu'en "F4 "j'ai -20 et qu'en "I4" j'ai 120 et que ma base de données trouve aucun résultat l'utilisateur pourrait en cliquant sur un bouton incrémenté cela lui ouvre un userform qui lui demande s'il veut incrémenter" F4", "I4" ou les deux mais ça c'est réussi j'aimerais qu'avant d'incrémenter une textbox apparaisse et lui demande une marge c'est-à-dire : reprenons l'exemple précédent; si la marge est de 20 j'aimerais que s'il choisit d'incrémenter F4 en disant que tant que la base de données ne trouve aucun résultat et que F4 > à F4 - 20 incrémenté avec F4 -5 car c'est dans les négatifs et l'inverse dans les positifs :/
Le truc c'est que je n’arrive pas à coder ce que je veux ...
Y aurait-il une âme charitable qui pourrait m'aider ?
Voici mon code:
Private Sub CheckBox1_Click()
Range("F4").Value = Range("F4").Value - 5
End Sub
Private Sub CheckBox2_Click()
Range("F4").Value = Range("F4").Value + 5
End Sub
Private Sub CheckBox3_Click()
Range("F4").Value = Range("F4").Value - 5
Range("I4").Value = Range("I4").Value + 5
End Sub
Private Sub UserForm_Initialize()
CheckBox1.Value = IIf(Incrémentation_de_Tmin = "OK", True, False)
CheckBox2.Value = IIf(Incrémentation_de_Tmax = "OK", True, False)
CheckBox3.Value = IIf(Incrémentation_des_deux = "OK", True, False)
End Sub
Private Sub CommandButton1_Click() 'Fermeture de la boite de dialogue apres un click sur "Valider"
Incrémentation_de_Tmin = IIf(CheckBox1.Value = True, "OK", "NON")
Incrémentation_de_Tmax = IIf(CheckBox2.Value = True, "OK", "NON")
Incrémentation_des_deux = IIf(CheckBox3.Value = True, "OK", "NON")
Unload Me
End Sub
Private Sub CommandButton2_Click() ' si l'on clique sur "Annuler" les valeurs des variables sont réinitialisées
Incrémentation_de_Tmin = ""
Incrémentation_de_Tmax = ""
Incrémentation_des_deux = ""
If MsgBox("Voulez_vous quitter l'incrémentation ?", vbYesNo, "confirmation") = vbYes Then derligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Unload Me
End Sub
Je sais que je demande un truc très précis mais si possible pouvez-vous me mettre en commentaire ce que chaque ligne de votre code fait pour que je puisse apprendre
Merci beaucoup
Exemple: admettons qu'en "F4 "j'ai -20 et qu'en "I4" j'ai 120 et que ma base de données trouve aucun résultat l'utilisateur pourrait en cliquant sur un bouton incrémenté cela lui ouvre un userform qui lui demande s'il veut incrémenter" F4", "I4" ou les deux mais ça c'est réussi j'aimerais qu'avant d'incrémenter une textbox apparaisse et lui demande une marge c'est-à-dire : reprenons l'exemple précédent; si la marge est de 20 j'aimerais que s'il choisit d'incrémenter F4 en disant que tant que la base de données ne trouve aucun résultat et que F4 > à F4 - 20 incrémenté avec F4 -5 car c'est dans les négatifs et l'inverse dans les positifs :/
Le truc c'est que je n’arrive pas à coder ce que je veux ...
Y aurait-il une âme charitable qui pourrait m'aider ?
Voici mon code:
Private Sub CheckBox1_Click()
Range("F4").Value = Range("F4").Value - 5
End Sub
Private Sub CheckBox2_Click()
Range("F4").Value = Range("F4").Value + 5
End Sub
Private Sub CheckBox3_Click()
Range("F4").Value = Range("F4").Value - 5
Range("I4").Value = Range("I4").Value + 5
End Sub
Private Sub UserForm_Initialize()
CheckBox1.Value = IIf(Incrémentation_de_Tmin = "OK", True, False)
CheckBox2.Value = IIf(Incrémentation_de_Tmax = "OK", True, False)
CheckBox3.Value = IIf(Incrémentation_des_deux = "OK", True, False)
End Sub
Private Sub CommandButton1_Click() 'Fermeture de la boite de dialogue apres un click sur "Valider"
Incrémentation_de_Tmin = IIf(CheckBox1.Value = True, "OK", "NON")
Incrémentation_de_Tmax = IIf(CheckBox2.Value = True, "OK", "NON")
Incrémentation_des_deux = IIf(CheckBox3.Value = True, "OK", "NON")
Unload Me
End Sub
Private Sub CommandButton2_Click() ' si l'on clique sur "Annuler" les valeurs des variables sont réinitialisées
Incrémentation_de_Tmin = ""
Incrémentation_de_Tmax = ""
Incrémentation_des_deux = ""
If MsgBox("Voulez_vous quitter l'incrémentation ?", vbYesNo, "confirmation") = vbYes Then derligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Unload Me
End Sub
Je sais que je demande un truc très précis mais si possible pouvez-vous me mettre en commentaire ce que chaque ligne de votre code fait pour que je puisse apprendre
Merci beaucoup
Dernière édition: