Discussion :

[Elstak]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[illight]

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

[Elstak]

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).

[Elstak]

Me revla,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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