incrémentation double

pierrejean

XLDnaute Barbatruc

• 17 Avril 2018

• #2

Bonjour nico12

A tester:

 

Pièces jointes

• test increment1.xlsm

  22 KB · Affichages: 22

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 17 Avril 2018

• #3

Salut,

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

VB:

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

 

Vote positif 0 Vote négatif

N

nico12

XLDnaute Nouveau

• 23 Avril 2018

• #4

nico12 à dit:

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 !

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

nico12

XLDnaute Nouveau

• 26 Avril 2018

• #5

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 !

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Avril 2018

• #6

Re

Comme ceci ?

 

Pièces jointes

• test increment1 (1).xlsm

  21.6 KB · Affichages: 11

Vote positif 0 Vote négatif

N

nico12

XLDnaute Nouveau

• 28 Avril 2018

• #7

pierrejean à dit:

Re

Comme ceci ?

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Avril 2018

• #8

Re
poste un fichier exemple S.T.P

 

Vote positif 0 Vote négatif

N

nico12

XLDnaute Nouveau

• 28 Avril 2018

• #9

pierrejean à dit:

Re
poste un fichier exemple S.T.P

Cliquez pour agrandir...

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...

 

Pièces jointes

• testNUM.xlsm

  31.8 KB · Affichages: 13

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Avril 2018

• #10

Re

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

 

Vote positif 0 Vote négatif

N

nico12

XLDnaute Nouveau

• 29 Avril 2018

• #11

pierrejean à dit:

Re

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

Cliquez pour agrandir...

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"

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Avril 2018

• #12

Re

Vois si cela te convient

 

Pièces jointes

• testNUM.xlsm

  37.8 KB · Affichages: 15

Vote positif 0 Vote négatif

N

nico12

XLDnaute Nouveau

• 29 Avril 2018

• #13

Merci,
ça marche,
merci à toi

 

Vote positif 0 Vote négatif