numérotation par étapes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nico12

XLDnaute Nouveau
Bonjour à tous, je souhaite obtenir une numérotation, d'après des cellules existantes, par étapes, en incluant des séparations.
Un exemple ?
voici !
merci de votre aide ,
 

Pièces jointes

Bonjour,

une solution à tester:

VB:
Private Sub CommandButton1_Click()
Dim WS1 As Worksheet, WS2 As Worksheet, x As Long, i As Long, j As Long, lig As Long

Set WS1 = Worksheets("Feuil1")
Set WS2 = Worksheets("Feuil2")
With WS1
For x = 3 To .Range("A" & Rows.Count).End(xlUp).Row  'lignes
    For i = .Cells(x, 1) To .Cells(x, 2) Step .Cells(x, 4)
        For j = i To i + .Cells(x, 4) - 1
            lig = lig + 1
            WS2.Cells(lig, 1) = j
            WS2.Cells(lig, 2) = .Cells(x, 3)
        Next
        lig = lig + 1
        WS2.Cells(lig, 1) = "Inter"
        WS2.Cells(lig, 2) = "Inter"
    Next
 Next
 End With
End Sub

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 formule countif
Réponses
5
Affichages
413
Retour