Aide pour un travail sous exel
Fermé
Houari100
Messages postés
27
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
21 novembre 2019
-
Modifié par irongege le 17/08/2013 à 18:26
foo - 18 août 2013 à 13:27
foo - 18 août 2013 à 13:27
A voir également:
- Aide pour un travail sous exel
- Formule exel - Guide
- Exel 2013 - Télécharger - Tableur
- Hno travail ✓ - Forum Consommation & Internet
- Pointage travail excel - Télécharger - Tableur
- Travail en 6x4 - Forum Excel
9 réponses
via55
Messages postés
14424
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
1 juin 2024
2 708
17 août 2013 à 19:08
17 août 2013 à 19:08
Bonsoir
une possibilité en rajoutant une colonne en tête de tableau pour comptabiliser et être utilisée par une recherchev dans la seconde feuille où se fait le regroupement des données
https://www.cjoint.com/?0HrthGhSMo4
Cdlmnt
une possibilité en rajoutant une colonne en tête de tableau pour comptabiliser et être utilisée par une recherchev dans la seconde feuille où se fait le regroupement des données
https://www.cjoint.com/?0HrthGhSMo4
Cdlmnt
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
17 août 2013 à 19:55
17 août 2013 à 19:55
Bonjour,
Une autre solution avec VBA
https://www.cjoint.com/c/CHrt2qlePd2
A+
Une autre solution avec VBA
https://www.cjoint.com/c/CHrt2qlePd2
A+
Houari100
Messages postés
27
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
21 novembre 2019
17 août 2013 à 21:21
17 août 2013 à 21:21
Merci pour ton aide votre programme marche chez moi avec succes
merci boucoup. et A+
merci boucoup. et A+
bonjour
tu peux me dire si cette macro fonctionne
Sub Cumul()
Application.ScreenUpdating = False
I = 2
Range("K2:N" & Rows.Count).ClearContents
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Temp = Range("A" & L)
If Temp <> Range("A" & L - 1) Then
Range("K" & I).Value = Range("A" & L).Value
Range("B" & I & ":D" & I).Copy
Range("L" & I).PasteSpecial Paste:=xlPasteValues
I = I + 1
Else
Range("B" & L & ":D" & L).Copy
Range("L" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Merci de me repondre
A+
Maurice
tu peux me dire si cette macro fonctionne
Sub Cumul()
Application.ScreenUpdating = False
I = 2
Range("K2:N" & Rows.Count).ClearContents
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Temp = Range("A" & L)
If Temp <> Range("A" & L - 1) Then
Range("K" & I).Value = Range("A" & L).Value
Range("B" & I & ":D" & I).Copy
Range("L" & I).PasteSpecial Paste:=xlPasteValues
I = I + 1
Else
Range("B" & L & ":D" & L).Copy
Range("L" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Merci de me repondre
A+
Maurice
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Houari100
Messages postés
27
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
21 novembre 2019
17 août 2013 à 22:24
17 août 2013 à 22:24
ce macro n'est pas valable , résultat defferent ,
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
18 août 2013 à 08:45
18 août 2013 à 08:45
Bonjour
Une autre méthode, simple à mettre en oeuvre, sans macro, et qui pourra vous resservir dans d'autres cas, il suffit de créer un filtre "Avancé" sans doublon, puis d'appliquer une simple formule.
Si vous ne connaissez pas les filtres "avancés", la procédure est fournie avec le fichier
https://www.cjoint.com/c/CHsiC7T6Elj
Même si vous ne retenez pas cette méthode, je vous invite à la tester car comment je l'ai dit précédemment, un jour ou l'autre le problème peut se représenter, et alors vous serez en mesure de vous débrouiller tout seul.
Bonne journée
cdlt
Une autre méthode, simple à mettre en oeuvre, sans macro, et qui pourra vous resservir dans d'autres cas, il suffit de créer un filtre "Avancé" sans doublon, puis d'appliquer une simple formule.
Si vous ne connaissez pas les filtres "avancés", la procédure est fournie avec le fichier
https://www.cjoint.com/c/CHsiC7T6Elj
Même si vous ne retenez pas cette méthode, je vous invite à la tester car comment je l'ai dit précédemment, un jour ou l'autre le problème peut se représenter, et alors vous serez en mesure de vous débrouiller tout seul.
Bonne journée
cdlt
Houari100
Messages postés
27
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
21 novembre 2019
18 août 2013 à 10:34
18 août 2013 à 10:34
Bonjour
et Merci pour ton aide cette méthode est réussite .100%.
Mais le cas ou j'ai des colonnes àcote du colonne CODE , colonne NOM et colonne PRENOM et colonne FILS ; Par exemple:
CODE NOM PRENOM FILS BD BT ORG
101210 xxxx yyyyy aaaaa 10 0 15
101210 xxxx yyyyy aaaaa 20 30 17
101210 xxxx yyyyy aaaaa 0 24 13
201433 aaaa bbbb ccccc 70 35 0
201433 aaaa bbbb ccccc 62 41 23
345587 eeee rrrrr ttttt 10 11 0
345587 eeee rrrrr ttttt 10 0 39
345587 eeee rrrrr ttttt 0 11 10
.
.
.
.
.
Maintenant comment je vais faire pour atteindre le meme code avec le meme nom ,prenom et fils et le total dans un seul ligne
Merci
et Merci pour ton aide cette méthode est réussite .100%.
Mais le cas ou j'ai des colonnes àcote du colonne CODE , colonne NOM et colonne PRENOM et colonne FILS ; Par exemple:
CODE NOM PRENOM FILS BD BT ORG
101210 xxxx yyyyy aaaaa 10 0 15
101210 xxxx yyyyy aaaaa 20 30 17
101210 xxxx yyyyy aaaaa 0 24 13
201433 aaaa bbbb ccccc 70 35 0
201433 aaaa bbbb ccccc 62 41 23
345587 eeee rrrrr ttttt 10 11 0
345587 eeee rrrrr ttttt 10 0 39
345587 eeee rrrrr ttttt 0 11 10
.
.
.
.
.
Maintenant comment je vais faire pour atteindre le meme code avec le meme nom ,prenom et fils et le total dans un seul ligne
Merci
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
18 août 2013 à 11:14
18 août 2013 à 11:14
Re
pas de soucis, 2 possibilités
le code étant unique pour un même Nom, soit vous modifiez les valeurs dans le filtre "avançé" (comme je l'ai mis dans le fichier sur fond rose) soit, vous rajoutez une formule de rechercheV pour trouver le NOM, Prénom et Fils comme j'ai mis dans le tableau.
https://www.cjoint.com/c/CHsliVig8cZ
bonne journée
cdlt
pas de soucis, 2 possibilités
le code étant unique pour un même Nom, soit vous modifiez les valeurs dans le filtre "avançé" (comme je l'ai mis dans le fichier sur fond rose) soit, vous rajoutez une formule de rechercheV pour trouver le NOM, Prénom et Fils comme j'ai mis dans le tableau.
https://www.cjoint.com/c/CHsliVig8cZ
bonne journée
cdlt
Houari100
Messages postés
27
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
21 novembre 2019
18 août 2013 à 12:30
18 août 2013 à 12:30
Merci c'est bon
avec succes
A+
avec succes
A+
Bonjour
merci pour ton test
je devais etre pas en forme
Sub Cumul()
Application.ScreenUpdating = False
I = 2
Range("K2:N" & Rows.Count).ClearContents
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Temp = Range("A" & L)
If Temp <> Range("A" & L - 1) Then
Range("K" & I).Value = Range("A" & L).Value
Range("B" & L & ":D" & L).Copy
Range("L" & I).PasteSpecial xlPasteValues
I = I + 1
Else
Range("B" & L & ":D" & L).Copy
Range("L" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
celle la elle doit marcher
j'ais remis la bonne Ligne
A+
Maurice
merci pour ton test
je devais etre pas en forme
Sub Cumul()
Application.ScreenUpdating = False
I = 2
Range("K2:N" & Rows.Count).ClearContents
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Temp = Range("A" & L)
If Temp <> Range("A" & L - 1) Then
Range("K" & I).Value = Range("A" & L).Value
Range("B" & L & ":D" & L).Copy
Range("L" & I).PasteSpecial xlPasteValues
I = I + 1
Else
Range("B" & L & ":D" & L).Copy
Range("L" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
celle la elle doit marcher
j'ais remis la bonne Ligne
A+
Maurice
Bonjour
macro avec les noms
Sub Cumul1()
Application.ScreenUpdating = False
I = 2
Range("K2:Q" & Rows.Count).ClearContents
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Temp = Range("A" & L)
If Temp <> Range("A" & L - 1) Then
Range("A" & L & ":G" & L).Copy
Range("K" & I).PasteSpecial xlPasteValues
I = I + 1
Else
Range("E" & L & ":G" & L).Copy
Range("O" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
A+
Maurice
macro avec les noms
Sub Cumul1()
Application.ScreenUpdating = False
I = 2
Range("K2:Q" & Rows.Count).ClearContents
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Temp = Range("A" & L)
If Temp <> Range("A" & L - 1) Then
Range("A" & L & ":G" & L).Copy
Range("K" & I).PasteSpecial xlPasteValues
I = I + 1
Else
Range("E" & L & ":G" & L).Copy
Range("O" & I - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
A+
Maurice
17 août 2013 à 21:19
17 août 2013 à 22:26
si tu rallonges la plages il faut modoifier les references dans le nom pour étendre la plage
17 août 2013 à 23:06
merci