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.

[unparia]

Bonjour
je n'ouvre jamais un classeur tiers et n'ouvre donc pas le tien !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Recap(Index) = Mois(Index)

devrait logiquement être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Recap(Index) = vCell.value

Et on prend la bonne habitude de préciser les choses que l'on utilise --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each vCell In Mois.cells

[unparia]

J'appelle par ailleurs ton attention sur le fait que la méthode Range.copy appliquée à une plage (y compris de cellules discontinues) crée en sa destination une plage de cellules continues.
Or, ce que tu appelles indûment "tableaux" dans ton titre et "tables" dans ton exposé ne sont ni des "tableaux", ni des "tables", mais des plages de cellules (que tu définis d'ailleurs toi-même ainsi dans ton code par tes instructions Set !). Des objets Range, donc .

Je te laisse donc remplacer tout ton code par une simple ligne de code utilisant la méthode Range.Copy, que tu découvriras au besoin en voulant bien ouvrir ton aide interne VBA à la rubrique Range.Copy, méthode

[IphilG00d]

... Et bien merci pour cette "leçon".
Effectivement je suis un pauvre autodidacte et je me débrouille comme je peux avec Internet, aide et autre. Donc c'est évident que mon pseudo "code" n'est certainement pas très académique.
J'ai effectivement tenter d'utiliser la méthode Range.copie mais qui n'a pas fonctionné non plus: La sélection multiple de départ a été recopiée en une sélection de cellules continue.

Donc merci encore pour tes conseils que je vais suivre... continuer de chercher et ne plus participer à ces forums sans avoir obtenu le niveau nécéssaire pour poser des questions.