Discussion :

[Pierre67]

Bonjour à tous

dans un userform, je saisis nom et prénom dans une textbox
la macro suivante me décompose la saisie en nom (colonne A) et prénom (colonne B).
En colonne C je souhaite avoir un code de la personne composé des initiales Nom prénom exemple DUBOIS Roger = DR
mon pb : si il y a DUBOIS Robert j'obtiens également DR donc doublons !
il faudrait que je rajoute la seconde lettre du prenom pour avoir DRO.
je n'arrive pas à voir comment vérifier les doublons et incrémenter le code.
Si quelqu'un a une idée je suis preneur
bien à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
nouvnom = Range("A50").End(xlUp).Row + 1
Phrase = tbnom.Value
Nom = Split(Phrase, " ")(0)
Prenom = Split(Phrase, " ")(1)
     Range("A" & nouvnom) = UCase(Nom)
     Range("b" & nouvnom) = UCase(Prenom)
     Range("c" & nouvnom).FormulaR1C1 = "=CONCATENATE(LEFT(RC[-2],1),LEFT(RC[-1],1))"
     tbcode.Value = Range("C" & nouvnom).Value

[d0n32]

Bonjour,
Rajouter une boucle for sur l'ensemble des cellules contenant les initiales déjà existantes et comparer le résultat avec la nouvelle concaténation pourrait faire l'affaire non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For each cel in Range("C1:C" & nouvnom -1)
    if cel.value = Range("c" & nouvnom).value then
        Range("c" & nouvnom).FormulaR1C1 = "=CONCATENATE(LEFT(RC[-2],1),LEFT(RC[-1],2))"
    end if
next cel

[gFZT82]

Bonjour,

J’ai une autre idée
Eviter de chercher à identifier une personne avec une abréviation du nom et du prénom. Si tu choisis un identifiant unique (matricule par exemple), cela t’évitera d’avoir à résoudre le problème des doublons.

Cordialement.

[d0n32]

D'autant plus que ma solution ne te protégera pas des futurs doublons à 3 lettres

[Pierre67]

bonjour Don32 et GFZT82

la boucle fonctionne bien
la solution du matricule est bonne également
en fait le code va servir à remplir un tableau quand worksheet_change, il est plus facile de se souvenir des initiales d'une personne que d'un matricule à mon avis

merci pour vos toujours précieux conseils