XL 2013 Erreur de compilation ? module

  • Initiateur de la discussion Initiateur de la discussion starz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
144
Réponses
8
Affichages
233
Réponses
4
Affichages
177
Réponses
10
Affichages
281
Réponses
2
Affichages
124
Réponses
5
Affichages
232
Réponses
8
Affichages
467
Retour