VBA recherche

[laclac]

Bonjour,

Je créer ma première macro donc je suis débutant mais ayant de bonne connaissance en programmation, je men sors plutot bien.

J'ai un tableau où la 1er ligne possède les entetes.
Jaimerais connaitre la colonne de l'entete "Nom Client".
Jai fais un bibouillage qui me va pas et qui ne fonctionne pas.

1) Erreur sur :Range("a1:a" & Range("IV1").End(xlToLeft) pour avoir la derniere collonne de la 1er ligne.

2) jai pris un script que jai trouvé sur ce site, mais il me parait gros pour ce que je ve faire, parce que "Nom client" n'est qu'une fois sur ma page.

3) Question de culture générale : Je veux travailler que sur la 1er page donc je met tjs Sheet("feuil1"). Mais jai vu que d'autres scripts ne procede autrement (ou il y a rien ou ThisWorkbook.Sheets(Index) ou autre encore). Qu'elle est le mieux ?

Merci d'avance ..

Voici mon code :


Dim x
x = "Nom client"

With Sheet("feuil1").Range("a1:a" & Range("IV1").End(xlToLeft))
Set C = .Find(x, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Interior.ColorIndex = 3
C.Font.ColorIndex = 2
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With

 

[pyrof]

Bonjour,

Voici une petite aide

Affecte un nom a la cellule "Nom client"

pour récupérer la colonne dans le vba :

colonne=range("nom").column

Ainsi si tu ajoutes une colonne dans ton tableau, tes macros sont toujours bonnes

bon weekend