[Excel 2007]Case à cocher "Sélectionner tout" Résolu

Question

Bonjour, 


J'ai un tableau, avec devant chaque ligne une case à cocher. Je voudrais créer en haut une case "selectionner tout" qui permetterait de faire passer instantanément la valeur de toutes mes case à cocher à "Vrai". J'ai essayer en leur attribuant à toutes la meme cellule lié mais ça ne marche pas. 
Pour infos j ai insérer ces cases avec "Controles de formulaire"

qqn à une idée, une macro??

MErci d avance.

Configuration: Windows 7 / Safari 534.7

Le Pingou · Accepted Answer

Bonjour,
Votre case "selectionner tout" porte le numéro27 (à vous de l'adapter!)
La procédure :
Private Sub CheckBox27_Click()
Dim Obj As OLEObject
For Each Obj In ActiveSheet.OLEObjects
        If TypeOf Obj.Object Is MSForms.CheckBox Then
            Obj.Object.Value = True
        End If
Next Obj
End Sub--
Salutations.
Le Pingou

lermite222 · Answer

Bonjour, Bonjour Le pingou.
Ca ne marche qu'avec des CheckBox de la barre d'outils "Contrôles" pas avec les outils "Formulaire".
Change tes CheckBox par des checkBox Contrôles.
A+

Pyvoudelet · Answer

Bon je me rend compte que c est trop la galère pour du luxe.  En fait ce que je veux arriver a faire au final, c est qu il me recopisse dans un autre tableau que les ligne qui auront été selectionnée.... 

vous vouyez mon soucis?

lermite222 · Answer

Tu a beaucoup de ligne sur ta feuille ? Combien ?

lermite222 · Answer

Un classeur exemple 
Il reprend une autre fonction pour un autre poste (Les 2 couleurs) 
Tu dis 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Le Pingou · Answer

Bonjour,
Ce n'est certainement pas une galère !
Est-il possible de mettre le fichier sur https://www.cjoint.com/ et poster le lien.

Le Pingou · Answer

Bonjour,
Pour la case à cocher formulaire, utiliser cette procédure qui liste que les cases à cocher de la feuille active:
Sub BoucleCheckBoxes_Formulaire()
Dim Cb As CheckBox
For Each Cb In ActiveSheet.CheckBoxes
        Cb.value=true
Next Cb
End Sub--
Salutations.
Le Pingou

Pyvoudelet · Answer

voila le lien : https://www.cjoint.com/?3lBvIGZnB5P  

j ai pas mis mon fichier original, pour des raison de confidentialité de ma boite. dsl les gars.... J y ai repris ce que je voulais y faire j'Espère que ça sera assez clair...

Le Pingou · Answer

Bonjour,
Voici ma proposition : https://www.cjoint.com/?3lClWLOJDEn
J'espère que cela correspond à votre demande

Pyvoudelet · Answer

MErci bien Pingou après y avoir jeter un coup d oeil, cela correspond pas mal a ce que je voulais faire. L'histogramme s'adapte en fonctio ndu nombre de comp selectionner, c est nikel!! 

 Mais pourrais tu vite fait m expliquer comment tu as fait pour le graphique? et pourquoi ta variable litlab commence à 9 ?? soit tu me l explique soit renvoie moi le fichier avec les commentaire dans la macro pour que je puisse l adapter a mon vrai fichier.

J'ai vu que tu avait nommer des plage avec la fonction decaler. Je suppose que c est celle ci que tu te sert pour faire un graphique evolutif, mais comment t en sert tu? 

merci

ça m evitera a vous redemander ulterieurement!

Pyvoudelet · Answer

J ai encore besoin de votre aide pour un diagramme a bulle evolutif!!! allez voir sur https://forums.commentcamarche.net/forum/affich-20005960-excel2007-graph-a-bulles-evolutif-vba#p20005960 merci bcp!!!!

Pyvoudelet · Answer

je sais que j'abuse mais j'ai une dernièr erequete a vous faire messieurs les experts. celle par contre, je ne sais pas si ça sera possible à faire ..... 

https://forums.commentcamarche.net/forum/affich-20026141-excel-2007-histogramme-variable-evolutif#p20026141

MErci pour tout ce que vous avez deja fait pour moi!

[Excel 2007]Case à cocher "Sélectionner tout"

12 réponses

Discussions similaires

Newsletters