XL 2013 Erreur de compilation ? module

starz

XLDnaute Occasionnel
Bonjour, j'ai une erreur dans ma macro mais je ne comprend pas quel est le problème ?
Ma macro fonctionne sur un PC mais pas l'autre ?
une idée

Erreur de compilation
Projet ou bibliothèque introuvable



Code:
Sub qualif()
Dim tablo() As Variant
Dim tablo2() As Variant
Nb = Sheets("PILOTES").Range("B" & Rows.Count).End(xlUp).Row

tablo = Sheets("PILOTES").Range("B3:B" & Nb).Value
ReDim tablo2(1 To UBound(tablo, 1), 2)
For i = LBound(tablo2, 1) To UBound(tablo2, 1)
    tablo2(i, 1) = ""
Next i
i = 1
While tablo2(UBound(tablo2, 1), 1) = ""
    DejaTiré = False
    Tirage = WorksheetFunction.RandBetween(1, Nb - 2)
    For J = LBound(tablo2, 1) To UBound(tablo2, 1)
        If tablo2(J, 1) = Tirage Then
            DejaTiré = True
            Exit For
        End If
    Next J
    If Not DejaTiré Then
        tablo2(i, 1) = Tirage
        tablo2(i, 2) = tablo(Tirage, 1)
       
        i = i + 1
        DejaTiré = False
    End If
Wend

saut = 0
For i = LBound(tablo2, 1) To UBound(tablo2, 1)
   Sheets("Chrono QUALIF").Range("D2").Offset(i + saut, 0) = tablo2(i, 2)
   If i Mod 4 = 0 Then saut = saut + 1
Next i

End Sub
 

Jacky67

XLDnaute Accro
Bonjour,
Macro non tester par défaut de classeur
Dans l'éditeur VBA
Outils/Références==> décocher les références qui sont marquées : Manquantes
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas