G
Guy974
Guest
Bonjour,
La partie de code en gras bloque : Dépassement de capacité
Seule elle fonctionne bien mais pas lorsque je l'utilise dans une macro où elle est précédée d'autre variable.
Est il possible de purger de la mémore les variables précédentes ?
Dim L As Integer
L = Sheets('Feuil3').Range('A1').End(xlDown).Row + 1
With Sheets('Sucres BLANCS')
Sheets('Feuil3').Cells(L, 1) = .Range('G6').Value
Sheets('Feuil3').Cells(L, 2) = .Range('L4').Value
Sheets('Feuil3').Cells(L, 3) = .Range('G4').Value
Sheets('Feuil3').Cells(L, 4) = .Range('K4').Value
Sheets('Feuil3').Cells(L, 5) = .Range('D8').Value
End With
Cancel = False 'l'impression est lancée
'boite de dialogue vbInformation : boite de dialogue type 'information' 'Titre'
MsgBox 'L'IMPRESSION VA SUIVRE', vbInformation, 'EXPORT REALISE AVEC SUCCES : '
'l'export dans la base et impression sont effectués
End Sub
La partie de code en gras bloque : Dépassement de capacité
Seule elle fonctionne bien mais pas lorsque je l'utilise dans une macro où elle est précédée d'autre variable.
Est il possible de purger de la mémore les variables précédentes ?
Dim L As Integer
L = Sheets('Feuil3').Range('A1').End(xlDown).Row + 1
With Sheets('Sucres BLANCS')
Sheets('Feuil3').Cells(L, 1) = .Range('G6').Value
Sheets('Feuil3').Cells(L, 2) = .Range('L4').Value
Sheets('Feuil3').Cells(L, 3) = .Range('G4').Value
Sheets('Feuil3').Cells(L, 4) = .Range('K4').Value
Sheets('Feuil3').Cells(L, 5) = .Range('D8').Value
End With
Cancel = False 'l'impression est lancée
'boite de dialogue vbInformation : boite de dialogue type 'information' 'Titre'
MsgBox 'L'IMPRESSION VA SUIVRE', vbInformation, 'EXPORT REALISE AVEC SUCCES : '
'l'export dans la base et impression sont effectués
End Sub