Filtrer les données dans un tableau

Question

Bonjour, 
j'aimerai avoir un code qui me permet de lire un tableau 5 colonnes et 5 000 lignes
dans une feuille nommée "Données" et ensuite d'afficher les valeurs par pas de 10 dans une autre feuille nommée "valeurs à afficher".
 
Mon objectif est de programmer cette feuille de telle façon à parcourir toutes les
données dans "Mesures" selon le pas de temps de lecture (Pas) et ensuite d'afficher 
les valeurs que je veux dans "valeurs à afficher" selon le pas de temps d'affichage (Pas_j). Dans mon fichier le pas est de 10 secondes, il arrive que je travaille avec plus (par exemples 50, 55, 60, 85 secondes).




Configuration: Windows 7 / Chrome 44.0.2403.155

ThauTheme · Answer

Bonjour Mbo, bonjour le forum,

Pas très clair tout ça !... Il y a un onglet Données, une onglet valeurs à afficher et un visiblement un onglet Mesures ? 

Un pas de 10 (nombre de lignes) un pas de temps de lecture et un pas de temps d'affichage ?

Ce que j'ai compris c'est qu'il faut que tu définisses le nombre de lignes (pas de lignes) de l'onglet Données à afficher selon un certain temps (pas de temps) dans l'onglet valeurs à afficher avant de passer au bloc suivant.

Est-ce ça que tu veux ?

ThauTheme · Answer

Re,

Désolé Mbo mais je ne comprends toujours pas. Pourrais-tu joindre un petit fichier exemple avec juste quelque lignes et le résultat que tu souhaite avoir en fonction du pas choisi...

ThauTheme · Answer

Re,

Arf ! J'ai enfin compris...

Soit tu sélectionnes dans l'onglet Mesures la cellule de départ et tu lances le code (à placer dans un module standard) ci-dessous :

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Set M = Sheets("Mesures") 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(CInt(Split(TC(LI, 1), ".")(0)), CInt(Split(TC(LI, 1), ".")(1)), CInt(Split(TC(LI, 1), ".")(2)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(CInt(Split(TC(I, 1), ".")(0)), CInt(Split(TC(I, 1), ".")(1)), CInt(Split(TC(I, 1), ".")(2))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(1, 4).Value = Application.Index(TC, 1) 'reçupère la première ligne de TC
    V.Range("A2").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL) 'renvoie en A2 redimensionnée le tableau TL transposé
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub

soit tu copies le code ci-dessous dans le composant de l'onglet VBA de l'onglet Mesures et la macro se lance automatiquement au double-clic dans la cellule de départ de la colonne A

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub 'si le boucle-clic a lieu ailleurs que dans la colonne 1 (=A) ou dans la ligne 1, sort de la procédure
Cancel = True 'evite le mode [Édition] lié au double-clic
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = Target.Row 'définit la ligne LI (ligne de la cellule double-cliquée)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(CInt(Split(TC(LI, 1), ".")(0)), CInt(Split(TC(LI, 1), ".")(1)), CInt(Split(TC(LI, 1), ".")(2)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(CInt(Split(TC(I, 1), ".")(0)), CInt(Split(TC(I, 1), ".")(1)), CInt(Split(TC(I, 1), ".")(2))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(1, 4).Value = Application.Index(TC, 1) 'reçupère la première ligne de TC
    V.Range("A2").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL) 'renvoie en A2 redimensionnée le tableau TL transposé
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub
 
C'est basiquement le même code sauf que l'un est événementiel et l'autre pas...

ThauTheme · Answer

Re,

Je ne peux pas exposer comme ça mes données perso. Il faut que tu t'enregistres et je pourrai te les envoyer par mail perso...

ThauTheme · Answer

Regarde tes mails persos... Il me semble que certains de nos post ont été censurés puisqu'on passe du post 9 au post 13...
 
À plus,
ThauTheme

ThauTheme · Answer

Le problème vient certainement des limites imposées à Transpose...
Essaie cette nouvelle option :

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Set M = Sheets("Mesures") 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(CInt(Split(TC(LI, 1), ".")(0)), CInt(Split(TC(LI, 1), ".")(1)), CInt(Split(TC(LI, 1), ".")(2)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(CInt(Split(TC(I, 1), ".")(0)), CInt(Split(TC(I, 1), ".")(1)), CInt(Split(TC(I, 1), ".")(2))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(1, 4).Value = Application.Index(TC, 1) 'reçupère la première ligne de TC
    For I = 1 To UBound(TL, 2)
        V.Cells(I + 1, 1).Resize(1, 4).Value = Application.Transpose(Application.Index(TL, , I))
    Next I
    'V.Range("A2").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL) 'renvoie en A2 redimensionnée le tableau TL transposé
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub
 
Tu ne m'as pas dit laquelle des deux macros te convenait mieux...

ThauTheme · Answer

Re,

Je viens de regarder ton fichier et de comprendre...
à partir de 07.00.04 le pas est parfois de 11 ou de 9 au lieu d'être de 10 !... Attention j'ai rajouté une première ligne avec les étiquettes : Temps, DNI, HR, Température. Regarde les lignes 723 / 724 / 730 / 731 / 733 / 734 etc...

ThauTheme · Answer

Re,

Évite et le plus tôt possible, parce qu'après ça m'énerve et je ne réponds plus...

J'ai encore repérée une anomalie on passe de 15:50:54 à 15:51:14. Pas de 20

Donc la macro fonctionne très bien mais c'est ton fichier qui a des écarts dans le pas de 10 !...

ThauTheme · Answer

Re,

Aucune idée vu que je me base sur le temps d'une cellule et lui ajoute NS secondes. Il devient le nouveau temps de base, ensuite le code cherche dans les lignes en-dessous un temps égale au dernier temps de base. C'est sûr que si le pas est décalé ça ne concorde plus.

J'ai fait une macro qui remplace, dans toutes les valeurs de la colonne A, le dernier caractère (si ce n'est pas un 4) par un 4 et je suis arrivée jusqu'à 15:50:54.

On pourrait faire une macro qui réécrive les temps dans la colonne A par pas de 10 en prenant la première comme base mais je ne sais pas si tu peux faire ça ?... Si oui est-ce qu'on peut utiliser un format de temps ?

ThauTheme · Answer

Arf ! Enfin ça marche !...

Le code :

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Set M = Sheets("Mesures") 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
TPB = TimeSerial(CInt(Split(TC(1, 1), ".")(0)), CInt(Split(TC(1, 1), ".")(1)), CInt(Split(TC(1, 1), ".")(2))) 'définit le temps de base TBP (de la première cellule)
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    TC(I, 1) = Format(TPB, "hh:mm:ss") 'renvoie le temps de base dans la ligne I colonne 1 de TC
    TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + 10) 'incrémente le temps de base de 10 secondes
Next I 'prochaine ligne de la boucle
M.Range("A1").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule A1 redimensionnée de l'onglet M

NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(Hour(TC(LI, 1)), Minute(TC(LI, 1)), Second(TC(LI, 1)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(Hour(TC(I, 1)), Minute(TC(I, 1)), Second(TC(I, 1))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End If 'fin de la condition
V.Activate 'active l'onglet V
End Sub 

Le fichier

ThauTheme · Answer

Re,

Oui désolé le fichier que j'ai envoyé a déjà le temps converti. Tu aurais pu t'en rendre compte non ?!... Copie  la colonne F et colle-la dans la colonne A. Car c'est comme ça qu'est le fichier au départ...
Sélectionne la cellule de départ et lance le code...


 
À plus,
ThauTheme

ThauTheme · Answer

On pourrait dire à la macro de copier d'abord l'onglet Mesures, changer les formats et à la fin supprimer l'onglet copié. Qu'en penses-tu ?
 
Sub Macro1()
Dim AD As String 'déclare la variable AD (ADresse)
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
AD = ActiveCell.Address(0, 0) 'définit l'adresse AD de la cellule active
Sheets("Mesures").Copy After:=Sheets(Sheets.Count) 'copie l'onglet M en dernière position
Set M = ActiveSheet 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
TPB = TimeSerial(CInt(Split(TC(1, 1), ".")(0)), CInt(Split(TC(1, 1), ".")(1)), CInt(Split(TC(1, 1), ".")(2))) 'définit le temps de base TBP (de la première cellule)
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    TC(I, 1) = Format(TPB, "hh:mm:ss") 'renvoie le temps de base dans la ligne I colonne 1 de TC
    TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + 10) 'incrémente le temps de base de 10 secondes
Next I 'prochaine ligne de la boucle
M.Range("A1").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule A1 redimensionnée de l'onglet M
M.Range(AD).Select 'sélectionne dans l'onglet M la même cellule que la cellule active de l'onglet "Mesures"
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then Exit Sub 'si bouton "Annuler" ou égale à zéro sort de la procédure
NS = CInt(NS) 'convertis NS en entier (au cas où...)
LI = ActiveCell.Row 'définit la ligne LI (ligne de la cellule active)
'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(Hour(TC(LI, 1)), Minute(TC(LI, 1)), Second(TC(LI, 1)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LI, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LI To NL 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(Hour(TC(I, 1)), Minute(TC(I, 1)), Second(TC(I, 1))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End If 'fin de la condition
V.Activate 'active l'onglet V
Application.DisplayAlerts = False 'empêche les message d'Escel
M.Delete 'supprime l'onglet M
Application.DisplayAlerts = True 'permet les message d'Excel
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub


mais je vais voir si j'arrive à trouver un moyen de conserver le format dans l'onglet valeurs à afficher...

À plus,
ThauTheme

ThauTheme · Answer

Re,

Non ! Copie la colonne F et colle la dans A. Supprime la colonne F et maintenant lance la dernière macro... Pff !... On va y arriver...

ThauTheme · Answer

Re,

Je pense que tu ne lis même pas le code que je t'envoie. Tu te contentes de le lancer et de dire "ça marche"ou "ça marche pas"...
C'est pas comme ça que tu va progresser !...

Si tu avais lu, tu verrais que la macro :

 Copie l'onglet Mesures en dernière position
 utilise la copie pour :
- Réécrire le temps au format temps par pas de 10 secondes
- utilise la cellule active comme référence de départ
- lance une boite d'entrée ou l'utilisateur va définir le pas du temps
- récupères les ligne concernées dans l'onglet valeurs à afficher

 supprime la copie

Donc ça répond à ta première question : oui ça marchera sur un autre fichier même si le pas du temps n'est pas fixe, à partir du moment où les données se trouvent dans un onglet nommé Mesures et qu'il contient un onglet nommé valeurs à afficher.
Le temps de départ c'est toi qui le décide en sélectionnant la cellule de départ. Mais si tu veux une fourchette, il faudra utiliser soit deux boîtes d'entrée (InputBox) supplémentaires, soit une UserForm (Boîte de Dialogue).

Puisque dans le code que je t'ai proposé il y a déjà une boîte d'entrée pour définir le pas du temps. Essaye de faire les deux autres tout seul et si tu n'y arrive pas, tu m'envoies ton code et je te corrigerai...

ThauTheme · Answer

Bonjour,

Voici une proposition de code qui devrait convenir :

Sub Macro1()
Dim M As Worksheet 'déclare la variable M (onglet Mesures)
Dim V As Worksheet 'déclare la variable V (onglet valeurs à afficher)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NS As Variant 'déclare la variable NS (Nombre de Secondes)
Dim T_min As Variant 'déclare la variable T_min (Temps minimal)
Dim T_max As Variant 'déclare la variable T_max (Temps maximal)
Dim LID As Long 'déclare la variable LID (LIgne Début)
Dim LIF As Long 'déclare la variable LIF (LIgne Fin)
Dim TPB As Date 'déclare la variable TPB (TemPs de Base)
Dim K As Long 'déclare la variable K (incrément)
Dim I As Long 'déclare la variable I (Incrément)
Dim J As Byte 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Sheets("Mesures").Copy After:=Sheets(Sheets.Count) 'copie l'onglet M en dernière position
Set M = ActiveSheet 'définit l'onglet M
Set V = Sheets("valeurs à afficher") 'définit l'onglet V
V.Range("A1").CurrentRegion.ClearContents 'efface les éventuelles anciennes données de l'onglet V
TC = M.Range("A1").CurrentRegion 'définit le tableau de cellules TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
'définit le temps de base TBP (de la première cellule) au format : numéro de série de temps
TPB = TimeSerial(CInt(Split(TC(1, 1), ".")(0)), CInt(Split(TC(1, 1), ".")(1)), CInt(Split(TC(1, 1), ".")(2)))
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes I du tableau de cellules TC
    TC(I, 1) = Format(TPB, "hh:mm:ss") 'renvoie le temps de base dans la ligne I colonne 1 de TC
    TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + 10) 'incrémente le temps de base de 10 secondes
Next I 'prochaine ligne de la boucle
M.Range("A1").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule A1 redimensionnée de l'onglet M

deb: 'étiquette
NS = Application.InputBox("Combien de secondes ?", "PAS DE TEMPS", Type:=1) 'définit la boîte d'entrée NS (nombre de secondes)
If NS = False Or NS = 0 Then GoTo fin 'si bouton "Annuler" ou égale à zéro va à l'étiquette "fin"
NS = CInt(NS) 'convertis NS en entier (au cas où...)
If NS Mod 10 <> 0 Then 'condition 1 : si le pas n'est pas un multiple de 10
    'condition 2 : si "Oui" au message
    If MsgBox("Le pas de temps que vous avez tapé n'est pas valide !" & Chr(13) & "Voulez-vous recommencer ?", vbYesNo, "ATTENTION!") = vbYes Then
        GoTo deb 'relance la boite d'entrée via l'étiquette "un"
    Else 'sinon
        GoTo fin 'va à l'étiquette "fin"
    End If 'fin de la condition 2
End If 'fin de la condition 1

un: 'étiquette
T_min = Application.InputBox("Temps Minimal au format hh:mm:ss. Tapez " & Chr(34) & "D" & Chr(34) & " pour commencer du début !", "TEMPS DU DÉBUT", Type:=2) 'définit la boîte d'entrée T_min
If T_min = False Or T_min = 0 Then GoTo fin 'si bouton "Annuler" ou T_min est égale à zéro, va à l'étiquette fin
If UCase(T_min) = "D" Then LID = 1: GoTo suite1 'si T_min vaut "d" ou "D", définit la ligne LID, va à l'étiquette "suite1"
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
T_min = Format(CDate(T_min), "hh:mm:ss") 'redéfinit T_min au format date hh:mm:ss
T_min = TimeSerial(Hour(T_min), Minute(T_min), Second(T_min)) 'redéfinit T_min au format : numéro de série de temps
LID = M.Columns(1).Find(T_min, , xlFormulas, xlWhole).Row 'définit la ligne de départ LID (génère une erreur si T_min n'est pas trouvé dans la colonne 1 de l'onglet M)
If Err <> 0 Then 'condition 1 : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    'condition 2 : si "Oui" au message
    If MsgBox("Le temps de départ que vous avez tapé n'est pas valide !" & Chr(13) & "Voulez-vous recommencer ?", vbYesNo, "ATTENTION!") = vbYes Then
        GoTo un 'relance la boite d'entrée via l'étiquette "un"
    Else 'sinon
        GoTo fin 'va à l'étiquette "fin"
    End If 'fin de la condition 2
End If 'fin de la condition 1
On Error GoTo 0 'annule la gestion des erreurs
suite1: 'étiquette

deux: 'étiquette
T_max = Application.InputBox("Temps Maximal au format hh:mm:ss. Tapez " & Chr(34) & "F" & Chr(34) & " pour aller jusqu'a la fin !", "TEMPS DE FIN", Type:=2) 'définit la boîte d'entrée T_max
If T_max = False Or T_max = 0 Then GoTo fin 'si bouton "Annuler" ou T_max est égale à zéro, va à l'étiquette "fin"
If UCase(T_max) = "F" Then LIF = NL: GoTo suite2 'si T=max vaut "f" ou "F", définit la ligne LIF, va à l'étiquette "suite2"
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
T_max = Format(CDate(T_max), "hh:mm:ss") 'redéfinit T_max au format date hh:mm:ss
T_max = TimeSerial(Hour(T_max), Minute(T_max), Second(T_max)) 'redéfinit T_min au format : numéro de série de temps
LIF = M.Columns(1).Find(T_max, , xlFormulas, xlWhole).Row 'définit la ligne de fin LIF (génère une erreur si T_max n'est pas trouvé dans la colonne 1 de l'onglet M)
If Err <> 0 Then 'condition 1 : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    'condition 2 : si "Oui" au message
    If MsgBox("Le temps de fin que vous avez tapé n'est pas valide !" & Chr(13) & "Voulez-vous recommencer ?", vbYesNo, "ATTENTION!") = vbYes Then
        GoTo deux 'relance la boite d'entrée via l'étiquette "deux"
    Else 'sinon
        GoTo fin 'va à l'étiquette "fin"
    End If 'fin de la condition 2
End If 'fin de la condition 1
On Error GoTo 0 'annule la gestion des erreurs
suite2: 'étiquette

'définit le temps de base TPB (temps de la cellule active)
TPB = TimeSerial(Hour(TC(LID, 1)), Minute(TC(LID, 1)), Second(TC(LID, 1)))
ReDim TL(1 To 4, 1 To 1) 'redimensionne le tabelau TL (4 lignes, 1 colonne)
For J = 1 To 4 'boucle sur les 4 colonnes de TC
    TL(J, 1) = TC(LID, J) 'récupère dans la ligne J colonne 1 de TL la valeur de la ligne LI colonne J de TC
Next J 'prochaine colonne de la boucle
K = 2 'définit la variable K
For I = LID To LIF 'boucle 1 : sur toutes les lignes I de TC à partir de la ligne LI de la cellule active
        'condition : si le temps en ligne I colonne 1 de TC est egal au temps de base TPB plus NS secondes
        If TimeSerial(Hour(TC(I, 1)), Minute(TC(I, 1)), Second(TC(I, 1))) = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) Then
        ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau de ligne TL (4 lignes, K colonnes)
        For J = 1 To 4 'boucle 2 : sur les 4 colonnes de TC
            TL(J, K) = TC(I, J) 'récupère dans la ligne de TK la valeur de la colonne de TC (transposition)
        Next J 'prochaine colonne de la boucle 3
        K = K + 1 'incrémente K (ajoute une colonne à TL
        TPB = TimeSerial(Hour(TPB), Minute(TPB), Second(TPB) + NS) 'redéfinit le temps de base (ancien temps de base plus NS secondes)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
If K > 1 Then 'condition : si K est supérieur à 1
    V.Range("A1").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End If 'fin de la condition
V.Activate 'active l'onglet V
fin: 'étiquette
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Application.DisplayAlerts = False 'empêche les message d'Excel
M.Delete 'supprime l'onglet M
Application.DisplayAlerts = True 'permet les message d'Excel
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Il faut taper les temps au format hh:mm:ss mais il y a une gestion des erreurs. On peut taper d ou D pour commencer du début, f ou F pour aller jusqu'à la fin...

Filtrer les données dans un tableau

15 réponses

Discussions similaires

Newsletters