Remplacer les numéros par des prénoms

Bonjour à tous,

J'ai ce fichier au format excel pour un tournoi de pétanque à la mélée qui me convient très bien,

j'aurais juste besoin de remplacer les numéros par les prénoms des participants que j'ai ajouté dans la feuille "partie 1".

Si quelqu'un peux m'aider, je l'en remercie par avance

Salut,

Tu peux essayer avec ceci, pas forcément optimisé, mais ça fonctionne

Sub MàJ_Noms()
  Dim ListeNumNOM As Object
  Dim Cel As Range
  Dim Numero As String, Prenom As String
  Dim Col As Long, Lig As Long
  Dim NbPartie As Integer
  ' Créer un dictionnaire des numéros et noms
  Set ListeNumNOM = CreateObject("Scripting.Dictionary")
  For Each Cel In Sheets("Partie 1").Range("A16:A27")
    Numero = Trim(CStr(Cel.Value))
    Prenom = Trim(CStr(Cel.Offset(0, 1).Value))
    If Numero <> "" And Prenom <> "" Then
      ListeNumNOM(Numero) = Prenom
    End If
  Next Cel
  ' Modifiier les valeur dans toutes les feuilles
  For NbPartie = 1 To 4
    With Sheets("Partie " & NbPartie)
      For Col = 1 To 4
        For Lig = 2 To 4
          Set Cel = .Cells(Lig, Col)
          Numero = Trim(CStr(Cel.Value))
          If Numero <> "" Then
            If ListeNumNOM.Exists(Numero) Then
              Cel.Value = ListeNumNOM(Numero)
            End If
          End If
        Next Lig
      Next Col
    End With
  Next NbPartie

A+

Bonjour

Un exemple de ton fichier avec une macro

Bonjour à tous.

Où bien comme ça. Vous retapez 1 ou n'importe quel chiffre

Cordialement.

Hello,

en VBA avec un VLookup ? :

Sub RemplacerNumerosParPrenoms()

    Dim cellule As Range
    Dim resultat As Variant

    For Each cellule In Range("A2:D4")
        If cellule.Value <> "" Then
            resultat = Application.VLookup(cellule.Value, Worksheets("Partie 1").Range("A16:B27"), 2, False)

            If Not IsError(resultat) Then
                cellule.Value = resultat
            End If

        End If

    Next cellule

End Sub

Merci à tous ,

Payet Claude , j'aime bien le système , le seul truc, c'est quand tu indiques un score, il reprend aussi les prénoms...au lieu de laisser la valeur.

Tu as peut etre moyen de voir cette chose?

merci par avance

Jurassic Pork et JexeL2fr, merci également pour votre retour,

mais je ne sais pas comment insérer vos formules..

j'en suis désolé, je ne suis qu'un débutant...

Si vous savez l'introduire dans le fichier

Ci-joint le fichier corrigé.

Cordialement.