Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel incrementation automatique

incrementation automatique

4 réponses
Avatar
andre
Bonjour,
je viens de recuperer un volumineux fichier de personnes
pour rajouter des membres j'ai cree un userform de saisie
j'ai mis ce code dans la feuille qui fonctionne
Private Sub valider_Click()

Sheets("Membres").Select
[A65000].End(xlUp).Offset(1, 1).Select
ActiveCell.Value = Application.Proper(Me.nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Adresse
ActiveCell.Offset(0, 3).Value = Me.Ville
ActiveCell.Offset(0, 4).Value = Me.Telephone
End Sub
en colonne A (qui est maqsquée)j'ai une numerotation incrementee
la derniere personne est au N° 1123
celui ci est recupere par d'autres feuilles
est il possible que à chaque nouvelle saisie ce N° s'incremente tout
seul
merci

--
andre
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Ajoute :
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
Cordialement.
Daniel
"andre" a écrit dans le message de news:

Bonjour,
je viens de recuperer un volumineux fichier de personnes
pour rajouter des membres j'ai cree un userform de saisie
j'ai mis ce code dans la feuille qui fonctionne
Private Sub valider_Click()

Sheets("Membres").Select
[A65000].End(xlUp).Offset(1, 1).Select
ActiveCell.Value = Application.Proper(Me.nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Adresse
ActiveCell.Offset(0, 3).Value = Me.Ville
ActiveCell.Offset(0, 4).Value = Me.Telephone
End Sub
en colonne A (qui est maqsquée)j'ai une numerotation incrementee
la derniere personne est au N° 1123
celui ci est recupere par d'autres feuilles
est il possible que à chaque nouvelle saisie ce N° s'incremente tout seul
merci

--
andre




Avatar
andre
merci daniel
je voudrais aussi demander comment effacer le formulaire
automatiquement
apres validation pour en resaisir un autre
j'ai essaye plusieurs codes
mais cela n'effacer pas tous les textbox

andre à dit
Bonjour.
Ajoute :
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
Cordialement.
Daniel
"andre" a écrit dans le message de news:



--
andre

Avatar
Daniel
Essaie :

Private Sub valider_Click()

Sheets("Membres").Select
[A65000].End(xlUp).Offset(1, 1).Select
ActiveCell.Value = Application.Proper(Me.nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Adresse
ActiveCell.Offset(0, 3).Value = Me.Ville
ActiveCell.Offset(0, 4).Value = Me.Telephone
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1

Textbox1.value = ""
Textbox2.value = ""
etc.
End Sub

Daniel
"andre" a écrit dans le message de news:

merci daniel
je voudrais aussi demander comment effacer le formulaire automatiquement
apres validation pour en resaisir un autre
j'ai essaye plusieurs codes
mais cela n'effacer pas tous les textbox

andre à dit
Bonjour.
Ajoute :
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1
Cordialement.
Daniel
"andre" a écrit dans le message de news:



--
andre





Avatar
andre
j'avais mis ce code et il ne fonctionne pa s
merci daniel
Sub nettoie()
Me.Prenom = ""
Me.nom = ""
Me.Adresse = ""
Me.Ville = ""
Me.Telephone = ""

End Sub
Essaie :

Private Sub valider_Click()

Sheets("Membres").Select
[A65000].End(xlUp).Offset(1, 1).Select
ActiveCell.Value = Application.Proper(Me.nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Adresse
ActiveCell.Offset(0, 3).Value = Me.Ville
ActiveCell.Offset(0, 4).Value = Me.Telephone
ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) + 1

Textbox1.value = ""
Textbox2.value = ""
etc.
End Sub



--
andre