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

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

4 réponses

Meilleure réponse
erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention - 28 juin 2005 à 11:41
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

Merci erti1711 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

sacha1435 94 Messages postés jeudi 13 février 2003Date d'inscription 12 octobre 2005 Dernière intervention - 24 juin 2005 à 11:14
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
!
erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention - 24 juin 2005 à 11:37
0
Merci
J'ai la version Offici XP,
sacha1435 94 Messages postés jeudi 13 février 2003Date d'inscription 12 octobre 2005 Dernière intervention - 24 juin 2005 à 12:06
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.