Dépassement de capacité

[Guy974]

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

 

[Mytå]

Salut Guy974 et le Forum

peut-etre que :

Dim L as long serait plus approprier

car Integer= -32767 à +32767

Mytå

 

[GUy974]

Parfait,

Merci

Guy

 

[bebere]

bonjour Guy,Myta
si ta colonne n'a pas de ligne vide,ligne suivante
L = Sheets('Feuil3').Range('A1').End(xlDown).Row + 1
sinon,ligne suivante
L = Sheets('Feuil3').Range('A65536').End(xlUp).Row + 1
à bientôt