Incrementation automatique numero dans chaque ligne

yves03 · 18 Décembre 2013

Bonjour,
j'ai actuellement une macro qui me permet de compléter et d’insérer des lignes dans un fichier client à l'aide d'un Userform
En colonne A j'ai un numéro du type AES0001 , je voudrais que à chaque fois que je crée une ligne ce champ s’incrémente automatiquement, ( AES0002, etc .... )
Merci d'avance pour votre aide

job75 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

Bonjour yves03,

Inspirez-vous de ce code :

Code:

Set c = [A3] 'pour tester
If c.Row > 2 Then c(0).AutoFill c(0).Resize(2)

En mettant AES0001 en A2.

A+

yves03 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

Merci pour ce retour rapide.
J'ai mis AES0001 en A2, ça m'a bien indiqué AES0002 en A3, mais apres la macro n'avance plus
Que doit je modifier pour que ça avance indefiniment
Merci

job75 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

Re,

Vous plaisantez j'espère puisque vous avez dit :

yves03 à dit:
j'ai actuellement une macro qui me permet de compléter et d’insérer des lignes dans un fichier client à l'aide d'un Userform

Je ne vais pas vous refaire votre macro si elle ne fonctionne pas 😡

A+

yves03 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

Oui j'arrive bien a insérer mes lignes avec ma macro, mais je bute sur l’incrémentation du champ en colonne A, j'ai tester votre exemple qui fonctionne, j'ai modifier A2 en A3, ça passe bien à la ligne 3.
Mais je ne comprend pas bien le fonctionnement de votre exemple.
C'est juste pour m'explique le fonctionnement pour que j'arrive à le modifier et l'appliquer à ma macro
Merci

job75 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

Re,

yves03 à dit:
Mais je ne comprend pas bien le fonctionnement de votre exemple.

L'aide VBA est faite pour ça, voyez ce qui est dit sur AutoFill et sur Resize.

A+

yves03 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

Voici ce que j'utilise dans ma macro pour creer une ligne suplementaire et venir y ajouter les valeurs de l'userform

With Sheets("Base")
Derligne = .Range("A65536").End(xlUp).Row + 1
.Cells(Derligne, 2) = Me.TxtClient
.Cells(Derligne, 3) = Me.TxtName
.Cells(Derligne, 13) = Me.ComboSerie
.Cells(Derligne, 4) = Me.TxtAdresse
.Cells(Derligne, 5) = Me.TxtVille
.Cells(Derligne, 6) = Me.TxtPostal
.Cells(Derligne, 7) = Me.TxtTelephone
.Cells(Derligne, 11) = Me.ComboGammes

Et c'est la que je n’arrive pas bien a intégrer les lignes pour incrémenter ma colonne A

job75 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

Re,

Code:

.Cells(Derligne - 1, 1).AutoFill .Cells(Derligne - 1, 1).Resize(2)

A+

yves03 · 18 Décembre 2013

Re : Incrementation automatique numero dans chaque ligne

job75 à dit:
Re,

Code:

.Cells(Derligne - 1, 1).AutoFill .Cells(Derligne - 1, 1).Resize(2)

A+

Merci beaucoup pour ton aide, je comprends mieux comment ça fonctionne

Incrementation automatique numero dans chaque ligne

yves03

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

yves03

XLDnaute Occasionnel

Discussions similaires

Incrementation automatique numero dans chaque ligne

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency