INFINITY100
XLDnaute Occasionnel
Bonjour à vous tous
Voila je viens vers vous au sujet d'une macro que je n'arrive pas à réaliser, en effet il s'agit d'une incrémentation automatique et qui va se mettre à jour après chaque suppression.
à noter pour l'incrémentation d'ajout je possède une macro pour ça met qui est incomplète à un petit détail
Voici ma macro d'ajout :
Donc ma demande ici ce résume comme suit pour la macro d'ajout :
1- Que l’incrémentation commence toujours à partir de A12.
Et pour la macro suppression d'une ligne j'ai besoin d'un code qui fait ceci :
1- Je voudrai que quand je choisis de supprimer une ligne de 10 articles l’incrémentation se met à jour authentiquement : exemple si je supprime la ligne 4 relative à l'Article D directement Article E prend le num 4 et se met à jours voir ci dessous du résultat que je veux
avant suppression
Num Articles
---- -------
1 Article A
2 Article B
3 Article C
4 Article D
5 Article E
6 Article F
7 Article G
8 Article H
9 Article I
10 Article J
Après suppression
1 Article A
2 Article B
3 Article C
4 Article E
5 Article F
6 Article G
7 Article H
8 Article I
9 Article J
Voila je joint le fichier pour être plus claire
Merci pour votre aide mes amis
Cordialement
Voila je viens vers vous au sujet d'une macro que je n'arrive pas à réaliser, en effet il s'agit d'une incrémentation automatique et qui va se mettre à jour après chaque suppression.
à noter pour l'incrémentation d'ajout je possède une macro pour ça met qui est incomplète à un petit détail
Voici ma macro d'ajout :
Code:
Dim num As Integer, LignVide1 As Integer, dernierID As Integer
Private Sub confirmation_Click()
'Recherche de l'ID du dernier client
Sheets("feuil1").Activate
dernierID = WorksheetFunction.Max(Range("A:A"))
LignVide1 = Range("A" & Rows.Count).End(xlUp).Row + 1
'Ecrire le nouveau n° dans la feuil1
Range("A" & LignVide1) = dernierID + 1
'Afficher le nouvel ID dans le textbox1
Me.TextBox1 = dernierID + 2
End Sub
Private Sub UserForm_Initialize()
'Afficher le dernier ID enregistré à l'ouverture de l'UserForm
dernierID = WorksheetFunction.Max(Range("A:A"))
LignVide1 = Range("A" & Rows.Count).End(xlUp).Row + 1
Me.TextBox1 = dernierID + 1
End SubDonc ma demande ici ce résume comme suit pour la macro d'ajout :
1- Que l’incrémentation commence toujours à partir de A12.
Et pour la macro suppression d'une ligne j'ai besoin d'un code qui fait ceci :
1- Je voudrai que quand je choisis de supprimer une ligne de 10 articles l’incrémentation se met à jour authentiquement : exemple si je supprime la ligne 4 relative à l'Article D directement Article E prend le num 4 et se met à jours voir ci dessous du résultat que je veux
avant suppression
Num Articles
---- -------
1 Article A
2 Article B
3 Article C
4 Article D
5 Article E
6 Article F
7 Article G
8 Article H
9 Article I
10 Article J
Après suppression
1 Article A
2 Article B
3 Article C
4 Article E
5 Article F
6 Article G
7 Article H
8 Article I
9 Article J
Voila je joint le fichier pour être plus claire
Merci pour votre aide mes amis
Cordialement
