continuer la serie

[Klimero95]

Bonjour

Avez vous une formule pour prolonger une serie de données qui s'articulent ainsi :
Mob-cc-A
Mob-cc-B
Mob-cc-C
Mob-cc-D
Mob-cc-E
Mob-cc-F
Mob-cc-G
Mob-cc-H
Mob-cc-I
Mob-cc-J
Mob-cc-K
Mob-cc-L
Mob-cc-M
Mob-cc-N
Mob-cc-O
Mob-cc-P
Mob-cc-Q
Mob-cc-R
Mob-cc-S
Mob-cc-T
Mob-cc-U
Mob-cc-V
Mob-cc-W
Mob-cc-X
Mob-cc-Y
Mob-cc-Z
Mob-cc-Aa
Mob-cc-Ab
Mob-cc-Ac
Mob-cc-Ad
Mob-cc-Ae
Mob-cc-Af
Mob-cc-Ag
Mob-cc-Ah
Mob-cc-Ai
Mob-cc-Aj
Mob-cc-Ak
Mob-cc-Al
Mob-cc-Am

les pochaines devant être :

Mob-cc-An
Mob-cc-ao
etc...

Merci de vos apports

Klimero95

 

[tototiti2008]

Re : continuer la serie

Bonjour Klimero95,

="MOB-CC-"&GAUCHE(ADRESSE(1;LIGNE(A1);4;1);NBCAR(ADRESSE(1;LIGNE(A1);4;1))-1)

 

[Staple1600]

Re : continuer la serie

Bonjour Klimero95, tototiti2008, à tous



J'ai le début
=SI(MOD(LIGNE();26)=0;"";"Mob-cc-"&CAR(MOD(LIGNE();26)+64))


Mais après je coince


Avis aux formulistes 😉

 

[tototiti2008]

Re : continuer la serie

Bonjour Staple1600,

elle ne marche pas, ma formule ?

 

[Staple1600]

Re : continuer la serie

Re


Bien sur qu'elle marche ta formule

C'est pour la mienne de formule que j'en appelle au formulistes

 

[Staple1600]

Re : continuer la serie

Re



Mais non finalement ta formule ne marche que jusqu' à la ligne 256

(c'est logique)

et après AZ
c'est AAA
AAB
etc non ?

 

[Tibo]

Re : continuer la serie

Bonjour,

Un essai pour passer outre la limite des 256 lignes :

="MOB-CC-"&SI(LIGNE()<27;CAR(65+ENT((LIGNE()-1)/26));
CAR(64+ENT((LIGNE()-1)/26))&CAR(65+MOD((LIGNE()-1);26)))

@+

 

[tototiti2008]

Re : continuer la serie

Oui, en effet, c'est logique que ma formule ne fonctionne que jusqu'en ligne 256...

AAA c'est après ZZ, pas après AZ...

en voilà une qui marche presque mais je ne sais pas pouquoi 🙂 (à force de bidouiller des décalages...)

=SI(LIGNE()>=27;INDIRECT("A"&ENT((LIGNE()+ENT(LIGNE()/27))/27))&CAR(MOD(LIGNE()-1;26)+65);"Mob-cc-"&CAR(MOD(LIGNE();27)+64))

 

[tototiti2008]

Re : continuer la serie

Bonjour Tibo,

ta formule commence à bugger à la ligne 703 (AAA)

la mienne (deuxième) inspirée de celle de Staple part bien mais commence à planter en ligne 755 (ACA)

ça devient un peu trop prise de tête pour moi 😉

 

[Staple1600]

Re : continuer la serie

Bonjour Tibo, re aux autres

Tibo: ta formule ne fonctienne plus après ZZ
(ligne 703 si on commence en A1)

edition: houps, désolé pour la collision titi2008

 

[Tibo]

Re : continuer la serie

re,

Effectivement, j'ai vu le souci à partir de la ligne 703.

Avant d'aller plus loin, attendons le passage de klimero95 pour connaître de façon plus précise ses besoins pour cette formule.

@+

 

[tototiti2008]

Re : continuer la serie

En tout cas, je conseille celle de Tibo, beaucoup plus propre que la mienne (deuxième)

 

[Pierrot93]

Re : continuer la serie

Bonjour à tous

pour le fun, une solution vba, en A1 sur la feuille active "Mob-cc-A", incrmente 10000 lignes, à adapter...

Option Explicit
Sub test()
Dim x As String, i As Integer, j As Byte, b As Boolean, l As Integer
l = 1
Do While l < 10000
    x = UCase(Mid(Cells(l, 1).Value, 8))
    If Asc(Right(x, 1)) < 90 Then
        x = Mid(x, 1, (Len(x) - 1)) & Chr(Asc(Right(x, 1)) + 1)
    Else
        If Len(x) > 1 Then
            For i = Len(x) - 1 To 1 Step -1
                If Asc(Mid(x, i, 1)) < 90 Then
                    Mid(x, i, 1) = Chr(Asc(Mid(x, i, 1)) + 1)
                    For j = i + 1 To Len(x)
                        Mid(x, j, 1) = Chr(65)
                    Next j
                    b = True
                    Exit For
                End If
            Next i
            If b = False Then
                For i = 1 To Len(x) + 1
                    x = IIf(i = 1, Chr(65), x & Chr(65))
                Next i
            End If
        Else
            x = "AA"
        End If
    End If
    Cells(l + 1, 1).Value = Mid(Cells(l, 1).Value, 1, 7) & Application.Proper(x)
    l = l + 1
    b = False
Loop
End Sub

bon après midi
@+

 

[pierrejean]

Re : continuer la serie

Bonjour a tous

Pour le fun egalement
Une formule personnalisée valable jusqu'a Zzz soit 18252 lignes
En cellule B et tirer vers le bas

Mais je crois que la methode Pierrot est meilleure

 

[Klimero95]

Re : continuer la serie

Bonjour A tous

Merci pour vos contributions.

J'avoue que vos apports vont m'aider bien au delà de ce que j'esperais

Très Cordialement à vous

KLimero