Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel consolidation de data

consolidation de data

5 réponses
Avatar
bastientot
BOnjour,

voila dans un onglet 'M-1" j'ai en colonne :
A =3D=3D> un nom d'application
B =3D=3D> un metier
C =3D=3D> une dur=E9e sous le format nombre
D =3D=3D> une dur=E9e au format hh:mm
E =3D=3D> une autre dur=E9e au format hh: mm
F =3D=3D> un chiffre 1 2 4 ou 8

et j'aimerais avoir dans le meme classeur dans l'onglet "recap" juste
les lignes ( tous les colonnes) ou l'information en colonne D est
different de 00:00

Merci de votre aide.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour ,

With Sheets("M-1").Range("A1")
If .AutoFilter Then
.AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
Else
.AutoFilter
.AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
End If
End With

.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Sheets("recap").Range("A" &
Sheets("recap").Range("A65536").End(xlUp).Row + 1)

isabelle

a écrit :
BOnjour,

voila dans un onglet 'M-1" j'ai en colonne :
A ==> un nom d'application
B ==> un metier
C ==> une durée sous le format nombre
D ==> une durée au format hh:mm
E ==> une autre durée au format hh: mm
F ==> un chiffre 1 2 4 ou 8

et j'aimerais avoir dans le meme classeur dans l'onglet "recap" juste
les lignes ( tous les colonnes) ou l'information en colonne D est
different de 00:00

Merci de votre aide.



Avatar
bastientot
Bonjour & merci,

merci mais j'ai une erreur en executant éréference incorect ou non
qualifiée sur la ligne ".CurrentRegion.SpecialCells"

une idée


On 30 avr, 16:04, isabelle wrote:
bonjour ,

With Sheets("M-1").Range("A1")
If .AutoFilter Then
    .AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
Else
    .AutoFilter
    .AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
End If
End With

.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Sheets("recap").Range("A" &
Sheets("recap").Range("A65536").End(xlUp).Row + 1)

isabelle

a écrit :



> BOnjour,

> voila dans un onglet 'M-1" j'ai en colonne :
> A ==> un nom d'application
> B ==> un metier
> C ==> une durée sous le format nombre
> D ==> une durée au format hh:mm
> E ==> une autre durée au format hh: mm
> F ==> un chiffre 1 2 4 ou 8

> et j'aimerais avoir dans le meme classeur dans l'onglet "recap" juste
> les lignes ( tous les colonnes) ou l'information en colonne D est
> different de 00:00

> Merci de votre aide.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
bastientot
alors la j'ai vraiment du mal avec les filtres elaborés..
je vaias voir comment faire .

et merci


On 30 avr, 16:04, "MichDenis" wrote:
Bonjour Bastien,

Tu peux le faire en utilisant un filtre élaboré.

zone de critère : (exemple)
H1 : totalement vide
H2 : la formule :   Ò<>0
D2 représente la première ligne de tes données
D1 étant l'étiquette de colonne.

Si tu veux obtenir le résultat sur une autre feuille, avant
d'appeler la commande "filtre élaboré", tu dois sélectionner
la feuille "Résultats" et appeler cette commande à partir de là.

a écrit dans le message de groupe de discussion :
BOnjour,

voila dans un onglet 'M-1" j'ai en colonne :
A ==> un nom d'application
B ==> un metier
C ==> une durée sous le format nombre
D ==> une durée au format hh:mm
E ==> une autre durée au format hh: mm
F ==> un chiffre 1 2 4 ou 8

et j'aimerais avoir dans le meme classeur dans l'onglet "recap" juste
les lignes ( tous les colonnes) ou l'information en colonne D est
different de 00:00

Merci de votre aide.


Avatar
isabelle
desolé bastientot, le End With n'était pas à la bonne place,

With Sheets("M-1").Range("A1")
If .AutoFilter Then
.AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
Else
.AutoFilter
.AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
End If
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Sheets("recap").Range("A" &
Sheets("recap").Range("A65536").End(xlUp).Row + 1)
End With

isabelle

a écrit :
Bonjour & merci,

merci mais j'ai une erreur en executant éréference incorect ou non
qualifiée sur la ligne ".CurrentRegion.SpecialCells"

une idée


On 30 avr, 16:04, isabelle wrote:

bonjour ,

With Sheets("M-1").Range("A1")
If .AutoFilter Then
.AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
Else
.AutoFilter
.AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
End If
End With

.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Sheets("recap").Range("A" &
Sheets("recap").Range("A65536").End(xlUp).Row + 1)

isabelle

a écrit :




BOnjour,

voila dans un onglet 'M-1" j'ai en colonne :
A ==> un nom d'application
B ==> un metier
C ==> une durée sous le format nombre
D ==> une durée au format hh:mm
E ==> une autre durée au format hh: mm
F ==> un chiffre 1 2 4 ou 8

et j'aimerais avoir dans le meme classeur dans l'onglet "recap" juste
les lignes ( tous les colonnes) ou l'information en colonne D est
different de 00:00

Merci de votre aide.- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -







Avatar
bastientot
Grand Merci Isabelle et passe un bon week end.



On 30 avr, 16:51, isabelle wrote:
desolé bastientot, le End With n'était pas à la bonne place,

With Sheets("M-1").Range("A1")
If .AutoFilter Then
   .AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
Else
   .AutoFilter
   .AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xlAnd
End If
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Sheets("recap").Range("A" &
Sheets("recap").Range("A65536").End(xlUp).Row + 1)
End With

isabelle

a écrit :



> Bonjour & merci,

> merci mais j'ai une erreur en executant éréference incorect ou non
> qualifiée sur la ligne ".CurrentRegion.SpecialCells"

> une idée

> On 30 avr, 16:04, isabelle wrote:

>> bonjour ,

>> With Sheets("M-1").Range("A1")
>> If .AutoFilter Then
>>     .AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xl And
>> Else
>>     .AutoFilter
>>     .AutoFilter Field:=4, Criteria1:="<>00:00", Operator:=xl And
>> End If
>> End With

>> .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
>> Sheets("recap").Range("A" &
>> Sheets("recap").Range("A65536").End(xlUp).Row + 1)

>> isabelle

>> a écrit :

>>> BOnjour,

>>> voila dans un onglet 'M-1" j'ai en colonne :
>>> A ==> un nom d'application
>>> B ==> un metier
>>> C ==> une durée sous le format nombre
>>> D ==> une durée au format hh:mm
>>> E ==> une autre durée au format hh: mm
>>> F ==> un chiffre 1 2 4 ou 8

>>> et j'aimerais avoir dans le meme classeur dans l'onglet "recap" juste
>>> les lignes ( tous les colonnes) ou l'information en colonne D est
>>> different de 00:00

>>> Merci de votre aide.- Masquer le texte des messages précédents -

>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -

- Afficher le texte des messages précédents -