Ajouter des numéros de série, Excel VBA

Sub AddSerialNumbers()
Dim i As Integer On Error GoTo Last
i = InputBox("Enter Value”, "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last:Exit Sub End Sub

Ce code de macro vous aidera à ajouter automatiquement des numéros de série dans votre feuille Excel, ce qui peut vous être utile si vous travaillez avec des données volumineuses.
Pour utiliser ce code, vous devez sélectionner la cellule à partir de laquelle vous souhaitez commencer les numéros de série et lorsque vous l’exécutez, il vous montre une boîte de message dans laquelle vous devez entrer le nombre le plus élevé pour les numéros de série et cliquez sur OK. Et une fois que vous avez cliqué sur OK, il exécute simplement une boucle et ajoute une liste de numéros de série aux cellules vers le bas.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x