Recherche colonne A seulement

Le
Denys
Bonjour à tous,

Je souhaiterais qu'Excel recherche la valeur contenue dans la cellule
"AF13" dans la colonne A seulement.Cependant, excel ne veut pas.
Voici le code:

Private Sub CommandButton1_Click()
Dim valeur, vt
valeur = Sheet3.Range("AF13").Value

Sheet3.Range("A2").Activate
'On Error Resume Next
ActiveSheet.Columns(1).Find(What:=valeur, After:=Range("A2"),
_
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=True) _
.Offset(0, 1).Activate
Unload UserForm3
UserForm4.Show
End Sub

Voyez-vous ou est mon erreur?

Merci pour votre temps

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4596771
Bonjour,

-Si les valeurs de la colonne A sont le résultat de formules:

LookIn:=xlValues?

-Si la colonne A contient des dates:

Le format de la colonne A doit être le même que celui de la date
cherchée.

http://boisgontierjacques.free.fr/fichiers/jb-Find.zip

JB

On 25 juin, 16:23, Denys
Bonjour à tous,

Je souhaiterais qu'Excel recherche la valeur contenue dans la cellule
"AF13" dans la colonne A seulement....Cependant, excel ne veut pas.
Voici le code:

Private Sub CommandButton1_Click()
Dim valeur, vt
valeur = Sheet3.Range("AF13").Value

Sheet3.Range("A2").Activate
'On Error Resume Next
ActiveSheet.Columns(1).Find(What:=valeur, After:=Range("A2"),
_
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=True) _
.Offset(0, 1).Activate
Unload UserForm3
UserForm4.Show
End Sub

Voyez-vous ou est mon erreur?

Merci pour votre temps

Denys


Denys
Le #4596631
Bonjour JB,

Merci beaucoup pour ta réponse et bonne soirée

Denys
Publicité
Poster une réponse
Anonyme