XL 2019 Trouver une colonne et masquer les autres

AHK · 16 Août 2021

Bonjour,

J'ai un fichier avec plusieurs feuilles qui correspondent a plusieurs secteurs de mon entreprise.
Dans chaque feuille il y a un tableau de polycompétences.

Ce que je souhaiterai faire c'est de trouver la colonne correspondant à la personne grâce à la formule Cells.Find.

Puis je souhaiterai masquer les autres colonnes.

Voici comment j'ai pensé le code :

Dim Mafeuille As String

'Affecter la variables Ma feuille et Personne

Mafeuille = Worksheets("Accueil").Range("AQ9").Text
Personne = Worksheets("Accueil").Range("AU6").Text

'aller sur feuille

Worksheets(Mafeuille).Activate

'Rechercher la cellule de la personne
Trouve = Cells.Find(What:=Personne, LookAt:=xlWhole)
'Masque toute les colonnes des personnes sauf la Trouve
Range("Trouve+1Z").EntireColumn.Hidden = True
Range("D:Trouve-1").EntireColumn.Hidden = True

Le problème est que cela ne fonctionne pas. Le déblogueur me mets la ligne "Range("Trouve+1Z").EntireColumn.Hidden = True" en jaune.

Je suppose que c'est mon Trouve+1 qui gêne mais je ne sais pas pourquoi ....

Si quelqu'un a une solution svp ?

Lolote83 · 16 Août 2021

Bonjour,
Peut être les guillemets mal placés
Remplacer les lignes

Range("Trouve+1:Z").EntireColumn.Hidden = True
Range("D:Trouve-1").EntireColumn.Hidden = True

par

Range(Trouve+1 & "Z").EntireColumn.Hidden = True
Range("D:" & Trouve-1).EntireColumn.Hidden = True

@+ Lolote83

AHK · 16 Août 2021

Bonjour,

Merci pour ta réponse.
J'ai essayé mais j'ai un message erreur d'exécution '13' : Incompatibilité de type ...
J'ai essayé avec les 2 points aussi et sans avec les "&" et sans, mais non rien ...

Lolote83 · 16 Août 2021

Re bonjour,
Que te donne la valeur Trouve ? Un chiffre ?
Donc voici un exemple :

VB:

Sub Macro2()
    Trouve = 7                  'soit colonne G
    xCol = Chr(64 + Trouve)
    Range(xCol & ":Z").EntireColumn.Hidden = True
End Sub

En espérant que cela convienne
@+ Lolote83

AHK · 16 Août 2021

Rebonjour,

Trouve est la cellule que je cherche.
Mais enfaite en regardant d'autre post je me suis aperçue que ce que j'avais fait n'était pas adapté donc j'ai fais une boucle qui marche bien.

Merci beaucoup de votre aide

XL 2019 Trouver une colonne et masquer les autres

AHK

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

AHK

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

AHK

XLDnaute Nouveau

Discussions similaires