Trouver une valeur dans une colonne masquée

[zephir94]

Bonjour à tous,

J'ai un soucis avec une recherche dans une colonne masquée.
Voici mon code

Sub testT()

Dim trouve As Range
Dim J As String
Dim valeur As String

valeur = "T"

With Sheets("synoptique")
  Set trouve = .Range("verif").Columns(1).Find(valeur, lookat:=xlWhole)
 If trouve Is Nothing Then Exit Sub
  J = trouve.Row
End With
End Sub

Si la colonne A de la zone nommée Verif est visible il n'y a aucun soucis la Valeur T est bien trouvée, par contre si la colonne A est masquée ( ce qui doit être le cas ) la valeur T n'est pas trouvée

Merci par avance pour vos aides

 

[zephir94]

Re : Trouver une valeur dans une colonne masquée

Je pourrais démasquer et masquer la colonne comme ceci :

Sub testT()
Dim trouve As Range
Dim J As String
Dim valeur As String

valeur = "T"

With Sheets("synoptique")
  .Range("verif").Columns(1).EntireColumn.Hidden = False
  
  Set trouve = .Range("verif").Columns(1).Find(valeur, lookat:=xlWhole)
 If trouve Is Nothing Then Exit Sub
  J = trouve.Row
.Range("verif").Columns(1).EntireColumn.Hidden = True
End With
End Sub

Mais il doit y avoir un moyen de faire plus propre non ?

 

[Paf]

Re : Trouver une valeur dans une colonne masquée

Bonjour

Les paramètres des arguments LookIn, LookAt, SearchOrder et MatchByte sont enregistrés chaque fois que vous utilisez cette méthode. Si vous ne spécifiez aucun paramètre pour ces arguments lors du prochain appel de la méthode, les paramètres enregistrés sont utilisés.

Trouvé sur ce fil de discussion au sujet identique:
Recherche find sur colonne masquée [Résolu]

et apriori en utilisant cette formulation ça fonctionne

Set trouve = .Range("verif").Columns(1).Find(valeur, LookIn:=xlFormulas, lookat:=xlWhole)

non testé

A+