Erreur d'indice

[Claude72]

Bonjour à tous

J'ai une erreur : "L'indice n'appartient pas à la sélection" !!!

Dans une feuille "Equipes", j'ai une liste de pays en B13:B16 (Allemagne - Costa Rica - Pologne - Equateur)
Dans une feuille "'Groupe A'", j'utilise un UserForm (FrmGA) avec une listBox.
Je clique sur le premier (Allemagne)

Voici le code :

Private Sub lst1G_Click()
[Equipes!B13] = FrmGA.lst1G
If op1.Value = True Then
sVal = "=RECHERCHEV(" & lst1G.Text & ";Equipes!B13:B16;1)"
Sheets("'Groupe A'").Range("C12").FormulaLocal = sVal
End If
End Sub

Et là : erreur ...

Quelqu'un a-t-il une idée ?

Merci par avance

 

[RENAUDER]

Re : Erreur d'indice

Bonjour,
Je ne sais pas si j'ai tout compris (pourquoi une RECHERCHEV) mais je ferais comme le montre le code.
Sinon je crois penser que tu veux à partir d'une liste de N pays, les ventiler dans différents groupes ?
Dans ce cas il y a plus simple mais pour l'instant je réponds à ta demande faite sur ce site.

Private Sub lst1G_Click()
    If op1.Value = True Then
        Sheets("Groupe A").Activate
        Range("C1").Value = Me.lst1G.List(Me.lst1G.ListIndex)
        Range("C12").FormulaR1C1 = "=VLOOKUP(R1C3,Equipes!R13C2:R16C2,1,FALSE)"
    End If
End Sub

 

[Claude72]

Re : Erreur d'indice

Bonjour,
Je ne sais pas si j'ai tout compris (pourquoi une RECHERCHEV) mais je ferais comme le montre le code.
Sinon je crois penser que tu veux à partir d'une liste de N pays, les ventiler dans différents groupes ?
Dans ce cas il y a plus simple mais pour l'instant je réponds à ta demande faite sur ce site.

Private Sub lst1G_Click()
    If op1.Value = True Then
        Sheets("Groupe A").Activate
        Range("C1").Value = Me.lst1G.List(Me.lst1G.ListIndex)
        Range("C12").FormulaR1C1 = "=VLOOKUP(R1C3,Equipes!R13C2:R16C2,1,FALSE)"
    End If
End Sub

Merci pour ta réponse.
J'ai trouvé la raison : il fallait mettre le pays entre guillemets : Chr(34) & lst1G.text & Chr(34).
Ca marche avec ce code :

sTeam = Chr(34) & lst1G.Text & Chr(34)
sVal = "=RECHERCHEV(" & sTeam & ";Equipes!B13:B16;1;1)"
With Sheets("Groupe A")
.Activate
.Range("C12").FormulaLocal = sVal
End With

Cordialement