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 Incrémentation

Incrémentation

3 réponses
Avatar
Jacklyne
Bonjour à tous

J'ai un bilan, plusieurs colonnes B à G dans lequel s'ajoutent par macro
des données, mais comment incrémenter dans la colonne A un numéro d'index ?

Merci par avance.
Signaler un problème avec ce contenu

3 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.
Pourrais-tu donner un petit exemple de ce que tu veux.
Cordialement.
Daniel
"Jacklyne" a écrit dans le message de news:

Bonjour à tous

J'ai un bilan, plusieurs colonnes B à G dans lequel s'ajoutent par macro
des données, mais comment incrémenter dans la colonne A un numéro d'index
?

Merci par avance.




Avatar
Jacklyne
Voici la macro :
Private Sub CommandButton1_Click()
Sheets("Listing").Select
Range("B6").Value = Range("B6").Value + 1
Range("E6").Select
ActiveCell.FormulaR1C1 = "=PROPER(R[-1]C)"
Range("F6").Select
ActiveCell.FormulaR1C1 = "=UPPER(R[-1]C)"
Range("G6").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
Range("J6").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("J7").Select
Range("B6:P6").Select
Selection.Copy
Columns.EntireColumn.AutoFit
Range("B6").Select
Selection.End(xlDown).Select
Dim LigVar
LigVar = 1
Selection.Offset(LigVar).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Range("B6:P6").Select
Selection.ClearContents
UserForm1.Hide
End Sub
J'aimerais que chaque fois qu'une ligne de données s'ajoute, dans la colonne
A (index) un n° s'incrémente par uneinstruction dont jene me souviens plus.
Encore merci
"Daniel" a écrit dans le message de news:
#
Bonjour.
Pourrais-tu donner un petit exemple de ce que tu veux.
Cordialement.
Daniel
"Jacklyne" a écrit dans le message de news:

Bonjour à tous

J'ai un bilan, plusieurs colonnes B à G dans lequel s'ajoutent par
macro


des données, mais comment incrémenter dans la colonne A un numéro
d'index


?

Merci par avance.








Avatar
Jacquouille
Bonsoir
Je n'ai pas regardé ta macro, mais si ce truc de chez brico peut t'aider....
derL = Sheets("feuil1").[B65536].End(xlUp).Row
Via derL, tu calcules la dernière ligne remplie de la colB.
Ensuite tu prends la lettre A et tu lui colles derL au cul pour avoir le n°
de ligne Ok
Ensuite, tu attribues la valeur derL à A&derL
Bonne chance
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Jacklyne" a écrit dans le message de news:
uCx5j%
Voici la macro :
Private Sub CommandButton1_Click()
Sheets("Listing").Select
Range("B6").Value = Range("B6").Value + 1
Range("E6").Select
ActiveCell.FormulaR1C1 = "=PROPER(R[-1]C)"
Range("F6").Select
ActiveCell.FormulaR1C1 = "=UPPER(R[-1]C)"
Range("G6").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
Range("J6").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("J7").Select
Range("B6:P6").Select
Selection.Copy
Columns.EntireColumn.AutoFit
Range("B6").Select
Selection.End(xlDown).Select
Dim LigVar
LigVar = 1
Selection.Offset(LigVar).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Range("B6:P6").Select
Selection.ClearContents
UserForm1.Hide
End Sub
J'aimerais que chaque fois qu'une ligne de données s'ajoute, dans la
colonne
A (index) un n° s'incrémente par uneinstruction dont jene me souviens
plus.
Encore merci
"Daniel" a écrit dans le message de news:
#
Bonjour.
Pourrais-tu donner un petit exemple de ce que tu veux.
Cordialement.
Daniel
"Jacklyne" a écrit dans le message de news:

Bonjour à tous

J'ai un bilan, plusieurs colonnes B à G dans lequel s'ajoutent par
macro


des données, mais comment incrémenter dans la colonne A un numéro
d'index


?

Merci par avance.