Bonjour à tous,
Par macro, je recherche une donnée dans un tableau pour la copier dans un autre tableau. Si cette donnée n'existe pas, je voudrai inscrire 0 dans le second tableau.
Ci-dessous l'extrait de la macro.
Merci d'avance pour votre aide
Bbobb
' chercher le nombre de paiements en éspéces
Dim L As Long, C As Integer
Set Cel = Cells.Find("Total Nb paiements")
If Not Cel Is Nothing Then L = Cel.Row
Set Cel = Cells.Find("Espèces")
If Not Cel Is Nothing Then C = Cel.Column
If L > 0 And C > 0 Then Cells(L, C).Select
Cells(L, C).Copy
Windows("Chiffre d'affaire global.xls").Activate
ActiveSheet.Paste
Par macro, je recherche une donnée dans un tableau pour la copier dans un autre tableau. Si cette donnée n'existe pas, je voudrai inscrire 0 dans le second tableau.
Ci-dessous l'extrait de la macro.
Merci d'avance pour votre aide
Bbobb
' chercher le nombre de paiements en éspéces
Dim L As Long, C As Integer
Set Cel = Cells.Find("Total Nb paiements")
If Not Cel Is Nothing Then L = Cel.Row
Set Cel = Cells.Find("Espèces")
If Not Cel Is Nothing Then C = Cel.Column
If L > 0 And C > 0 Then Cells(L, C).Select
Cells(L, C).Copy
Windows("Chiffre d'affaire global.xls").Activate
ActiveSheet.Paste