incrémentation double

[nico12]

Bonjour à tous,
Je souhaite calculer automatiquement une incrémentation d'après les points de départ et de fin de certaines cellules. Explication pas très claire, mais je mets un fichier de ce que je veux obtenir.
Je ne sais pas comment faire ça.
Si vous avez des pistes, merci !

 

[pierrejean]

Bonjour nico12

A tester:

 

[Nairolf]

Salut,

J'arrive après avec un code quasi identique à pierrejean :

Sub inc()

Dim TableauSource()
Dim TableauRésultat()
Dim NbLignesParCode As Integer
Dim NbLignesTotal As Integer
Dim compt1 As Integer
Dim compt2 As Integer

TableauSource = Worksheets("Feuil1").Range("A2:D" & Range("A1").End(xlDown).Row).Value
NbLignesTotal = 0
compt1 = 1

For i = LBound(TableauSource) To UBound(TableauSource)
    NbLignesParCode = Application.Index(TableauSource, i, 3) - Application.Index(TableauSource, i, 2) + 1
    NbLignesTotal = NbLignesTotal + NbLignesParCode
    compt2 = 1
    ReDim Preserve TableauRésultat(1 To 4, 1 To NbLignesTotal)
    For j = 1 To NbLignesParCode
        TableauRésultat(1, compt1) = Application.Index(TableauSource, i, 1)
        TableauRésultat(2, compt1) = compt1
        TableauRésultat(3, compt1) = Application.Index(TableauSource, i, 4)
        If TableauRésultat(3, compt1) <> "" Then
            TableauRésultat(4, compt1) = compt2
        End If
        compt1 = compt1 + 1
        compt2 = compt2 + 1
    Next j
Next i
Worksheets("Feuil1").Range("G2:J" & NbLignesTotal + 1).ClearContents
Worksheets("Feuil1").Range("G2:J" & NbLignesTotal + 1).Value = Application.Transpose(TableauRésultat)

End Sub

 

[nico12]

Bonjour à tous,
Je souhaite calculer automatiquement une incrémentation d'après les points de départ et de fin de certaines cellules. Explication pas très claire, mais je mets un fichier de ce que je veux obtenir.
Je ne sais pas comment faire ça.
Si vous avez des pistes, merci !

Bravo,
je vous remercie vivement (avec retard) pour vos solutions, ça marche !

 

[nico12]

Bonjour pierrejean,
Je n'arrive pas à générer d'incrémentation si la colonne "code" n'est pas renseignée, y-a-t-il moyen d'y remédier ?
merci !

 

[pierrejean]

Re

Comme ceci ?

 

[nico12]

Re

Comme ceci ?

Oui, mais je m'aperçois que l'incrémentation continue quelque soit le chiffre de la colonne "début", ce n'est pas un problème car ma numérotation est en continu.
J'essaie d'appliquer la macro sur ma feuille qui contient d'autre colonnes; ça ne fonctionne pas lorsque je change la plage "tablo":
tablo = Range("A20100") par exemple.
L'ordre de mes colonnes à traiter est le même que dans mon exemple...

 

[pierrejean]

Re
poste un fichier exemple S.T.P

 

[nico12]

Re
poste un fichier exemple S.T.P

Voici,
en fait ça marche si j'utilise la premiere partie du tableau, (numérotation 2100) mais si je défini tableo sur A2022 par exemple, ça reprend la numérotation à 1...

 

[pierrejean]

Re

Et pour bien faire la numérotation devrait reprendre à combien ?????
Et où j'aurais trouvé cette info ????

 

[nico12]

Re

Et pour bien faire la numérotation devrait reprendre à combien ?????
Et où j'aurais trouvé cette info ????

la numérotation doit commencer avec le chiffre inscrit dans la colonne "premier numéro" et se finir par celui de la colonne "dernier numero" de la meme ligne. Ainsi de suite pour chaque ligne...
Ce que je voulais décrire dans mon premier message par "Je souhaite calculer automatiquement une incrémentation d'après les points de départ et de fin de certaines cellules"

 

[pierrejean]

Re

Vois si cela te convient

 

[nico12]

Merci,
ça marche,
merci à toi