XL 2021 Afficher la nr col avec un lettre alpha combiner pour crée un tableau

[hermann]

Bonsoir Mesdames & Messieurs

Svp

Je voudrais récupéré la 1. lettre de cellule suivant + donne un 1 pour la première ligne pour crée un tableau

Merci pour votre aide
Arnold

 

[mapomme]

Bonjour à tous 😉,
Pour le fun, une fonction qui fonctionnera avec ou sans en-tête (pour la question initiale) :

• Lettre est la lettre qu'on veut afficher
• xrgRef est la cellule de référence servant à déterminer les réinitialisations de numérotation des blocs

Function Xnumber(ByVal Lettre$, xrgRef As Range) As String
Application.Volatile
Dim cell As Range, refVal
   Lettre = UCase(Left(Lettre, 1)): Set cell = Application.Caller: refVal = Trim(xrgRef)
   If refVal = "" Then Exit Function
   If cell.Row = 1 Then Xnumber = Lettre & " 1": Exit Function
   Xnumber = Lettre & " " & Val(Mid(cell.Offset(-1), 3)) + 1
End Function

Deux exemples dans le fichier joint.

 

[hermann]

Bonjour à tous 😉,
Pour le fun, une fonction qui fonctionnera avec ou sans en-tête (pour la question initiale) :

• Lettre est la lettre qu'on veut afficher
• xrgRef est la cellule de référence servant à déterminer les réinitialisations de numérotation des blocs

Function Xnumber(ByVal Lettre$, xrgRef As Range) As String
Application.Volatile
Dim cell As Range, refVal
   Lettre = UCase(Left(Lettre, 1)): Set cell = Application.Caller: refVal = Trim(xrgRef)
   If refVal = "" Then Exit Function
   If cell.Row = 1 Then Xnumber = Lettre & " 1": Exit Function
   Xnumber = Lettre & " " & Val(Mid(cell.Offset(-1), 3)) + 1
End Function

Deux exemples dans le fichier joint.

Bonjour MP

Merci pour votre scripte
"fantastique"

Arnold

 

[job75]

Bonjour hermann, mapomme,

"fantastique"

Pas trop compris, la solution de mapomme redémarre la numérotation après une ligne vide.

Mais dans vos formules du post #30 rien n'indique qu'il y a des lignes vides avec nouvelle numérotation...

A+

 

[hermann]

Bonjour hermann, mapomme,

Pas trop compris, la solution de mapomme redémarre la numérotation après une ligne vide.

Mais dans vos formules du post #30 rien n'indique qu'il y a des lignes vides avec nouvelle numérotation...

A+

Bonjour a vous tous

L'image d'une feuille d'excel pour la page "M"
A vous a juger mes idee .....

Merci
Bonne journee

A+

 

[job75]

Bonjour hermann, le forum,

Voyez le fichier joint et la formule en A2 :

=SI(B2="";"";GAUCHE(B2;3)&SI(DECALER(B2;-1;)=B2;NB.SI(B$1:B1;B2)+1;1)&GAUCHE(C2;3))

A+

 

[hermann]

Bonjour hermann, le forum,

Voyez le fichier joint et la formule en A2 :

=SI(B2="";"";GAUCHE(B2;3)&SI(DECALER(B2;-1;)=B2;NB.SI(B$1:B1;B2)+1;1)&GAUCHE(C2;3))

A+

Merci pour votre contribution !
J'ai étudié l'exemple avec respect.
J'ai peur de poser une question dans le futur...
Encore merci! A+

 

[job75]

J'ai peur de poser une question dans le futur...

Surtout il ne faut pas avoir peur de dire que la solution proposée convient 🙄