XL 2019 Trouver une colonne et masquer les autres

AHK

XLDnaute Nouveau
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:DZ").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:DZ").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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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 :)
 

Discussions similaires

Réponses
10
Affichages
630

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO