TU ES MAGIQUE !!!
Et je pèse mes mots !
Merci infiniment pour ton coup de main. C'est exactement ce que je cherchais.
Maintenant, comme j'aime bien comprendre ce qui se passe; j'ai plusieurs questions qui me viennent à l'esprit :
- comment puis-je copier la barre d'outils que tu as créé dans ma feuille de calcul d'origine. J'ai bien essayé d'aller dans la personalisation du ruban; mais je ne vois pas la barre d'outils tofneu, ni aucun bouton.
- j'ai bien trouvé le module 1 qui contient tes macros, mais j'ai du mal avec le IRibbonControl !!
- d'une manière générale, comment puis-je faire une macro déclenchée par un bouton comme tu as fait ? Je pense avoir compris la philosophie de la chose : on teste pour voir si la colonne est cachée, on affecte une valeur vrai ou fausse suivant qu'elle est masquée ou non et ensuite, en fonction de la valeur de bcol, on masque ou non. C'est ça ?
Si éventuellement tu pouvais commenter ta macro en rajoutant ce pourquoi tu as faits telle ou telle commande ci-dessous :
Sub Macro1(control As IRibbonControl)
Dim bColF As Boolean
If Sheets("VENTES").Columns("F").EntireColumn.Width = 0 Then
bColF = False
Else
bColF = True
End If
If bColF = True Then
Sheets("VENTES").Columns("F").EntireColumn.Hidden = True
bColF = False
Else
Sheets("VENTES").Columns("F").EntireColumn.Hidden = False
bColF = True
End If
Je vais passer un bon dimanche, dans l'attente de te lire avec impatience. Merci encore, c'est vraiment sympa de te mettre à la dispo de petits scarabées qui apprenent tant bien que mal.
Tofneu