Problème Macro variable

Bonjour,

J'ai un petit problème lorsque que j'ajoute une colonne dans ma feuille ma macro se décale et ne correspond plus à ma demande, j'aimerais donc faire correspondre ma macro à une valeur et non à une cellulle.

Merci d'avance au petit génie qui trouverais la solution.

Bonne journée et joyeuses fêtes.

Bonjour, Petit génie le mot est faible !

sans fichier est sans macro .. c'est un miracle qu'il te faut ; pas un génie.

J'avais oublié le fichier, mes excuses ! :)

Bonjour,

faire une boucle sur la ligne d'entête de colonne : si = à TP alors on masque sinon on ne fait rien

@ bientôt

LouReeD

Bonjour,

Merci pour votre réponse, j'avais essayé de faire la boucle avec if mais mon résultat ne fonctionnait pas !

Si vous avez une idée du détail de la boucle je suis preneur, merci d'avance :)

Bonne journée.

Je ne vois aucun macro dans le fichier joint.

et puisqu'il y a plusieurs bouton indiquez le nom de la macro à adapter à l'insertion de colonne.

J'ai mieux expliquer ma demande dans le fichier, merci pour le temps accordé !

Macro non accessible c:\users\tdhervillez\... \Copie de Devis modèle.xlsm

Bonjour à tous,

Un essai avec une macro "empruntée" à BsAlv.....(merci à lui,)

La macro masque les colonnes (à partir de I) si elles sont visibles, sinon, elle les affiche...(comme un bouton à bascule)...

Sub masquer_demasquer()
 Dim R As Range, C, b
  For Each C In ActiveSheet.Range("I23:CD23").Cells
   If StrComp(C.Text, "TP", 1) <> 0 Then
    If R Is Nothing Then
     b = C.EntireColumn.Hidden
     Set R = C
    End If
     Set R = Union(R, C)
   End If
  Next C
 If Not R Is Nothing Then R.EntireColumn.Hidden = Not b
End Sub

CTRL + e pour exécuter la macro.

Cordialement,

Re bonjour,

A adapter selon vos besoin si le bouton bascule de Xorsankukai ne vous convient pas

Sub Macro1()
Dim Dercol As Long
Dercol = Range("i23").SpecialCells(xlCellTypeLastCell).Column
For i = 9 To Dercol
If Cells(23, i).Value = "TP" Then
Cells(23, i).EntireColumn.Hidden = True
End If
Next i

End Sub

Il suffira d'une même macro avec la valeur Hidden=False pour réafficher les colonnes.

Salut Xmenpl,

Attention,

Pour synthetiser, je veux masquer les colonnes ne contenant pas TP donc afficher seulement les colonnes TP

Cordialement,

Merci pour vos réponses j'ai réussi à trouver mon bonheur grâce à vos deux démonstrations.

Merci pour le temps accordé, vous avez fait un heureux ! :)

Bonne journée, à bientôt !

Re,

Merci pour le retour,

Si ton problème est résolu, pense à clôturer le sujet.

• Pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER.

Bonne continuation,

Cordialement,

xorsankukai a écrit :

Salut Xmenpl,

Attention,

Pour synthetiser, je veux masquer les colonnes ne contenant pas TP donc afficher seulement les colonnes TP

Cordialement,

J'ai bien fais de mettre " à adapter selon vos besoins lol