Discussion :

[laurentdu84]

bonjour,

j'ai créer des lignes avec validation de données dans chaque cellule de ma ligne, a la fin je mets une case a cocher, je voudrais que quand je coche cette case, tous le texte de la ligne se barre.

Je pense le faire en VBA en creant un case a cocher avec le controle ActiveX

A l'air tous simple mais je n'arrive pas a trouver la fonction barré texte.

Merci beaucoup

[Romain9]

Bonjour,

A adapter selon la cellule pour laquelle tu veux que cela s'applique :

Code :

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

Range("A1").Font.Strikethrough = True

[laurentdu84]

Merci beaucoup

Ca marche pas mal mais il me faudrait sélectionner toute la ligne, sur laquelle se trouve la boite. Le but d'utiliser le controle ActiveX est de pouvoir tirer les cases a coche sur toute les lignes de mon tableur, peut on faire ça?
Il faut aussi que quand la case soit decocher il faut que le texte redevienne NON barré


OU alors faut-il le faire avec une mise en forme conditionnelle?

[Romain9]

Si tu as un contrôle active X de type CheckBox par ligne, je te recommanderai de passer par un module de classe qui permettrait de gérer le clic et de barrer en conséquence toute la ligne en fonction que la case soit cochée ou non.
Cela t'éviterait d'avoir autant de macros que de contrôles Active X.

Pourrais-tu joindre un classeur afin que je voie mieux à quoi tout cela ressemble ?

[laurentdu84]

peut tu m'expliquer ce qu'est un module de classe.

je vous joint un fichier pour visualiser ce que ca peut donner, sachant que j'ai environ 350 ligne a creer.

[laurentdu84]

je viens de faire le code pour de-barrer quand la case est non cocher, je l'ai mis sur toute ma ligne mais maintenant je voudrais un moyen simple de l'appliquer a mes 350 chekbox.

Peut on m'explique comment marche un module de classe

Merci

[Romain9]

Voici un peu de lecture au sujet des modules de classe : http://tissotemmanuel.developpez.com...les-de-classe/

Je reviens vers vous un peu plus tard pour vous proposer une solution si vous n'en avez pas trouvé une d'ici là.

[Romain9]

Voici le classeur avec la macro te permettant de barrer ou non une ligne entière selon que la CheckBox soit cochée ou non.

A l'ouverture, la macro "Initialiser_Collection" se lance et rattache à chaque contrôle ActiveX de type CheckBox une procédure évènementielle click.
Chacune de ses CheckBox auxquelles a été rattachée la procédure évènementielle est ensuite insérée dans une collection.

En dehors de l'ouverture du classeur, tu peux lancer la macro "Initialiser_Collection" via l'onglet Développeur --> Macro. Une fois que tu auras intégré toutes les CheckBox dans ton fichier, relance la macro Initialiser_Collection.

A noter qu'il te faudra peut-être modifier la ligne suivante dans le module standard :

Code :

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

For Each Objet In ThisWorkbook.Worksheets("Feuil1").OLEObjects

La modification serait le nom de la feuille dans laquelle se trouvent les CheckBox.

[laurentdu84]

Merci Beaucoup ca marche super bien c'est exactement ce que je veut faire UN GRAND MERCI a toi