XL 2019 Trouver une colonne et masquer les autres

[AHK]

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+1😀Z").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+1😀Z").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]

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]

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]

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

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]

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 🙂