Fonction de Recherche

[Newbe]

Bonjour,
Je débute en VBA et je dois créer une macro qui cherche un mot dans la première ligne de mon tableau et qui colorie ensuite la colonne correspondante en jaune. J'ai écrit le code correspondant mais lorsque je le lance il me renvoi une erreur 91 et je sais pas trop comment y remedier.
Ca ressemble à ça:

Public Sub recherche_colonne()
Dim col As Integer
Dim c As Range
donnée = "ISIN"

x= [A1,Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Adress
set c=range(x)
col=c.column
Range("col").Select
For i=1 To 4
Range("col" & i).Interior.color=vbYellow
Next i

End Sub


Si quelqu'un sait ce qui ne fonctionne pas...

 

[phlaurent55]

Re : Fonction de Recherche

Bonjour Newbe,

Range("col").Select
For i=1 To 4
Range("col" & i).Interior.color=vbYellow

essaie en enlevant les guillemets qui entourent -----> col

à+
Philippe

 

[Newbe]

Re : Fonction de Recherche

Bonjour phlaurent55 et merci de ta réponse (Ça va vraiment très vite ici).
J'ai essayé mais apparemment ce n'est pas ça (ou en tout cas pas que ça).
Le débogueur me surligne la ligne:
x= [A1,Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Adress

 

[Newbe]

Re : Fonction de Recherche

Maintenant il me dit: Variable objet ou variable de bloc With non définie

 

[phlaurent55]

Re : Fonction de Recherche

Re,

x= [A1,Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Adress
set c=range(x)

j'émet des doutes sur ce qui est en rouge
mais sans voir ton fichier avec explications claires et précises 😕😕😕
parce que dans le code que tu donnes, je ne vois pas de "With"

à+
Philippe

Edit: très peu disponnible en ce moment pour cause de foot à 16h00

 

[Habitude]

Re : Fonction de Recherche

Bonjour phlaurent55 et merci de ta réponse (Ça va vraiment très vite ici).
J'ai essayé mais apparemment ce n'est pas ça (ou en tout cas pas que ça).
Le débogueur me surligne la ligne:
x= [A1,Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Adress

x= [A1:Z1]

 

[Hulk]

Re : Fonction de Recherche

Hello Newbe, Philippe 🙂

A mon avis c'est la déclaration de col qui ne joue pas, essaie Dim col As Variant...

 

[Newbe]

Re : Fonction de Recherche

J'ai simplement un classeur avec une feuille dont la première ligne contient une cellule ISIN et je cherche à colorier la colonne ISIN.
Oui il n'y a pas de With et je ne sais pas comment manipuler le With EndWith...
C'est ça mon problème 😕😕

 

[Habitude]

Re : Fonction de Recherche

Public Sub recherche_colonne()
dim donnée as string
donnée = "ISIN"

x = [A1:Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address

For i = 1 To 4 'ICI ca va colorer les lignes 2 à 5
Range(x).Offset(i, 0).Interior.Color = vbYellow
Next i

End Sub

 

[Habitude]

Re : Fonction de Recherche

Pour colorier la colonne en entier

Public Sub recherche_colonne()

Dim donnée As String
donnée = "ISIN"

x = [A1:Z1].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address

Columns(Range(x).Column).Interior.Color = vbYellow

End Sub

 

[phlaurent55]

Re : Fonction de Recherche

Re,

voir fichier joint, sans macro mais avec MFC

à+
Philippe

 

[Newbe]

Re : Fonction de Recherche

Extraordinaire!!!
Je me cassais la tête dessus depuis 2 heures et vous m'avez arrangé ça en 3 posts...
Merci à tous et merci Habitude en plus le code est beaucoup plus simple comme ça 🙂🙂🙂