Garder CheckBox coché après unload d'userform

Bonjour à tous !

Voila, après quelques semaines sur votre forum, qui ma permi de résoudre pas mal de mes problèmes concernant vba excel, je me suis inscrit pour demander de l'aide sur quelque chose ou google ne ma pas donné de réponses satisfaisante.

Mon problème : je suis en train de créer un fichier excel avec une userform qui apparait dès l'ouverture du document afin de demander à l'utilisateur quelle colonne il désire créer.

L'userform est constitué de checkbox à cocher et d'un bouton "commencer".

Si je coche la premier CB la première colonne est renommée en colonne1 par exemple... Ainsi de suite pour une quinzaine de colonnes. Lors de l'appui sur le bouton "commencer", je fais disparaitre les colonnes ou il n'y a rien et fait disparaite l'userform.

J'ai créé un bouton sur le document excel afin de réactiver l'userform pour ajouter de nouvelle colonne en cour. Le problème est que les checkbox qui devraient être déjà cochées, ne le sont pas...

Je souhaite donc qu'elle garde la mémoire, ou alors qu'elle recherche si leur colonne est remplie afin de se cocher...

Ce n'est pas un gros problème en soi, mais c'est le soucis du détail ;)

J'espère avoir été clair...

Voici des bouts de codes vba de certains élements :

Une checkbox :

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox2_Click() Select Case CheckBox2.Value Case True: Range("B1").Value = "Colonne2" Case False: Range("B1").Value = "" Case Else: CheckBox1.Caption = "Null" End Select End Sub

---

Le bouton "démarrer"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click()   Range("A:IV").Select Selection.EntireColumn.Hidden = False Range("A1").Select Dim I As Long   I = 1 Do While I < 35 If Cells(1, I).Value = "" Then Cells(1, I).EntireColumn.Hidden = True End If I = I + 1 Loop   'Pour que l'userform soit cachée lors du click sur le bouton Unload Me End Sub

---

Le bouton pour rajouter des colonnes en cour de création :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Range("A:AI").Select Selection.EntireColumn.Hidden = False UserForm1.Show End Sub

---

Merci pour l'aide !

Bonjour,
Un premier "Tips" pour le souci du détaille ;)

Code:

---

1 2 3

Range("A:IV").Select Selection.EntireColumn.Hidden = False Range("A1").Select

---

peux très bien devenir

Code:

---

Range("A:IV").EntireColumn.Hidden = False

---

Pour ton problème

Si tu veux que les case soit précoché. Il faudrais a mon avis dans la macro

Code:

---

1 2 3

Private Sub UserForm_Initialize() 'ton code End Sub

---

réaliser plusieur teste pour savoir si les chekbox doivent être coché
Exemple

Code:

---

1 2 3

if Range("B1").Value = "Colonne2" then CheckBox2.Value=true end if

---

Atention ce type de modification lance la macro liéé au checkbox.
(pour m'en passer j'utilise une variable global que je teste en début de macro)

Merci pour ta réponse et pour l'astuce de simplification :)

Sinon concernant le dernier code que tu donne, j'ai souhaitais l'intégrer dans mon CommandButton1 afin que la vérif des colonnes se fasse seulement lorsque je souhaite les modifiers, mais dans ce cas la j'obtiens l'erreur :

Variable non définie, concernant CheckBox2... Est-ce que c'est parce que la checkbox est dans l'userform et le commandbutton est sur feuil1? Je suppose que oui, mais dans ce cas la, quel peut être le "chemin" pour indiquer que c'est dans l'userform?

[edit] : je remarque que je ne peut pas faire le test au niveau des choeckbox, parce que si j'insère ce code, je ne peut plus décocher la case. Ce que je comprends, mais c'est juste pour indiquer que je penses que la vérification doit se faire au moment d'appuis du CommandButton...

Je ne suis pas sur de comprendre ce que tu veux vérifier. Mais je te laisse seul juge.

Pour ton problèmede variable non définie je suppose que tu utilise l'option explicit, je ne peux que te féliciter cela permet de mettre directement le doigt sur le problème.
Tu as bien compris qu'il faut spécifier de quel cheque box on parle

Code:

---

usrform1.chekbox1.value

---

Par contre uen remarque si tu a fait un unload du userform avant tu perdra toutes les valeurs

Je viens de trouver la solution, j'ai integret le code que tu ma donné dans le sub de l'userform durant l'activation ce qui me donne par exemple :

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate() If Range("B1").Value = "Date" Then CheckBox2.Value = True End If End Sub

---

Maintenant il me suffit de multiplier les IF - End If pour avoir toutes mes colonnes et ça sera bon !

Merci