Discussion :

[MUMU39]

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

[anasecu]

bonjour,

c'est celui ci qui est souligné

Ce qu'il faudrait savoir c'est la définition de ta table car il n'est pas sûr que tu ais plus de 2 colonnes et donc cela s'arrête sur la troisième.