Selectionner une ligne suite à un Find avec VB/Excel

Signaler
Messages postés
53
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
16 mars 2011
-
Messages postés
53
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
16 mars 2011
-
Bonjour,
Je suis en train de dev. une petite appli de gestion sous Excel.
Je bloque que le fait de Sélectionner la ligne et de la mettre en surbrillance afin de faire ensuite un couper/Coller.
Je cherche ma ligne à partir d'une cellule trouvée:

ANNONCE NUM CARTE A CHERCHE
' Définit le message Mbox1
Message = "Entrez le Numéro à chercher"
Title = "Numéro du Client" ' Définit le titre.
Dfault = "13" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
ficCARTE$ = InputBox(Message, Title, Dfault)

'rechercher la valeur
Sheets("TABLE_CLIENT").Select
Columns("A:A").Select
'Définie la valeur à rechercher
'ficCARTE$ = tbCARTE.Value
'Effectue la recherche
Selection.Find(What:=ficCARTE$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Select

'Selectionne la ligne trouvé, la coupe, et la colle
'Range(Selection, Selection.End(xlToRight)).Select
'->> NE MARCHE PAS - CAR C PAS LA LIGNE QUI EST MIS EN SURBRILLANCE !! sNIF ...

'Couper la ligne
Selection.Cut

aps je reprendrais la suite...
Comment est-ce que je peux faire ?
Merci !!!!

2 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
'ANNONCE NUM CARTE A CHERCHE
' Définit le message Mbox1
Message = "Entrez le Numéro à chercher"
Title = "Numéro du Client" ' Définit le titre.
Dfault = "13" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
ficCARTE$ = InputBox(Message, Title, Dfault)

'rechercher la valeur
Sheets(1).Select
Columns("A:A").Select
'Définie la valeur à rechercher
'ficCARTE$ = tbCARTE.Value
'Effectue la recherche
Selection.Find(What:=ficCARTE$, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Select

'Selectionne la ligne trouvé
Rows(ActiveCell.Row).Select
0
Messages postés
53
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
16 mars 2011

MERCI bcp
Ct vraiment tout bête ! mais bon, je me suis arraché les cheveux tout de m^me. En tout cas un grand merci.
@+
gui.
0