recherche

[llebucheur]

Bonjour à tous,
Chaque jour apporte son lot de problème quotidien. Actuellement mes problèmes sont d'ordre informatique, c'est pourquoi je vous appel tout les jours à l'aide.
Aujourd'hui je souhaite programmer une macro qui regarde à l'intérieur d'une ligne bien définie de mon classeur excel et qui me renvoie le numéro de la colonne concernée. Je sais que le fonction "=MATCH(équipe,"A1:AZ1") existe mais elle me renvoie des résultats abérants.
Quelqu'un peut il m'indiquer une autre fonction plus performante?
Je compte sur vous. 🙂
Je colle ce que j'ai fait:

Sub équipe()
'Workbooks(Newroot).Activate
Eq = MsgBox("Veuillez indiquer le nom de l'équipe concernée:", 0, "Numéro de l'équipe")
Cells(2, 30).Formula = "=MATCH(""equipe"",A1:AR1)"
End Sub

Cordialement

 

[kjin]

Re : recherche

Bonjour,

Chaque jour apporte son lot de problème quotidien

Il y en a qui préfère annualiser 😀
Pour ce qui est de ton pb, c'est loin d'être clair

Sub envoi()
Eq = InputBox("Nom de l'équipe ?")
Cells(2, 30).Formula = "=MATCH(""" & Eq & """,A1:AR1)"
End Sub

à défaut

Sub envoi()
Eq = InputBox("Nom de l'équipe ?")
Set c = Range("A1:AR1").Find(Eq)
If Not c Is Nothing Then colonne = c.Column
End Sub

A+
kjin

 

[llebucheur]

Re : recherche

Bon ben en fait me suis démerdé tout seul ( 2 fois en deux jours), vous êtes dur avec moi!
Bref je colle ce que j'ai fait:


myVar = Application.WorksheetFunction _
.Match("equipe", Range("A1:AZ1"), 0)
MsgBox myVar
' Eq = InputBox("Veuillez indiquer le nom de l'équipe concernée:", "Numéro de l'équipe")

A bientôt

 

[kjin]

Re : recherche

Re

Bon ben en fait me suis démerdé tout seul ( 2 fois en deux jours), vous êtes dur avec moi!

Aides toi...
Désolé mais la boule de cristal, je n'y crois pas
Une question correctement formulée trouve presque toujours une réponse sur xld
"équipe" ? je sors d'où l'explication ? de mon chapeau ? 😡
A+
kjin