Jesusdenazarrete
Messages postés102Date d'inscriptionjeudi 22 juillet 2010StatutMembreDernière intervention12 juin 2012
-
13 mars 2008 à 12:00
Jesusdenazarrete
Messages postés102Date d'inscriptionjeudi 22 juillet 2010StatutMembreDernière intervention12 juin 2012
-
13 mars 2008 à 13:14
Bonjour,
Please Help
Voila, j'ai un problème avec la variable vligne, en effet, j'ai une erreur à la ligne Cells(vligne,1).select, je ne comprend pas pourquoi mais lorsque je remplace vligne par un chiffre cela fonctionne mais pas avec vligne.
A savoir que vligne est déclaré en long
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)
If Nothing Is Vtrouve Then
MsgBox "Non trouvé!"
Else
.Cells(Vtrouve.Row, Vtrouve.Column).EntireRow.Copy
worksheets("recherche").Activate
Cells(vligne, 1).Select
ActiveSheet.Paste
vligne = vligne + 1
End If
End With
End Sub
Mais quelqu'un a bien la solution n'est-ce pas?
Merci d'avance