Discussion :

[gwen.s]

Bonjour,
j’ai un tableau prédéfini disons de Q1 à z100.
La première ligne de ce tableau est faite de cellules mergées, le nombre de colonnes mergées pouvant être différent. Au démarrage, toutes les colonnes du tableau sont cachées.
Dans ma macro, je recherche dans cette première ligne une valeur précise qui peut être présente 1 ou 2 fois max.
Le but de la manœuvre est de « décacher » les colonnes correspondant à la valeur recherchée.
J’ai identifié les cellules de la première ligne où se trouve la valeur dite
Je compte le nombre de colonne correspondant à la cellule mergée
Je trouve l’adresse de la premiere colonne.
Mon problème c’est que je ne sais pas selectionner ces dites colonnes afin de faire un unhide.

Je suis novice donc merci d’être indulgent avec mon code Ci-joint mon bout de code, je laisse le code de selection tout en sachant que c’est faux et certainement une aberration…

Je vous remercie !!

Code :

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

1
2
3
4
5
For Each job_selection In Range("p6:p8")
    For Each job In Range("q1:z1")
    If job.Value = job_selection.Value Then
    nb_column = job.MergeArea.Count
    Columns(job.Address.Offset(0, nb_column - 1)).Select    Selection.EntireColumn.Hidden = False

[gwen.s]

Bon, ben en fait je crois que ça ne peut pas marcher car VBA/excel n'arrive pas à executer le code lorsqu'il s'agit de cellule mergée....

[aalex_38]

Bonjour,

Essai déjà en otant les selections qui ne servent à rien :

Code :

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

Columns(job.Address.Offset(0, nb_column - 1)).EntireColumn.Hidden = False