Fonction Excel incrémentation automatique???VBA excel URGENT [Résolu]
erti1711
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Dernière intervention
- 16 juin 2006
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- Dernière intervention
- 16 juin 2006
A voir également:
- Incrémentation automatique autocad
- [Catégorie modifiée .Net -> VBA] fonction Sum incrémentation verticale vba ✓ - Forum - Visual Basic 6
- Excel (VBA): Création d'une fonction et recalcule automatique ✓ - Forum - Visual Basic 6
- Vba deux nouvelles fonctions excel (nbval_distinct et nbval_distinct_visible) pour compter le nombre - Codes sources - Visual Basic / VB.NET (VBA)
- Insertion et incrémentation automatique onglets excel + copiage de données ✓ - Forum - Visual Basic 6
- VBA Excel Fonction de LookUp en VBA? ✓ - Forum - Visual Basic 6
4 réponses
Meilleure réponse
- Messages postés
- 75
- Date d'inscription
- samedi 2 avril 2005
- 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
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
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
- 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
!
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.