Fonction Excel incrémentation automatique???VBA excel URGENT [Résolu]
erti1711
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Statut
- Membre
- Dernière intervention
- 16 juin 2006
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Statut
- Membre
- Dernière intervention
- 16 juin 2006
A voir également:
- Incrémentation vba
- Incrémentation automatique autocad - Meilleures réponses
- Fonction incrémenter excel - Meilleures réponses
- [Catégorie modifiée VB6 -> VBA] Bouton d'incrémentation ✓ - Forum - Visual Basic 6
- [Catégorie modifiée .Net -> VBA] vba : incrémentation horizontale ????? ✓ - Forum - Visual Basic 6
- [Catégorie modifiée .Net -> VBA] fonction Sum incrémentation verticale vba ✓ - Forum - Visual Basic 6
- VBA excel: copier-coller avec incrémentation ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 --> VBA] incrémentation et saut de ligne pour saisie. ✓ - Forum - Visual Basic 6
4 réponses
Meilleure réponse
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Statut
- Membre
- Dernière intervention
- 16 juin 2006
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 94
- Date d'inscription
- jeudi 13 février 2003
- Statut
- Membre
- Dernière intervention
- 12 octobre 2005
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
!
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
- 94
- Date d'inscription
- jeudi 13 février 2003
- Statut
- Membre
- Dernière intervention
- 12 octobre 2005
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
!
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
!