Sauvegarder des entrées

Bonsoir.

Dans le fichier joint se trouve une demande.

J'espère que vous arriveriez à la réussir.

Cela me ferait vraiment plaisir !

Merci d'avance.

Bonsoir

Essaye

Sub nouveau()
Derlg = Range("E65536").End(xlUp).Row + 1
Range("E" & Derlg) = Range("C1")
Range("c1") = ""
End Sub

Amicalement

Nad

Parfait, Nad

Super forum ! Entre toi et Banzai64, vous m'aidez énormément !

Encore merci

Cependant, lorsque je met

Derlg = Range("AE65536").End(xlUp).Row + 1
Range("AE" & Derlg) = Range("F16")

dans mon module qui nécessite ce dont tu m'a magistralement fait, l'erreur suivante ce produit:

Erreur de compilation

Variable non définie

en surlignant "Derlg".

Je ne sais pas d'où vient l'erreur.

Et quelle caractéristique donner à cette variable ? (Dim Derlg as ?)

Bien amicalement

Je remonte le message

En fait je crois que c'est à cause de

Option Explicit

que j'ai mis en Déclaration.

Mais je dois le mettre pour mon code dans mon module. Et si j'enlève ce Option Explicit, l'erreur ne se produit pas mais ça ne fait rien, dans le sens où la sauvegarde d'entrée ne fonctionne pas.

Amicalement

Problème résolu tout seul !

Encore merci à Nad