Fonction Excel incrémentation automatique???VBA excel URGENT [Résolu]
erti171175
Messages postés samedi 2 avril 2005Date d'inscription
16 juin 2006
Dernière intervention
-
24 juin 2005 à 10:37 - Dernière réponse : erti171175
Messages postés samedi 2 avril 2005Date d'inscription
16 juin 2006
Dernière intervention
- 28 juin 2005 à 11:41
Bonjour,je voulais savoir s'il y avait une fonction dans excel qui permettrait d'augmenter un numéro de devis par exemple automatiquement??
C'est pour mon projet de stage,j'effectue des devis,j'ai fait la présentation du devis et le numéro du devis doit se trouver dans la celllule "AB2".Existe il une fonction pour mon problème?une fonction qu'on pourrait mettre dans la cellule?
MERCI D'AVANCE.
erti171175
Messages postés samedi 2 avril 2005Date d'inscription
16 juin 2006
Dernière intervention -28 juin 2005 à 11:41
+1
Utile
Bonjour Sacha1435,voici le code que tu m'avais fournis en MP.Je le met sur le forum,il marche nikel.Merci
Sub test()
Set cel = ThisWorkbook.Sheets("Sheet1").Range("AB2") 'le num apparait ds la cellule AB2
i = Right(cel, Len(cel) - 2)
i = i + 1
cel.Value = "DE" & i 'le num commence par DE.....
End Sub
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
sacha143594
Messages postés jeudi 13 février 2003Date d'inscription
12 octobre 2005
Dernière intervention -24 juin 2005 à 12:06
0
Utile
Bonjour je suppose que tu a un template devis avec lequel tu commence un devis,
dans ce document type a la cellule AB2 tu met la valeur 0.
dans le module thisworkbook tu place ce code.
Private Sub Workbook_Open()
Dim cel As Range
Set cel = ThisWorkbook.Sheets(1).Range("AB2")
cel.Value = cel.Value + 1
End Sub
ici on déclanche l'incrémentation a l'ouverture du workbook, mais tu peux le faire sur la sauvegard ou tout autre évenement.
