Excel: Sélectionner et mettre en surbrillance une ligne

Question

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 !!!!

cs_thitoune · Answer

Je n'ai pas d'autre solution que de refaire la fonction de recherche : Private Sub CommandButton1_Click() Message = "Entrez le Numéro à chercher" Title = "Numéro du Client" ' Définit le titre. Dfault = "a" ' Définition la valeur par défaut. ficcarte = InputBox(Message, Title, Dfault) i = 1 While (Cells(i, 1) <> ficcarte And Cells(i, 1) <> Empty) i = i + 1 Wend 'si tu veux copier la ligne i à la ligne 23 par exemple Rows(i).Cut Rows(23) End Sub

SuperTonic · Answer

Merci Bcp !!!
JE vais essayer .

Excel: Sélectionner et mettre en surbrillance une ligne

2 réponses

Discussions similaires