Fonction Excel incrémentation automatique???VBA excel URGENT [Résolu]

Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
- - Dernière réponse : erti1711
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
- 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.
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
1
Merci
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

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 97 internautes nous ont dit merci ce mois-ci

Messages postés
94
Date d'inscription
jeudi 13 février 2003
Dernière intervention
12 octobre 2005
0
Merci
Bonjour erti,

Quel excel ? si tu a Xl97 il y a pas mal d'exemple dans le dossier "SAMPLE" et tu y trouveras ton bonher.

Sinon, il y a plusieur méthode avec ou sans VBA, le mieux est de nous donner ta méthode et eventuellement un bout du code VBA.

Car pour le moment la question est très vaste :-)

Sacha
\!/
00
!
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
0
Merci
J'ai la version Offici XP,
Messages postés
94
Date d'inscription
jeudi 13 février 2003
Dernière intervention
12 octobre 2005
0
Merci
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.

j'espère que cela pourat t'aider.

Sacha

\!/
00
!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.