XL 2019 LETTRES

eastwick

XLDnaute Accro

• 23 Mars 2021

• #2

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

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 23 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 23 Mars 2021

• #4

oui bien sur

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mars 2021

• #5

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+

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 23 Mars 2021

• #6

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
.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mars 2021

• #7

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

VB:

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+

 

Pièces jointes

• LETTRES(1).xlsm

  15 KB · Affichages: 10

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 23 Mars 2021

• #8

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

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 23 Mars 2021

• #9

Il est fort ce job75 !

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2021

• #10

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 :

VB:

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

 

Pièces jointes

• LEPATOCHE- LETTRES- v1.xlsx

  11 KB · Affichages: 9

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mars 2021

• #11

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.

 

Pièces jointes

• LETTRES(1).xlsm

  15.6 KB · Affichages: 6

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 24 Mars 2021

• #12

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mars 2021

• #13

Bonsoir LEPATOCHE, eastwick, mapomme,

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

Code:

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

à tirer vers la droite et le bas.

A+

 

Pièces jointes

• LETTRES(2).xlsx

  10.5 KB · Affichages: 12

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Mars 2021

• #14

job75 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif