- Insertion et incrémentation automatique onglets excel + copiage de données [Résolu]
- [Catégorie modifiée .Net -> VBA] vba : incrémentation horizontale ????? [Résolu]
- [Catégorie modifiée .Net -> VBA] Création automatique de feuille Excel [Résolu]
- [Catégorie modifiée VB6 --> VBA] insertion automatique d'un logo
- [Catégorie modifiée VB6 --> VBA] attribution automatique de la valeur d'un champ [Résolu]
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
- Incrémentation vba - Meilleures réponses
- Incrémentation en medecine - Meilleures réponses
- Incrémenter une plage excel - Forum - Visual Basic 6
- Vba probleme avec l'incrementation automatique ✓ - Forum - Visual Basic
- [VBA] - Filtre Automatique sur DATE / Heure ✓ - Forum - Visual Basic 6
- Incrémentation automatique du nom d'une nouvelle liste ✓ - Forum - C# / .NET
- Insertion et incrémentation automatique onglets excel + copiage de données ✓ - Forum - Visual Basic 6
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
!