XL 2010 Afficher colonnes bouton

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Août 2018

• #2

Bonjour à tous,

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  15.8 KB · Affichages: 25

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 13 Août 2018

• #3

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 ...

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Août 2018

• #4

Re,

erwanhavre à dit:

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 ...

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Août 2018

• #5

Re,

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

à+
Philippe

 

Pièces jointes

• 111.xlsm

  16.4 KB · Affichages: 27

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 13 Août 2018

• #6

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Août 2018

• #7

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.

 

Dernière édition: 13 Août 2018

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 13 Août 2018

• #8

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 😱

 

Pièces jointes

• 111 (1).xlsm

  16.2 KB · Affichages: 28

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Août 2018

• #9

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

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 13 Août 2018

• #10

c'est tout bon merci

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 13 Août 2018

• #11

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 ?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Août 2018

• #12

Re

Un test comme ceci

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Août 2018

• #13

Re,

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

à+
Philippe

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Août 2018

• #14

Re Philippe

@phlaurent55

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

 

Vote positif 0 Vote négatif