Problème de sélection fonction .cells ... help please (VBA Excel)

Question

Bonjour a tous

J'ai un problème pour copier la ligne qui contient la valeur CCherch, j'ai mis la ligne qui contient la faute en rouge
Je suis ouvert a toute propositions... Je dois dire avant toute chose que vligne est un long et qu'il possède la valeur 17
Je pense aussi avoir un problème à la ligne cells etc...(je l'ai mise en rouge aussi)

Merci d'avance

Public Sub Bcherch_Click()


Dim vtrouve As Range


    With worksheets("Facturation")
  
        .Activate
            Set vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(What:=Ccherch.Value)
                .Cells(vtrouve.Row, vtrouve.Column).EntireRow.Copy
    End With
        If Nothing Is vtrouve Then
            MsgBox "Non trouvé!"
            worksheets("Recherche").Activate
        Else
        If Ccherch.Value = "" Then
            MsgBox "Champ Vide!"
            worksheets("Recherche").Activate
        Else
        With worksheets("recherche")
            .Activate
            .Cells(vligne, 1).Select
            ActiveSheet.Paste
        End With
            vligne = vligne + 1
        End If
        End If
        
End Sub
-----------------------------------------------------------------------
Merci d'avance a tous ceux qui pouront m'aider...

Renfield · Answer

ta ligne 
.Cells(vtrouve.Row, vtrouve.Column).EntireRow.Copy

N'est valable que si un résultat a été trouvé.
place la donc au dessus de ton 
With worksheets("recherche")

tu peux même faire:
vTrouve.EntireRow.Copy( worksheets("recherche").Cells(vligne,1) )

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Problème de sélection fonction .cells ... help please (VBA Excel)

1 réponse

Votre réponse

Discussions similaires