Fonction Excel incrémentation automatique???VBA excel URGENT [Résolu]
A voir également:
- Vba incrémentation automatique
- Incrémentation vba - Meilleures réponses
- Auto increment vba - 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
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
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
!
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
!