Incrémentation cellule
Bonjour,
Dans un classeur excel avec des macros, j'insere une ligne et je voudrais dans la premiere cellule le texte "Article" suivi du chiffre 1.
Lorsque je rajouter une ligne via ma macro, je souhaiterais rajouter le texte "Article" suivi du chiffre 2 dans la première cellule et ainsi de suite
Quelqu'un pourrais t-il m'aider ?
Merci
Bonjour,
il suffit de modifier ton code qui ajoute une ligne , pour qu'on t'aide tu devrais le poster ici...
Bonjour
Voila mon code
Sub RAJOUTARTICLE()
Sheets("LIGNE").Rows(1).Copy Sheets("Base de donnée articles").Cells(Rows.Count, 1).End(xlUp)(2)
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
End Sub
Je joint également mon fichier
Merci
bonjour
Sub RAJOUTARTICLE()
cel = Range("B" & Rows.Count).End(xlUp).Value
Sheets("LIGNE").Rows(1).Copy Sheets("Base de donnée articles").Cells(Rows.Count, 1).End(xlUp)(2)
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Range("A" & Rows.Count).End(xlUp).Offset(1) = "articles " & cel + 1
Range("B" & Rows.Count).End(xlUp).Offset(1) = cel + 1
End Suba tester
Merci super mais je ne veux pas incrémenter la cellule B car ce sera un texte différent a chaque ligne
Re
enleve l'avant dernière ligne
la range B
A vous relire
Ok mais si je l’enlève, ça ne s'incremente plus
Re
En cachant la colonne B sans enlever la ligne range B arrange la situation
Désolé, je ne suis pas devant le PC
A vous relire
Bonsoir,
Essai :
Sub RAJOUTARTICLE()
With Sheets("Base de donnée articles")
Sheets("LIGNE").Rows(1).Copy .Cells(Rows.Count, 1).End(xlUp)(2)
.Range("A" & .Rows.Count).End(xlUp).Offset(1).Select
.Range("A" & .Rows.Count)="article " & .Rows.Count
End with
End Sub