Selectionner une ligne suite à un Find avec VB/Excel

SuperTonic Messages postés 53 Date d'inscription mercredi 24 juillet 2002 Statut Membre Dernière intervention 16 mars 2011 - 26 juil. 2002 à 16:48
SuperTonic Messages postés 53 Date d'inscription mercredi 24 juillet 2002 Statut Membre Dernière intervention 16 mars 2011 - 27 juil. 2002 à 08:55
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

BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
26 juil. 2002 à 22:33
'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
SuperTonic Messages postés 53 Date d'inscription mercredi 24 juillet 2002 Statut Membre Dernière intervention 16 mars 2011
27 juil. 2002 à 08:55
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
Rejoignez-nous