Selectionner une ligne suite à un Find avec VB/Excel
SuperTonic
Messages postés53Date d'inscriptionmercredi 24 juillet 2002StatutMembreDernière intervention16 mars 2011
-
26 juil. 2002 à 16:48
SuperTonic
Messages postés53Date d'inscriptionmercredi 24 juillet 2002StatutMembreDernière intervention16 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 !!!!
A voir également:
Selectionner une ligne suite à un Find avec VB/Excel
BasicInstinct
Messages postés1470Date d'inscriptionmardi 5 février 2002StatutMembreDernière intervention20 octobre 201412 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