VBA Problèmes variables

[vivi4561]

Bonjour,

J'ai un petit soucis sur le code suivant :

    PaysSelection = InputBox("Veuillez sélectionner le code pays pour le calcul P&L")
    If PaysSelection = "" Then GoTo Fin:
    
    codepaysSelection = Application.Match(PaysSelection, Sheets("Resultats").Range("F4:HR4"), 0)

J'ai toujours un bug sur l'une ou l'autre des lignes suivant la façon dont je définie mes variables.
Savez vous comment je dois définir mes variables pour que tout cela fonctionne ?


Merci d'avance.



Vince

 

[Dranreb]

Re : VBA Problèmes variables

Bonjour.

Dim PaysSelection As String, CodePaysSelection As Long

Toutefois, une erreur survient si PaysSelection ne figure pas dans la liste.
À+

 

[vivi4561]

Re : VBA Problèmes variables

J'ai une erreur à la ligne :

codepaysSelection = Application.Match(PaysSelection, Sheets("Resultats").Range("F4:HR4"), 0)

Excel me dit : incompatibilité de type :S

 

[Pierrot93]

Re : VBA Problèmes variables

Bonjour,

essaye ceci, permet de "gérer" l'erreur au cas ou la valeur n'a pas été trouvée..

Dim codepaysSelection As Variant
Dim PaysSelection As String
PaysSelection = InputBox("Veuillez sélectionner le code pays pour le calcul P&L")
If PaysSelection = "" Then Exit Sub
codepaysSelection = Application.Match("PaysSelection", Range("F4:HR4"), 0)
If VarType(codepaysSelection) = vbError Then MsgBox "non trouvé"

bonne journée
@+

 

[vivi4561]

Re : VBA Problèmes variables

Bonjour Pierrot,

Merci pour ta réponse. Le truc c'est que le code existe bien et ça affiche tout de meme le message d'erreur.

Variable:
PaysSelection = Nombre ou lettre
codepaysSelection = Nombre (numéro d'une colonne)

Si je joue avec la déclaration des variables, dans un cas une variable marche mais pas l'autre

 

[Pierrot93]

Re : VBA Problèmes variables

Bonsoir,

tu as essayé le code que je te proposais ??