Raynaud.JF
XLDnaute Nouveau
Bonjour, voici mon probleme,
mon tabeau a dans la 1er colonne l'heure exemple 00:00:00
chaque cellule dessous est incrémentée de minute en minute jusqu'a 23:59:59.
dans la 2e colonne je renseigne l'intervalle se trouvant de 5mn en 5mn
Je filtre sur cette 2e colonne uniquement les lignes qui on l'intervalle de 5mn (minute finissant par 5 ou 0)
ce que je souhaite faire c'est pour un intervalle donné (une plage sélectionnée) dans la 3e colonne la valeur "x" soit renseignée, même dans les cellule/ligne masquées par le filtre.
Mais quand je colle mon tableau (MonTab) dans ma plage (MaPlage) cela ne colle que dans les cellules visibles.
PS:si je passe par un tableau/array c'est pour la rapidité d’exécution.
Pouvez vous m'aider ? merci par avance.
Extrait du code
Llue = Target.Row
Ldeb = Cells(Llue, Target.Column).End(xlUp).Row + 1
Lcount = Llue - Ldeb
If Ldeb < Range("rgRstart").Row Then Ldeb = Range("rgRstart").Row
Set MaPlage = Range(Cells(Ldeb, Target.Column), Cells(Llue, Target.Column))
ReDim MonTab(1 To Lcount)
For comptLig = 1 To Lcount
MonTab(comptLig) = "x"
Next comptLig
MaPlage.Value = MonTab
mon tabeau a dans la 1er colonne l'heure exemple 00:00:00
chaque cellule dessous est incrémentée de minute en minute jusqu'a 23:59:59.
dans la 2e colonne je renseigne l'intervalle se trouvant de 5mn en 5mn
Je filtre sur cette 2e colonne uniquement les lignes qui on l'intervalle de 5mn (minute finissant par 5 ou 0)
ce que je souhaite faire c'est pour un intervalle donné (une plage sélectionnée) dans la 3e colonne la valeur "x" soit renseignée, même dans les cellule/ligne masquées par le filtre.
Mais quand je colle mon tableau (MonTab) dans ma plage (MaPlage) cela ne colle que dans les cellules visibles.
PS:si je passe par un tableau/array c'est pour la rapidité d’exécution.
Pouvez vous m'aider ? merci par avance.
Extrait du code
Llue = Target.Row
Ldeb = Cells(Llue, Target.Column).End(xlUp).Row + 1
Lcount = Llue - Ldeb
If Ldeb < Range("rgRstart").Row Then Ldeb = Range("rgRstart").Row
Set MaPlage = Range(Cells(Ldeb, Target.Column), Cells(Llue, Target.Column))
ReDim MonTab(1 To Lcount)
For comptLig = 1 To Lcount
MonTab(comptLig) = "x"
Next comptLig
MaPlage.Value = MonTab