Fonction de Recherche

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Juin 2010

• #2

Re : Fonction de Recherche

Bonjour Newbe,

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

Cliquez pour agrandir...

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

à+
Philippe

 

Vote positif 0 Vote négatif

N

Newbe

Guest

• 22 Juin 2010

• #3

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

 

Vote positif 0 Vote négatif

N

Newbe

Guest

• 22 Juin 2010

• #4

Re : Fonction de Recherche

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Juin 2010

• #5

Re : Fonction de Recherche

Re,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 22 Juin 2010

• #6

Re : Fonction de Recherche

Newbe à dit:

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

Cliquez pour agrandir...

x= [A1:Z1]

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 22 Juin 2010

• #7

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...

 

Vote positif 0 Vote négatif

N

Newbe

Guest

• 22 Juin 2010

• #8

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 😕😕

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 22 Juin 2010

• #9

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

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 22 Juin 2010

• #10

Re : Fonction de Recherche

Pour colorier la colonne en entier

Public Sub recherche_colonne()

Code:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Juin 2010

• #11

Re : Fonction de Recherche

Re,

voir fichier joint, sans macro mais avec MFC

à+
Philippe

 

Pièces jointes

• 111.xls

  14.5 KB · Affichages: 45
• 111.xls

  14.5 KB · Affichages: 42
• 111.xls

  14.5 KB · Affichages: 43

Vote positif 0 Vote négatif

N

Newbe

Guest

• 22 Juin 2010

• #12

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 🙂🙂🙂

 

Vote positif 0 Vote négatif