Bonjour le forum,
Je réalise une macro qui me sert à copier une plage de données dans une autre feuille:
Le principe: La variable Cel me sert à retrouver une valeur dans la colonne A par rapport à la valeur d'une textBox
Si celle ci est retrouvé ,je voudrais qu'il copie la ligne en question mais seulement les colonnes de C à K à la derniere ligne non vide d'une autre feuille.
Le code se met en erreur à la ligne surlignée en rouge.
Voyez vous mon erreur?
Merci à vous
Je réalise une macro qui me sert à copier une plage de données dans une autre feuille:
Le principe: La variable Cel me sert à retrouver une valeur dans la colonne A par rapport à la valeur d'une textBox
Si celle ci est retrouvé ,je voudrais qu'il copie la ligne en question mais seulement les colonnes de C à K à la derniere ligne non vide d'une autre feuille.
Code:
Set Cel = Sheets(16).Columns("A").Find(what:=Me.TextBox1000, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Nombre = InputBox("Indiquer la quantité reçu : ", "Saisie numérique")
With Sheets(Var_Imputation1000).Select
Ligne = Range("C65536").End(xlUp).Offset(1, 0).Row
Sheets(16).Range(Cel.Row, Columns("C:K")).Copy Destination = Sheets(Var_Imputation1000).Range("C" & Ligne)
End With
Le code se met en erreur à la ligne surlignée en rouge.
Voyez vous mon erreur?
Merci à vous