Bonjour

Met tous tes checkb0x dans un cadre (frame1)

ensuite essaie

for i = 0 to 51 (on commence la numérotation à 0 pour le 1er controle dans le cadre)
frame1(n)=true
next i

Merci sncf pour ta réponse rapide :)

J'ai essayé ce que tu m'as donné, mais tout ce qu'il me fait c'est qu'il me coche la 1re CheckBox (CheckBox1) uniquement quand je clique sur le bouton "Sélectionner tout"... Il y a donc un problème.
Quand j'ai regardé de plus près, j'ai remarqué que le "i" de l'incrémentation n'apparaissait pas dans la ligne de commande, je me dis que c'est donc normal qu'il n'y ait qu'une seule CheckBox de cochée...
Tu en penses quoi ?

Salim

Toutes mes excuses
voici le bon code

Dim i As Integer
For i = 0 To 51
Me.Frame1(i) = True
Next i

Désolé, je vous coupe, mais est-ce que quelqu'un sait pourquoi ce code là ne fonctionne pas:

For Each CheckBox In Sheets(1).CheckBoxes
CheckBox.Value = True
Next CheckBox

J'ai l'impression qu'il ne trouve pas les CheckBox dans la collection et je ne comprends pas pourquoi, mais si quelqu'un arrive à faire fonctionner ce code, ça résoudra le problème...

Ca marche toujours pas... Je pense que ça vient du "Me" dont je comprend pas le sens.
En plus, la réponse à xjl m'intéresse beaucoup également.
Merci d'avance ;)

Super !! Merci beaucoup sncf ;) Ca a l'air de marcher.
Je vais essayer ça tout de suite sur mon projet et voir si ça peut arranger mes soucis. Je te rend la réponse dès que les tests seront faits.
Merci encore ! :)

Aïe ! J'ai un petit problème encore... Sur mon Userform, il n'y a pas que des CheckBox, mais aussi des Label (Intitulés) pour indiquer justement que telle semaine est concernée par telle case à cocher... Ces label sont numérotés de la même manière que les CheckBox. Donc quand j'exécute ton programme, il me change le nom des Label (les Label passent de "S01", "S02"... à "True").
Que de problèmes !! lol
J'ai essayé de sortir les Label de la Frame mais la Frame reste toujours au premier plan... Et j'ai aussi essayé d'utiliser Userform1.Frame1(i).Value = True, mais il me met un message d'erreur...

Je ne comprend pas, ta première case à cocher s'appelle comment et ta première étiquette s'appelle comment et quel est le libellé
Les etiquettes sont elles égalemnt dans le frame1 ?

Quelle est l'utilité de mettre une étiquette pour indiquer S01 alors que dans les propriétés de checkbox tu as caption qui te mertmet de le faire (en plus ça fit moitié moins de controles)

Pour être clair, chaque semaine i est concernée par une CheckBox numérotée i (CheckBox25 pour la semaine 25 par exemple), et chaque CheckBox i est accompagnée par un Label du même numéro i (Label25 pour la CheckBox25, dont le libellé est "S25").
Donc la semaine 25 est indiquée par une case à cocher juste à coté d'une étiquette "S25". Forcément, les Label font aussi partie de la Frame...
C'est clair j'espère :) Sinon n'hésite pas à me demander

Pour y voir plus clair, peux tu m'envoyer ton formulaire (exporter CTRL+E pour générer un fichier frm). Je t'envoie un message privé pour t'indiquer mon adresse e mail

C'est envoyé ;)
Le but de ce Userform est de simplifier l'utilisation d'un programme VBA. L'utilisateur pourra choisir les semaines qu'il veut sur le Userform, et ce dernier s'occupera d'exécuter le programmes pour ces semaines. Le bouton Sélectionner tout n'est qu'un début comme je disais dans mon 1er post

solutions pour résoudre ton problème
Solution 1

Suppression de l’étiquette Label1 ( en fait je l’ai seulement déplacé sous S02)
Redimensionnement de la Chekbox1 (elle masquait tout ce que tu pouvais écrire dans caption)
Caption = S01
Alignment = 0 –fmAlignmentLeft
TextAlign = fmTextAlignRight
En redimensionnant légèrement en hauteur tu obtiens le résultat souhaité et tu supprimes du même coup la moitié des controles (toutes les Labels)

J'étais justement en train de t'écrire que la 2e solution ne marchait pas... Elle aurait eu le mérite d'être plus rapide... Dommage !
Je vais m'atteler à la 1re, qui doit forcément marcher ;)

Merci infiniment les gars !!
J'ai opté pour la solution de sncf, qui marche très bien, parce que je m'étais déjà engagé sur cette voie, mais la solution de Us m'a l'air d'être très ingénieuse aussi.
En tous cas, j'ai réussi à faire ce que je voulais, merci à vous ! ;)
Deux toutes petites questions pour la route :
1. comment faire appel au Userform à partir des macros ?
2. en cliquant sur OK, le Userform va me générer le programme que je veux, mais je voudrais que le Userform se ferme automatiquement juste après. Comment faire ?

Salim

EDIT : j'ai trouvé la solution pour la 1re question ;) je suis allé sur les modules, j'ai tapé :

Sub UserForm()
UserForm1.Show
End Sub

et ça m'a créé une macro pour afficher mon Userform

EDIT bis : de même, j'ai trouvé la solution pour la 2e question (décidément, je suis chaud aujourd'hui lol). Cette fois-ci, il faut mettre à la fin du Private Sub du bouton Valider : Userform1.Hide... Simplement ;)
Merci encore de votre gentillesse, de votre compétence et de votre patience :)
A bientôt

Salim

USERFORM1.SHOW = Charge et lance l'useform1

USERFORM1.LOAD = Charge l'userform1 (mais ne l'affiche pas)
USERFORM1.HIDE = Cache l'userform1 (elle reste en mémoire à condition qu'elle soit chargée)

UNLOAD USERFROM1 = Décharge l'Userform1 ! donc ferme l'userform (elle n'est plus visible)

En général , on l'utilise cette dernière derrière un bouton où l'on code :

Unload Me

Voilà un peu de vocabulaire... :-);
Amicalement, Us.

Pour fermer un formulaire nommé unserform1
unload userform1 Pascal

Bonjour à tous,
C'est mon premier post ici
J'ai une petite question toute bête (j'espère qu'elle n'a pas trouvé de réponse ailleurs)
J'ai créé des checkbox sur un userform et des scripts qui s'exécutent lorsqu'on les active. Ex : un autre userform s'ouvre en indiquant que l'utilisateur s'est trompé en activant cette checkbox.
Je voudrais qu'en fermant ce nouveau userform, la checkbox activée par erreur se désactive automatiquement.
Y'a-t-il un code pour ça?
D'avance merci vous me rendriez un GRAND service