Sélection sous condition

Sub Test()

Dim valeurCherchée As String

Dim champRecherche As Range

Dim Derniereligne&

Dim maPlage As Range

Dim c As Range

Derniereligne = Range("A23").End(xlDown).Row

valeurCherchée = "P1"

Set champRecherche = Range("A23:P1" & Derniereligne)

Set maPlage = champRecherche.Find(valeurCherchée, LookIn:=xlValues, LookAt:=xlPart)

For Each c In champRecherche

If UCase(c.Value) Like valeurCherchée & "*" Then

Set maPlage = Union(maPlage, c)

End If

Next c

maPlage.Select

End Sub

Bonjour,

Bonne année,

J'aimerai utiliser cette macro pour mon tableau et j'aimerai que la sélection finale se fasse de la colonne B à la colonne P. Tout en maintenant la recherche sur la colonne A. Comment l'adapter s'il vous plait ?

PS : Désolé je sais que le sujet date.

Je dirais

Derniereligne = Range("A1").End(xlDown).Row

Set champRecherche = Range("B1:P" & Derniereligne)

Merci pour la réponse rapide mais cela ne fonctionne pas...

Ma plage de recherche commence en A23.

Merci pour votre en tout cas

Salut bb4101d,

Salut edlede,

dans ce code que tu as repris d'un sujet ancien, "P1" avait la valeur "A"... qui se trouve être par hasard la colonne de recherche initiale!

valeurCherchée = "P1"
Set champRecherche = Range("A23:P1" & Derniereligne)

Tu dois donc mettre :

Set champRecherche = Range("A23:A" & Derniereligne)

Tu devrais joindre un fichier et expliquer clairement ce que tu recherches!

A+

Bonsoir, sujet résolu merci à tous pour votre aide.