réinitialiser un compteur

[chilo]

BONSOIR à tous
j'ai encore besoin de vous
je joins cet exemple que j'ai trouvé
en A est référencé les corresponds
mais lorsque je supprime un correspondant il ne se réinitialise pas
est il possible d'y remédier ?

j'ai supprimer la ligne 3 et j'aurai souhaité

que le 4 prenne le numero 3

réinitialiser le compteur



en vous remerciant par avance

 

[Lone-wolf]

Bonjour chilo

Private Sub cmdRemove_Click()
Dim derlig&, i&

UserFormStatus = Status.Remove: usfTitle
RemoveRecord CurrentRecord ' Supprime l'enregistrement courant
UserFormStatus = Status.Consultation: usfTitle
With shtMember
derlig = .Range("b" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("a" & i) = "R00" & i - 1
Next i
End With
End Sub

 

[chilo]

bonsoir à tous, lone-wolf

Merci pour la réponse
je m'y mettrai demain c'est-à-dire tout à l'heure
merci encore

 

[chilo]

Bonjour à tous, Lone-wolf

c'est exactement cela que je souhaitais
Seulement quand je rentre un nouveau correspondant le compteur se met à r001
j'ai inséreé une partie du code dans la commande confirmer
cela fonctionne
mais les autres commandes se grise de façon aléatoire

mais autrement c'est le résultat que je voulais obtenir
Merci de nouveau