[VBA-E]Probleme checkbox qui reste cochée

coucou,

j'ai un petit souci avec une chexkbox (enfin je pense qu'il vient de là).

Voici le pb :

je cherche à modifier des infos stockées. Pour cela lorsque l'utilisateur choisi un element d'une combobox, les infos (contenues dans une feuille excel) sont affichées sur l'userform.

voici le code qui permet de récupérer les infos.

Code:

---

1 2 3 4 5 6 7 8

If (Cells(NumLigne, 4) = "") Then MenuGeneral.CheckBox1 = True MenuGeneral.TextBox2 = "" Else MenuGeneral.CheckBox1 = False MenuGeneral.TextBox2 = Cells(NumLigne, 4) End If

---

Je vais l'expliquer un peu pour que ce soit clair. L'utilisateur a le choix, pour un nom de fichier qu'il ajoute, il peut choisir une option "convertir" ou non.
Si il coche la checkbox, alors il ne veut PAS convertir et donc il n'y a pas de nom du fichier converti à fournir.

Le code qu'il y a au dessus sert à voir les info (récupérer les info stockées avant modif). Donc si la case qui doit contenir le nom du fichier converti est vide, c'est qu'il n'a pas voulu cette option et donc la checkbox "ne pas convertir" est cochée et le textbox contenant le nom est vide. Sinon la case n'est pas cochée et on a le nom...:mrgreen:

le souci est que dans ma Sub qui doit enregistrer (le code d'avant vien de celle qui récupere les info) ne fait pas ce que je veux !!
Lorsque je décoche la checkbox et met un nom (initialement elle est cochée et il n'y a pas de nom) et que je veux energistrer les changements, ca laisse l'orignal (cochée sans nom). De meme pour une case non coché avec un nom, si je supprime le nom et que je la coche, ca ne retiens pas...

Voici le code (qui ne fonctionne donc pas :roll: )

Code:

---

1 2 3 4 5 6 7 8

If MenuGeneral.TextBox2 <> "" Then MenuGeneral.CheckBox1 = False Cells(NumLigne, 4).Value = MenuGeneral.NomExcel.Value Else MenuGeneral.CheckBox1 = True Cells(NumLigne, 4).Value = "" End If

---

Si la textbox est vide alors je veux quil retiennent la checkbox cochée et qu'il n'y ai pas de nom stocké, sinon l'inverse :roll:

Si il y a des survivant apres la elcture merci de leur aide :mouarf:

Avant ton If tu as qu'a mettre par défaut la case cochée et ta cellule vide comme ça tu n'a pas besoin de ton Else :)

Bof,

là ta solution si je met la case coché par "défaut", ca me sauve toujours avec la case cochée et le nom vide quelque soit la valeur initiale... :?

De plus je pense pas que ce soit intelligent comme solution. Il fait au minimum 1 des 2 actions voire les 2 si le "if" est vérifé alors qu'avec mon code il vérifie et fait toujours 1action au maximum (paraction je veux dire l'une des 2 possibilité qu'il y a).

Me revla,

ca m'a donné une idée ta solution en fait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'on vérifie la cohérence If ((MenuGeneral.CheckBox1 = False And MenuGeneral.TextBox2 = "") Or (MenuGeneral.CheckBox1 = True And MenuGeneral.TextBox2 <> "")) Then   MsgBox ("Probleme au niveau du nom de la convertion") Exit Sub   End If   Cells(NumLigne, 4).Value = MenuGeneral.TextBox2.Value

---

je vérifie dabord que si la case set coché, il n'y a pas de nom ou que si elle est décochée (on ve convertir) il y a un nom.
Puis j'ajoute automatiquement la valeur qu'il y a dans textbox2 dans ma feuille qui contient les donnée. Si cette valeur est vide alors, lors de la prochaine modif, le code suivant cochera par lui meme la case (code de la sub qui affiche les données stockées)

Code:

---

1 2 3 4 5 6 7 8

If (Cells(NumLigne, 4) = "") Then MenuGeneral.CheckBox1 = True MenuGeneral.TextBox2 = "" Else MenuGeneral.CheckBox1 = False MenuGeneral.TextBox2 = Cells(NumLigne, 4) End If

---

donc tout va bien maitenant :D