XL 2010 Afficher colonnes bouton

[erwanhavre]

Bonjour j'ai encore besoin d'un coup de pouce (voir pj) je souhaiterai afficher les colonnes de la feuille planning à l'aide des boutons de la feuille Para, n' afficher que les colonnes dont la ligne 1 correspond au bouton cliqué
merciii

 

[phlaurent55]

Bonjour à tous,

voir fichier joint

à+
Philippe

 

[erwanhavre]

Bonjour merci pour votre retour
Par contre je ne l'ai pas précisé mais le tableau n'est pas figé
en d'autres termes je peux insérer, ajouter des colonnes ...

 

[phlaurent55]

Re,

Bonjour merci pour votre retour
Par contre je ne l'ai pas précisé mais le tableau n'est pas figé
en d'autres termes je peux insérer, ajouter des colonnes ...

Il n'y a pas de problème, actuellement le code est prévu pour tester jusqu'à la colonne AA (colonne 27)
For i = 2 To Range("AA8").End(xlToLeft).Column

Si ça ne suffit pas, tu peux étendre jusqu'à la colonne XFD ( c'est le 16384 ème colonne)
For i = 2 To Range("XFD8").End(xlToLeft).Column

à+
Philippe

 

[phlaurent55]

Re,

une autre manière de procéder (sans boutons)

à+
Philippe

 

[erwanhavre]

de mon coté lorsque j'ajoute une colonne cela masque la colonne "o"

 

[Lone-wolf]

Bonjour erwanhavre, Philippe, le Forum

@erwanhavre : si la colonne O contient S1 - S2 ou S3, normal qu'elle soie masquée selon le choix que tu as fait. Sinon, il faut sélectionner VOIR TOUT, pour afficher toutes les colonnes.

 

[erwanhavre]

exemple je copie la colonne d je l’insère je change le nom en celulle d9 je touche au filtre... hé bah de mon coté cela me masque quand même la colonne la colonne O

 

[Lone-wolf]

Re

C'est ceci qu'il faut modifier Columns("B:N").EntireColumn par ("B:XFD").EntireColumn.Hidden = False

Et tu peux aussi changer Range("XFD8").End(xlToLeft).Column par UsedRange.Columns.Count

 

[erwanhavre]

c'est tout bon merci

 

[erwanhavre]

je sais que je devrais ouvrir une autre discussion mais je passe par là quand même lol
j'ai besoin de bloquer une macro (par msg box) si la cellule a1 de la feuille active et la cellule c6 sont identiques
pouvez vous m'aider ?

 

[Lone-wolf]

Re

Un test comme ceci

If Range("a1").Value = Range("c6").value then
Msgbox "La valeur est identique", vbExclamation, "ATTENTION !"
Exit Sub
End If

 

[phlaurent55]

Re,

@Lone-wolf
Merci d'avoir pris la relève pendant que je gardais mes petits-fils

à+
Philippe

 

[Lone-wolf]

Re Philippe

@phlaurent55

Et bien, comme j'ai regardé le fichier et j'ai vu le problème, j'ai répondu.