incrementer valeur sous excel

incrementer valeur sous excel - VB/VBA/VBS - Programmation

Marsh Posté le 27-07-2005 à 16:16:18    

bonjour,
 
j'ai un petit problème sous excel.
Je voudrais faire une macro qui ajoute une ligne contenant, dans la premiere case, un champ du type: A001.
Je voudrais donc, en ajoutant la ligne, obtenir une ligne avec dans la premiere case, un champe A002.
 
seulement, j'arrive a recopier la ligne, mais pas a incrementer A001 en A002...
 
pourriez vous m'aidez svp.
 
merci d'avance.

Reply

Marsh Posté le 27-07-2005 à 16:16:18   

Reply

Marsh Posté le 27-07-2005 à 16:38:00    

neophenix a écrit :

bonjour,
 
j'ai un petit problème sous excel.
Je voudrais faire une macro qui ajoute une ligne contenant, dans la premiere case, un champ du type: A001.
Je voudrais donc, en ajoutant la ligne, obtenir une ligne avec dans la premiere case, un champe A002.
 
seulement, j'arrive a recopier la ligne, mais pas a incrementer A001 en A002...
 
pourriez vous m'aidez svp.
 
merci d'avance.


AOO1 c la valeur qu'il y a dans ta cellule?

Reply

Marsh Posté le 27-07-2005 à 16:53:34    

oui, c ca.
J'ai une premiere ligne dont la premiere case contient A001.
et je veux faire ajouter un ligne en cliquant sur un bouton, et que ca me mette A002 (par incrementation de A001)

Reply

Marsh Posté le 27-07-2005 à 18:20:13    

neophenix a écrit :

oui, c ca.
J'ai une premiere ligne dont la premiere case contient A001.
et je veux faire ajouter un ligne en cliquant sur un bouton, et que ca me mette A002 (par incrementation de A001)


tu fais une boucle avec un compteur "d'appuyage" de bouton
et tu fais
dim i as integer en globale
et dans ta sub bouton_clik
i=i+1
range("A"&i).value= "A00"&i
end sub
 
un truc comme ca

Reply

Marsh Posté le 27-07-2005 à 21:19:40    

Ceci me paraît plus dynamique:

  Dim iLastRow As Integer
  Dim iLastIndex As Integer
  iLastRow = Cells.SpecialCells(xlLastCell).Row
  iLastIndex = Val(Right(Cells(iLastRow, 1), 3))
  Cells(iLastRow + 1, 1) = "A" & Format(iLastIndex + 1, "000" )


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed