Fonction Excel incrémentation automatique???VBA excel URGENT
[Résolu]
Signaler
erti1711
erti1711
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Statut
- Membre
- Dernière intervention
- 16 juin 2006
erti1711
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Statut
- Membre
- Dernière intervention
- 16 juin 2006
A voir également:
- Vba incrémentation automatique
- Excel incrémentation automatique numéro vba - Meilleures réponses
- Incrémentation vba - Meilleures réponses
- Incrémentation automatique d'un devis vb excel ✓ - Forum - Visual Basic
- Formulaire sur VBA incrémentation nouvelle ligne ✓ - Forum - Visual Basic 6
- Incrémentation automatique vba excel - Forum - Visual Basic
- Incrémenter une plage excel - Forum - Visual Basic 6
- Vba probleme avec l'incrementation automatique ✓ - Forum - Visual Basic
4 réponses
erti1711
- 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
sacha1435
- 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
!
erti1711
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Statut
- Membre
- Dernière intervention
- 16 juin 2006
J'ai la version Offici XP,
sacha1435
- 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
!