Créer une macro

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #2

Re : Créer une macro

Bonsoir Martine et Bienvenue sur XLD

Est-ce que tu connais le filtre automatique ou élaboré?
Si oui cela pourrait une solution possible.

Tu peux aussi utiliser les sous-totaux ou le TCD.

EXEMPLE ci-dessous avec SOUS-TOTAUX

Pour les sous-totaux, j'ai ajouté l'entête HEURES en N1, puis sélectionner ton tableau
Ensuite je suis allé dans Données/Sous-Totaux et là j'ai suivi les indications à l'écran.
Pour le résultat final, j'ai masqué les colonnes non désirées puis cliquer sur le petit 2.


PS: Merci d'avoir pris le temps de créer un fichier exemple (et ce sans données confidentielles) 😉

 

Dernière édition: 2 Janvier 2012

Vote positif 0 Vote négatif

M

martine.basnier

Guest

• 2 Janvier 2012

• #3

Re : Créer une macro

Bonjour,

Merci pour cette solution mais...

Il me manque la date du premier contrat c'est ça mon problème.

Il me faut une feuille à part

Martine

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #4

Re : Créer une macro

Re

Comme je le disais avant SOUS-TOTAUX ou TCD
(TCD= Tableau Croisé Dynamique)
Voici ce que cela peut donner


L'avantage est que cela se fait sans macro (et comme tu dis savoir te débrouiller manuellement sous Excel, c'est une solution à privilégier, non ?)
Et le TCD peut se créer sur une nouvelle feuille.

Si cette solution t'intéresse, fais -le moi savoir, sinon d'autres ici te proposeront une macro VBA.

 

Dernière édition: 2 Janvier 2012

Vote positif 0 Vote négatif

M

martine.basnier

Guest

• 12 Janvier 2012

• #5

Re : Créer une macro

Bonjour,

J'ai réussi à faire avec ta méthode mais si une personne réussi à me faire ça sous forme de macro je serai encore plus contente

Merci de votre aide

Martine

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 12 Janvier 2012

• #6

Re : Créer une macro

Bonsoir Martine, et bienvenue également,

Ci-joint une solution par macro comme tu le demandes.

Espérant avoir répondu.

Cordialement.


PS : bonsoir JM

 

Pièces jointes

• Copie de Histo.xlsm

  25.8 KB · Affichages: 40

Vote positif 0 Vote négatif

M

martine.basnier

Guest

• 13 Janvier 2012

• #7

Re : Créer une macro

bonjour

Votre macro fonctionne mais elle ne donne pas les bonnes réponses. La date d'entrée de l'ouvrier c'est la date de son premier contrat qu'il me faut.
Exemple pour l'ouvrier 4 c'est 06/11/2010 et non 19/12/2011

Enfin je ne peux pas voir le code que tu as écrit pourquoi ? je dois rater une étape

Merci de votre aide

Martine

 

Pièces jointes

• modif.xlsm

  25.5 KB · Affichages: 40
• modif.xlsm

  25.5 KB · Affichages: 41
• modif.xlsm

  25.5 KB · Affichages: 37

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 13 Janvier 2012

• #8

Re : Créer une macro

Bonjour Martine,

Voici ton fichier corrigé.

Pour lire la macro, une fois ton fichier ouvert, tu tapes ALT+F11 pour ouvrir l'éditeur VBA. Dans la fenêtre "Projet - VBA Project", tu double-cliques sur "Feuil1(Fichier départ" et dans la fenêtre principale tu verras apparaître le code de la macro.

Pour info, voici le texte :

Code:

Private Sub CommandButton1_Click()
Dim Cel As Range, lg As Long, DLg As Long

DLg = Range("A65536").End(xlUp).Row
With Feuil2
    .Range("A2:C" & .Range("C1").End(xlDown).Row).ClearContents
    For Each Cel In Range("A2:A" & DLg)
        If .Range("A:A").Find(Cel.Value, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
            lg = .Range("A65536").End(xlUp).Row + 1
            .Range("A" & lg) = Cel.Value
            .Range("B" & lg) = Cel.Offset(0, 5).Value
            .Range("C" & lg) = Cel.Offset(0, 13).Value
            Else
            .Range("C" & lg) = .Range("C" & lg) + Cel.Offset(0, 13).Value
            If Range("H" & Cel.Row) < Range("C" & Cel.Offset(-1, 0).Row) Then .Range("B" & lg) = Cel.Offset(0, 5).Value
        End If
    Next
End With
End Sub

Bonne journée.

Cordialement.

Edit : pour que cela fonctionne correctement, il faut que les dates soient classées en ordre décroissant.

 

Pièces jointes

• Copie de modif.xlsm

  25.6 KB · Affichages: 33

Dernière édition: 13 Janvier 2012

Vote positif 0 Vote négatif

M

martine.basnier

Guest

• 25 Janvier 2012

• #9

Re : Créer une macro

Bonjour

Merci à vous tous pour votre aide sur ce sujet

Martine

 

Vote positif 0 Vote négatif