Discussion :

[peofofo]

Bonjour à tous,

J'ai actuellement ecrit un petit script qui me donne le prénom exacte a partir des 3 premières lettres.

Le problème est qu'il me donne le prénom exact a partir d'une liste.
Au lieu de mettre une liste, je souhaiterais qu'il me donne le prénom exact en fonction des champs qui a comme valeur le meme nom de famille.

Exemple:
Marschal Pierre
Masse Claudine
France Claude
Dupont Jacques
France Paul

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
 
nom1_adversaire1 = Left(ThisWorkbook.Sheets("Résultats").Range("D9"), (InStr(ThisWorkbook.Sheets("Résultats").Range("D9"), " ")) - 1)
prenom1_adversaire1 = Right(ThisWorkbook.Sheets("Résultats").Range("D9"), 3)
For Each cel In Sheets("Joueurs").Range("G8:G13")
    If cel Like (prenom1_adversaire1 & "*") Then
         joueur1_adversaire1 = nom1_adversaire1 & " " & cel
    End If
Next cel

Le problème de ce code est qu'il va me chercher avec les 3 premières lettres du prénom du premier nom correspondant.
Dans l'exemple,
Si ThisWorkbook.Sheets("Résultats").Range("D9") vaut FRANCE Clau
Les 3 premières lettres du prénom sont : clau
Le script va me donner cel valant Claudine
et la variable joueur1_adversaire1 sera alors FRANCE Claudine se qui est faux

Le problème se situe au niveau de la liste Range("G8:G13")
Faudrait trouvé une solution pour ne mettre que les champs qui correspond au nom1_adversaire1 (Dans l'exemple France).

Seulement je ne trouve pas de solution.

si vous avez des idées ?

[fring]

Bonjour,

Essaie ceci :

Code :

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

If cel Like (prenom1_adversaire1 & "*") And cel.Offset(0, -1) = nom1_adversaire1 Then

[peofofo]

Merci fring, ça marche très bien.