Comparer contenu 2 colonnes/ erreur 13 compatibilité

Bonjour le forum,

Tous les ans c'est le bazar lors du début de la saison, j'aimerais faire un système de suivi des stocks de matériel de mon club de Foot US.

Là je fais une macro qui compare les numéros attribué dans la page "Roster" à un joueur, il faut retrouver le numéro sur la feuille "Maillots" et assigner le nom du joueur à ce numéro.

J'ai une erreur de compatibilité (13) sur cette ligne : NumeroRoster = Worksheets(Roster).Range("E" & i).Value

Option Explicit
Sub Attribution_Maillots()
'
' Attribution_Maillots Macro
'
Dim NumeroRoster As String, NumeroMaillot As String, Joueur As String
Dim i As Integer, j As Integer

'Recherche du numéro correspondant pour y attribuer le nom du joueur
For i = 4 To 102
        NumeroRoster = Worksheets(Roster).Range("E" & i).Value
    For j = 3 To 101
        NumeroMaillot = Worksheets(Maillots).Range("B" & j).Value

If NumeroRoster = NumeroMaillot Then
    Joueur = Sheets(Roster).Range("B" & i).Value
    Sheets(Maillots).Range("C" & j).Value = Joueur
End If
Next j
Next i
'

End Sub

J'avoue que sur le coup de la compatibilité, je bloque un peu. Du coup si quelqu'un voit le problème, ça me rendrais un bon service. Voici le code.

Merci à ceux qui s'y intéresseront

Bonsoir,

essayez ceci :

For i = 4 To 102
        NumeroRoster = Worksheets("Roster de Match").Range("E" & i).Value
    For j = 3 To 101
        NumeroMaillot = Worksheets("Maillots").Range("B" & j).Value

Le nom des Worksheets doit être entre guillemets et surtout être égal au nom des onglets, donc erreur de type pour deux raison:

Roster est différent de Roster de Match

et worksheets(Roster) = worksheets(numéro index de feuille) donc VBA attend une valeur numérique entière, hors Roster = variable non définie = Nulle, donc provoque l'erreur...

@ bientôt

LouReeD

Salut,

En rajoutant des guillemets, ça marche nickel chez moi ) (enfin en tout cas, j'ai pas de bug)

Option Explicit
Sub Attribution_Maillots()
'
' Attribution_Maillots Macro
'
Dim NumeroRoster As String, NumeroMaillot As String, Joueur As String
Dim i As Integer, j As Integer

'Recherche du numéro correspondant pour y attribuer le nom du joueur
For i = 4 To 102
        NumeroRoster = Sheets("Roster de Match").Range("E" & i).Value
    For j = 3 To 101
        NumeroMaillot = Worksheets("Maillots").Range("B" & j).Value

If NumeroRoster = NumeroMaillot Then
    Joueur = Sheets("Roster de match").Range("B" & i).Value
    Sheets("Maillots").Range("C" & j).Value = Joueur
End If
Next j
Next i
'

End Sub

EDIT : Mince, trop tard

C'est bon ça marche.

Merci les gars,LouReeD et SoumZoum, je suis fatigué ce soir, je fais des erreurs bêtes et méchantes ^^.

C'est ça quand on est trop fort

Santé à vous Soumzoum

@ bientôt

LouReeD

LouReeD Santé

Timothe URVOY, à qui ça n'arrive pas