bonjour,
J'ai un problème de macro sur un fichier


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 mI = cLigne1Tirage ' Ligne de départ
    Do While True
        If Range(cTirage1 + Trim(Str(mI))) = "" Then Exit Do    ' Fin de liste
 
        TAB_TIRAGES(INDICE_TAB_TIRAGES, 1) = Range(cTirage1 + Trim(Str(mI)))
        TAB_TIRAGES(INDICE_TAB_TIRAGES, 2) = Range(cTirage2 + Trim(Str(mI)))
        TAB_TIRAGES(INDICE_TAB_TIRAGES, 3) = Range(cTirage3 + Trim(Str(mI))) ??? c'est celui ci qui est souligné
        TAB_TIRAGES(INDICE_TAB_TIRAGES, 4) = Range(cTirage4 + Trim(Str(mI)))
        TAB_TIRAGES(INDICE_TAB_TIRAGES, 5) = Range(cTirage5 + Trim(Str(mI)))
        TAB_TIRAGES(INDICE_TAB_TIRAGES, 6) = Range(cTirage6 + Trim(Str(mI)))
        TAB_TIRAGES(INDICE_TAB_TIRAGES, 7) = Range(cTirage7 + Trim(Str(mI)))
 
        INDICE_TAB_TIRAGES = INDICE_TAB_TIRAGES + 1
 
        ' Ligne suivante
        mI = mI + 1
    Loop
merci pour votre aide