Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1670 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  incrementer valeur sous excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

incrementer valeur sous excel

n°1161790
neophenix
Posté le 27-07-2005 à 16:16:18  profilanswer
 

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.

mood
Publicité
Posté le 27-07-2005 à 16:16:18  profilanswer
 

n°1161861
jpcheck
Pioupiou
Posté le 27-07-2005 à 16:38:00  profilanswer
 

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?

n°1161898
neophenix
Posté le 27-07-2005 à 16:53:34  profilanswer
 

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)

n°1162049
jpcheck
Pioupiou
Posté le 27-07-2005 à 18:20:13  profilanswer
 

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

n°1162225
AlainTech
Pas trouvé? Cherche encore!
Posté le 27-07-2005 à 21:19:40  profilanswer
 

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!

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  incrementer valeur sous excel

 

Sujets relatifs
pas moyen d'utiliser une combobox sous excelrecherche excel par pilotage access
macro excel sur combinaisons[resolu]Comment supp une valeur dans la BDR
Comment afficher les doublons avec une couleur dans EXCEL ?comment ouvrir une base excel en vb6?
Envoie de fichier avec vba dans excel[excel] assigner numéro de ligne à variable
[VBA] [Excel] Mot de passe dans InputboxMacro Excel: gestion des feuilles ActiveSheet ...
Plus de sujets relatifs à : incrementer valeur sous excel


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)