XL 2019 Incrémentation

sum01 · 20 Mars 2021

Bonjour à toutes et tous,

Je fais appel à votre aide avant de sombrer dans la folie car au départ je pensais le problème simple mais après une journée et les yeux qui se croise. J'essaie de trouve une solution pour incrémenter une liste de codes. Cette liste suit une logique. Chaque fois que j'arrive à 9, je recommence avec la lettre A ou à l'inverse, lorsque j'arrive à la lettre Z, je recommence avec le chiffre 0 et ainsi de suite. J'ai essayé de représenter la progression dans le petit fichier Excel ci-joint.
Je ne parviens pas à trouver une formule pour incrémenter cette progression. Une des piste que j'ai essayé de suivre est de remplacer les lettres par des chiffres en suivant la position dans l'alphabet mais là aussi je me suis perdu.

Compte Supprimé 979 · 20 Mars 2021

Bonjour,
Il faudrait aussi que l'on comprenne à quoi ça vous sert
@+

sum01 · 20 Mars 2021

BrunoM45 à dit:
Bonjour,
Il faudrait aussi que l'on comprenne à quoi ça vous sert
@+

Bonjour Bruno, c'est vrai que sans le contexte cette demande n'a ni queue ni tête. Cette codification alphanumérique est en place depuis des années (je n'en suis pas à l'origine). Et j'essaie de créer une liste compète qui n'existe pas à ce jour. En effet, pour seule documentation, j'ai des notions d'intervalles écris sur un doc. word. Par exemple si nous avons à faire à tel article alors cet article se trouve dans la zone codifiée [599-6AB]. J'essaie d'améliorer cela en tentant de reconstituer ce qui se trouve entre 599 et 6AB (exemple).

sum01 · 20 Mars 2021

Re-Bonjour le Forum, j'ai peut-être trouvé une partie de solution dans l'onglet essai du fichier ci-joint. La formule me permet d'incrémenter jusqu'à Z mais ensuite je bloque pour poursuivre la progression avec 41A

Phil69970 · 20 Mars 2021

Bonjour @sum01, Bruno, le forum

Issue de ce forum et légèrement retouché

Incrémenter de A vers ZZ ... etc en VBA

Je n'ai pas de fichier ni de code à vous soumettre. Je cherche simplement, un bout de code VBA qui me permettrait d'incrémenter la valeur d'une cellule qui c...

forum.excel-pratique.com

Cela permet d'aller de A à ZZ
Si tu mets A en A1 :

Code:

Sub Incrementation()

Dim i As Integer, j As Integer, x As Integer, s As Integer, Z&
Dim lettre As String
Dim tablo()

On Error Resume Next
For Z = 1 To 701
    For i = 0 To 25
        lettre = Chr(i + 65)
        ReDim Preserve tablo(i)
        tablo(i) = lettre
    Next
   
    For j = 0 To 25
        For r = 0 To 25
            lettre = tablo(j) & tablo(r)
            x = UBound(tablo) + 1
            ReDim Preserve tablo(x)
            tablo(x) = lettre
        Next
    Next
   
    For s = 0 To UBound(tablo)
        If tablo(s) = Cells(Z, 1).Value Then
            Cells(Z + 1, 1).Value = tablo(s + 1)
        End If
    Next

Next Z
End Sub

Si cela peut donner des idées à quelqu'un...

@Phil69970

sum01 · 20 Mars 2021

Phil69970 à dit:
Bonjour @sum01, Bruno, le forum

Issue de ce forum et légèrement retouché

Incrémenter de A vers ZZ ... etc en VBA

Je n'ai pas de fichier ni de code à vous soumettre. Je cherche simplement, un bout de code VBA qui me permettrait d'incrémenter la valeur d'une cellule qui c...

forum.excel-pratique.com

Cela permet d'aller de A à ZZ
Si tu mets A en A1 :

Code:

Sub Incrementation() Dim i As Integer, j As Integer, x As Integer, s As Integer, Z& Dim lettre As String Dim tablo() On Error Resume Next For Z = 1 To 701 For i = 0 To 25 lettre = Chr(i + 65) ReDim Preserve tablo(i) tablo(i) = lettre Next For j = 0 To 25 For r = 0 To 25 lettre = tablo(j) & tablo(r) x = UBound(tablo) + 1 ReDim Preserve tablo(x) tablo(x) = lettre Next Next For s = 0 To UBound(tablo) If tablo(s) = Cells(Z, 1).Value Then Cells(Z + 1, 1).Value = tablo(s + 1) End If Next Next Z End Sub

Si cela peut donner des idées à quelqu'un...

@Phil69970

Bonjour Phil, merci pour cette réponse. Superbe macro que j'ai essayé d'adapter. Lorsque on arrive à Z on passe à AA. Mais si je souhaite que, arrivé à Z, la boucle recommence à A de façon à incrémenter comme dans mon petit exemple feuille essai2 et cela jusqu'à 99 ?
Comment pourrait-on adapter la macro ?
Un tout grand merci pour votre aide !

pierrejean · 20 Mars 2021

Bonjour à tous
Un essai

sum01 · 20 Mars 2021

ReBonjour à Tous, merci pour votre réponse PierreJean. J'ai fusionné les deux marco et et je crois bien que l'objectif est atteint. Je joins le fichier si cela peut-être utile. Par contre, je ne suis pas sûr que du point de vue de la structure la macro tel que je la présente maintenant soit propre ?
Encore mille fois merci pour votre aide toujours fantastique

Phil69970 · 20 Mars 2021

Re

Je suis pas sur du tout que cela corresponde à ta demande initiale car 6AB est non trouvé dans la liste crée.

sum01 à dit:
la zone codifiée [599-6AB].

@Phil69970

Compte Supprimé 979 · 20 Mars 2021

Bonjour le fil,

Si j'ai bien compris, ce n'est pas si simple que ça, voici un fichier avec du code (non optimisé) qui semble faire le job

@+

job75 · 20 Mars 2021

Bonjour sum01, Bruno, Phil69970, Pierre,

Voyez le fichier joint et cette macro évènementielle dans le code de la feuille "Essai" :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Target = Target(1)
If Not Target Like "#*[A-Z]" Then Exit Sub
Dim n&, a%
Cancel = True
n = Val(Target)
a = Asc(Right(Target, 1))
Target(2) = IIf(a < Asc("Z"), n & Chr(a + 1), n + 1 & "A")
End Sub

A+

job75 · 20 Mars 2021

Une variante dans ce fichier (2) avec le choix du nombre de cellules à remplir :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Target = Target(1)
If Not Target Like "#*[A-Z]" Then Exit Sub
Dim x$, nn, resu$(), i&, n&, a%
Cancel = True
Do
    x = InputBox("Nombre de cellules à remplir :", "Incrémentation", nn)
    If x = "" Then Exit Sub
    nn = Int(Val(x))
Loop While nn < 1 Or Target.Row + nn > Rows.Count
ReDim resu(1 To nn, 1 To 1)
x = Target
For i = 1 To nn
    n = Val(x)
    a = Asc(Right(x, 1))
    x = IIf(a < 90, n & Chr(a + 1), n + 1 & "A")
    resu(i, 1) = x
Next
'---restitution---
Target(2).Resize(nn) = resu
End Sub

Compte Supprimé 979 · 20 Mars 2021

Salut Job75, joli travail, mais...

Pour info, si on souhaite partir de 599, ça ne fonctionne pas

Ensuite il y a une erreur, dans ton code on passe de 59Z à 60A, or dans l'exemple de sum01 on doit passer à à 5A0

Comme je l'ai dit, pas si simple

@+

sum01 · 20 Mars 2021

Phil69970 à dit:
Re

Je suis pas sur du tout que cela corresponde à ta demande initiale car 6AB est non trouvé dans la liste crée.

Regarde la pièce jointe 1099365

@Phil69970

ReBonjour Phil, merci pour votre réponse. En effet, vous avez raison ça répond en partie à l'objectif. Je me suis, dans un premier temps, focalisé sur les cas de figures [deux chiffres; 1 lettre]

sum01 · 20 Mars 2021

Bonjour Job75, Bruno, Phil69970, Pierre,
Punaise, quelle sacrées solutions que vous amenez ici. Des œuvres d'art en terme de code pour lequel, même avec 200 ans à disposition, je n'y serai jamais arrivé. Ces solutions font le job et vont m'aider à construire une table de correspondance pour rendre plus facile la lecture de cette codification. Il est vrai que la structure a été mal pensée dès le départ et il est impossible de la changer malheureusement. Encore merci pour votre aide. Très bon week-end

XL 2019 Incrémentation

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Compte Supprimé 979

Guest

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires