Discussion :

[IphilG00d]

Bonjour à tous,

Ayant plusieurs fois eu recours à vos lumières, je vous soumet ici un petit problème sur lequel je m'arrache les cheveux!
Je joins à cette requête le fichier Excel correspondant
Ce fichier contient 2 onglets;
- un onglet Planning avec 3 mois de l'année séparés et pour lequel j'ai défini une table (T_Mois) qui regroupe ces 3 mois qui ne sont pas contigus.
- un onglet Recap qui lui contient les 3 mois en linéaire et pour lequel j'ai défini une table (T_Recap) qui elle non plus n'est pas contigu et un bouton avec un petit code.
Ce code est sensé passé en revue le tableau T_Mois et remplir la table T_Recap basé sur la sélection correspondant à la table T_Mois.
Mais ce qui se passe le remplissage de T_Recap s’arrête à la fin de la première zone contigu de T_Mois. je ne comprend pas pourquoi:
Voici le code

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
18
Sub Generic_Bt()
 
    Dim Recap As Range
    Dim Mois As Range
 
    Set Recap = Range("T_Recap")
    Set Mois = Range("T_Mois")
 
    Index = 1
    For Each vCell In Mois
        Recap(Index) = Mois(Index)
        Index = Index + 1
        If Index > 30 And Index < 35 Then
            MsgBox Mois(Index)
        End If
    Next vCell
 
End Sub

Merci d'avance pour votre aide.