Discussion :

[patrick55]

Bonjour,
J'ai un Fichier avec 2 colonnes de références repérées par une zone nom

1 Je voudrais masquer les colonnes dés qu'elles sont pleines

Ce que j'ai trouvé, mais c'est une utilisation unique

Code :

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

1
2
3
Application.Goto Reference:="EffaceCol"
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True

2 je voudrais insérer une colonne dés que la colonne la plus à droite reçoit une valeur

Ce que j'ai trouvé, ça marche avec un bouton, mais bon !!

Code :

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

1
2
3
Application.Goto Reference:="AjoutCol"
    Selection.Insert Shift:=xlToRight
Range("C1").Select

Je ne sais pas si c'est clair,
je joins un fichier pour éclaicir un peu ma requête

Merci pour votre aide
Patrick

[wilfried_42]

Bonjour patrick

Ton fichier en retour, le code est expliqué pas à pas

bon dimanche