continuer la serie

tototiti2008

XLDnaute Barbatruc

• 8 Octobre 2008

• #2

Re : continuer la serie

Bonjour Klimero95,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2008

• #3

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 😉

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Octobre 2008

• #4

Re : continuer la serie

Bonjour Staple1600,

elle ne marche pas, ma formule ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2008

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2008

• #6

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 ?

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 8 Octobre 2008

• #7

Re : continuer la serie

Bonjour,

Un essai pour passer outre la limite des 256 lignes :

Code:

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

@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Octobre 2008

• #8

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Octobre 2008

• #9

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 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Octobre 2008

• #10

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

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 8 Octobre 2008

• #11

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.

@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Octobre 2008

• #12

Re : continuer la serie

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Octobre 2008

• #13

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

Code:

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
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Octobre 2008

• #14

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

 

Pièces jointes

• Klimero.zip

  7.3 KB · Affichages: 21

Vote positif 0 Vote négatif

K

Klimero95

Guest

• 11 Octobre 2008

• #15

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

 

Vote positif 0 Vote négatif