XL 2019 LETTRES

[LEPATOCHE]

Bonsoir a tous j'ai plusieurs lignes en tout 6 , ma question et simple je voudrais une formule en J1 qui me renvoye 2 autres lettres suivant le resultat de la cellule A1
c'est ta dire exemple dans mon fichier que je vous envoye il y a la lettre A dans la cellule A1 donc ma formule me marquera AA dans la cellule J1 a recopier vers la droite bien sur et a recopier vers le bas ensuite merci de votre aide !

 

[eastwick]

Bonsoir, j'ai du mal à suivre votre raisonnement !

 

[eastwick]

ah je crois que j'ai pigé on passe à B si doublon et ainsi de suite, et ce, sur chaque ligne

 

[LEPATOCHE]

oui bien sur

 

[job75]

Bonsoir LEPATOCHE, eastwick,

Bravo eastwick pour avoir trouvé la méthode, ce n'était pas si évident.

Je pense qu'il faut utiliser une fonction VBA mais d'abord j'ai une question.

Que doit-on faire quand on atteint AZ (ou BZ ou CZ) et qu'il y a doublon ?

A+

 

[LEPATOCHE]

si dans ma ligne 1 de A1 a G1 il y a par exemple plusieurs A donc ma formule me marquera AA pour le premier A trouver et a droite de cette formule il me marquera AB et ainsi de suite AC , AD , AE , AF , AG
.

 

[job75]

Vous n'avez pas répondu à ma question alors tant pis, voyez le fichier joint et cette fonction VBA :

Function Suite(c As Range, plage As Range) As String
Dim i As Byte, x As String, j As Variant
For i = 1 To 26
    x = c & Chr(64 + i)
    If Application.CountIf(plage, x) = 0 Then Suite = x: Exit Function
Next
End Function

Le code doit être placé impérativement dans un module standard.

Formule en J1 à tirer à droite et vers le bas =Suite(A1;$I1:I1)

A+

 

[LEPATOCHE]

Merci JOB 75 c'est cela que je voulais je l'ai tester ca marche ! merci encore bonne soiree .

 

[eastwick]

Il est fort ce job75 !

 

[mapomme]

Bonsoir à tous,

Une version par formule sans VBA (même si je préfère le VBA dans ce cas là).
La formule en J1 à tirer/copier vers la droite et vers le bas :

=A1 & STXT(GAUCHE(CELLULE("adresse";DECALER($A$1;0;NB.SI($A1:A1;A1)-1));TROUVE("$";CELLULE("adresse";DECALER($A$1;0;NB.SI($A1:A1;A1)-1));2)-1);2;999)

 

[job75]

Re, bonsoir mapomme,

Avant d'aller dormir, notez qu'au post #7 la déclaration j As Variant est bien sûr inutile et donc à supprimer.

Bonne nuit.

 

[LEPATOCHE]

Bonsoir mapomme merci pour votre réponse d'hier soir elle marche aussi bien que job 75 encore merci a vous tous !

 

[job75]

Bonsoir LEPATOCHE, eastwick, mapomme,

Voyez le fichier .xlsx joint (sans macro) avec cette formule relativement simple en J1 :

=A1&CAR(64+SOMMEPROD(NB.SI($I1:I1;A1&CAR(64+LIGNE(INDIRECT("1:26")))))+1)

à tirer vers la droite et le bas.

A+

 

[mapomme]

Voyez le fichier .xlsx joint (sans macro) avec cette formule relativement simple en J1 :

Bonjour @job75
J'étais parti comme ça aussi puis j'ai compliqué pour aller au delà de la lettre Z jusqu'à XFD.
Allez, hop! au télétravail.