XL 2016 excel VBA : recherche dans une colonne sans la sélectionner

[Phillip]

Bonjour,

je cherche à faire une recherche dans la colonne A, et attribuer un nom à cette cellule trouvée.

Dans le code ci-dessous, je sélectionne colA (donc colonne A) et ça marche. Si je supprime la ligne colA.Select, cela ne marche PLUS ? Pourquoi ? Mystère ?

Sub cherche()
Dim colA As Range

Set colA = Columns("A:A")

colA.Select

Set Balise1 = colA.Find(What:="Balise1", After:=ActiveCell, LookIn:=xlFormulas2, LookAt:=xlPart, _
      SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not Balise1 Is Nothing Then ActiveWorkbook.Names.Add Name:="mystere", RefersTo:=Balise1


End Sub

Merci d'éclairer ma lanterne...Et si le code est à modifier, merci de m'indiquer où !

Cordialement

Phillip

 

[Phillip]

Bon, alors, je ne sais pas si ma lanterne s'est éclairée tout de suite, mais cela MARCHE en fait sur mon fichier test "mystere". Cela ne marchait PAS sur mon fichier principal.

Sur mon fichier principal J'ai tenté d'inverser mes lignes set de Balise 2 et 1 (car j'en ai plusieurs), et cela MARCHE sans sélectionner la colonne A (colA.Select), et je n'ai même pas d'erreur sur la recherche balise 1 comme j'avais quand elle était en première position (incompatibilité de type). Le mystère s'épaissit cependant...

Set colA = Columns("A:A")
 
'colA.Select
 
    Set Balise2 = colA.Find(What:="Restaurants", After:=ActiveCell, LookIn:=xlFormulas2, LookAt:=xlPart, _
      SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not Balise2 Is Nothing Then ActiveWorkbook.Names.Add Name:="Restaurants", RefersTo:=Balise2
 
  
   Set Balise1 = colA.Find(What:="Mensuelles", After:=ActiveCell, LookIn:=xlFormulas2, LookAt:=xlPart, _
      SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not Balise1 Is Nothing Then ActiveWorkbook.Names.Add Name:="Mensuelles", RefersTo:=Balise1

 

[Phillip]

Désolé de la confusion...Cela ne marche PAS sur mon fichier de tests...Ni sur mon fichier principal, que j'inverse OU PAS mes set balise1 et 2...erreur de syntaxe dans mon set colA ?

merci de votre compréhension...

Cordialement

 

[Phillip]

Bon ! Cette fois-ci, je crois que j'ai trouvé. En fait find, tel que je l'ai écrit fait la recherche après la cellule active

After:=ActiveCell,

Et comme il n'y a PAS de cellule active, ça plante. en enlevant ce paramètre optionnel, cela marche !

Et j'espère que je ne reviendrais pas là-dessus !

merci aux lecteurs !

Cordialement

 

[job75]

Bonjour Phillip,

Remplacez LookIn:=xlFormulas2 par LookIn:=xlFormulas

A+