Discussion :

[Invité(e)]

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 :

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

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 :

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

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 :

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

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 !

[Krovax]

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

Code :

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

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

peux très bien devenir

Code :

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

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 :

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

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 :

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

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)

[Invité(e)]

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

[Krovax]

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 :

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

usrform1.chekbox1.value

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

[Invité(e)]

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 :

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

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