Problème de suppression dans un tableau en VBA

Bonjour,

J'ai réalisé un code VBA pour enregistrer des informations dans un tableau à partir d'un userform (Qui à l'air de fonctionner correctement).

Puis j'ai fait un second code pour effacer le tableau lorsque j'en ai plus besoin (Les données sont bien effacées).

Mon problème est que dans un premier temps, le code pour enregistrer mes infos fonctionne très bien, ainsi que pour effacer mon tableau.

Mais lorsque je veux à nouveau enregistrer des informations après le code pour effacer, il recommence là où il s'est arrêté avant l'effacement.

Code de sauvegarde:

Sub New_enr() 'Nouvelle événement

'Recheche de la derniere ligne +1 pour descendre d'une ligne
Der_ligne = Feuil1.Range("G1").End(xlDown).Row + 1

Feuil1.Cells(Der_ligne, 1) = Me.Cbx_liste
Feuil1.Cells(Der_ligne, 2) = Me.Info1
Feuil1.Cells(Der_ligne, 3) = Me.Info2
Feuil1.Cells(Der_ligne, 4) = Me.Info3
Feuil1.Cells(Der_ligne, 5) = Me.Info4
Feuil1.Cells(Der_ligne, 6) = Me.Info5
Feuil1.Cells(Der_ligne, 7) = Der_ligne

Call Chargement_liste 'Chargement de la listbox

'RAZ du formulaire userform
For i = 1 To 6
    Me("Info" & i) = " "
Next

End sub

Code de RAZ du tableau:

Sub RAZ ()

ligne = Feuil15.Range("G1").End(xlDown).Row

 For i = 2 To ligne

Feuil1.Cells(i, 1) = " "
Feuil1.Cells(i, 2) = " "
Feuil1.Cells(i, 3) = " "
Feuil1.Cells(i, 4) = " "
Feuil1.Cells(i, 5) = " "
Feuil1.Cells(i, 6) = " "
Feuil1.Cells(i, 7) = " "

Next

End sub

Je suis encore novice avec des lacunes, merci d'avance pour vos conseils.

Bonjour et bienvenue sur le forum

Tu devrais joindre ton fichier, ce serait plus facile...

Bye !

Bonjour,
Il faut saisir "" et non " " (supprimer l'espace) pour effacer les valeurs dans les cellules.
Cdlt.

Bonjour,

Merci ça fonctionne.

Je pensais que dans les 2 cas dans le fonctionnement d'Excel, on inscrivait rien.

J'avais mis un espace pour être visible sur le code, donc je dois éviter cette méthode pour effacer les cellules.

Encore merci.