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

recapitulatif et extractin de donnees

29 réponses
Avatar
Magic-DD
bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
dOUdOU
Bonjour,

peux-tu regarder si cela te convient dans le fichier
http://cjoint.com/?kgng0mavr6


bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci



Avatar
Magic-DD
MERCI

cela n'est pas tout à fait ce que je souhaite mais on s'en approche

en fait chaque onglet correspondra à une activité et reprendra depuis la
base principale les éléments necessaires

on aura donc ans l'onglet foot, tous les gens faisant du foot

etc ...


"dOUdOU" a écrit dans le message de
news:
Bonjour,

peux-tu regarder si cela te convient dans le fichier
http://cjoint.com/?kgng0mavr6


bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites
differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci





Avatar
dOUdOU
Bonjour,

Tu n'avais pas parlé d'onglet, ni de base principale, est-ce que la base
prinicipale est alimentée par les différents onglets ?

Peux-tu joindre un classeur avec un exemple qui se rapproche le plus
possible de ce que tu désires.

Cdlt


MERCI

cela n'est pas tout à fait ce que je souhaite mais on s'en approche

en fait chaque onglet correspondra à une activité et reprendra depuis la
base principale les éléments necessaires

on aura donc ans l'onglet foot, tous les gens faisant du foot

etc ...


"dOUdOU" a écrit dans le message de
news:
Bonjour,

peux-tu regarder si cela te convient dans le fichier
http://cjoint.com/?kgng0mavr6


bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites
differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci









Avatar
Magic-DD
Alors on va reprendre,

la base pricipale est alimentee par un userform

dans l'exemple je n'ai pas mis le formulaire mais juste le resultat, soi la
base principale.

dans differents onglets representant les activites (sport1, 2....5)
j'aimerai rappatrier les noms des participants en fonction de leur activité.

voici donc le fichier excel modifié.

http://cjoint.com/?kgpmj0WNqd


merci encore
"dOUdOU" a écrit dans le message de
news:
Bonjour,

Tu n'avais pas parlé d'onglet, ni de base principale, est-ce que la base
prinicipale est alimentée par les différents onglets ?

Peux-tu joindre un classeur avec un exemple qui se rapproche le plus
possible de ce que tu désires.

Cdlt


MERCI

cela n'est pas tout à fait ce que je souhaite mais on s'en approche

en fait chaque onglet correspondra à une activité et reprendra depuis la
base principale les éléments necessaires

on aura donc ans l'onglet foot, tous les gens faisant du foot

etc ...


"dOUdOU" a écrit dans le message de
news:
Bonjour,

peux-tu regarder si cela te convient dans le fichier
http://cjoint.com/?kgng0mavr6


bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites
differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci











Avatar
Jacky
Bonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
--
Salutations
JJ


"Magic-DD" a écrit dans le message de news:
%23lV1G5%
bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites
differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci


Avatar
LSteph
Bonsoir Magic et Jacky, &...,

Cela oblige d'activer qd même chaque feuille pour qu'elle se recompose
par rapport à la base mais bon dans la même idée que toi Jacky
cet évennement irait pas mal dans le thisworkbook d'ailleurs......


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Long
If Sh.CodeName <> "Feuil1" Then
Application.ScreenUpdating = False
[a2:b65536].ClearContents

With [Sport]
For i = 1 To .Count
If UCase(.Cells(i)) = UCase([B1]) Then
[a65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 1)
[b65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 2)
End If
Next
End With
End If
End Sub

@+

--
lSteph

Bonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk


Avatar
LSteph
Bonsoir,

Attention toutes les autres feuilles seront détruites et recréées

http://cjoint.com/?khbKsUFcQK

ceci suppose que l'on utilise Feuil1 comme .Codename de la feuille dont
le nom d'onglet Name est "BDD" , comme dans ton exemple.

Sub MajRapports()

Dim i As Long, sh As Worksheet, c As Range, myst As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Sheets
'on peut en exclure d'autres
If sh.CodeName <> "Feuil1" Then sh.Delete
Next sh
Application.DisplayAlerts = True
For Each c In [Sport].Cells
myst = ""
If c.Column Mod 2 > 0 And Not IsEmpty(c) Then
On Error Resume Next
myst = Worksheets(UCase(c)).Name
On Error GoTo 0

If Len(myst) = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = UCase(c)
.[a1] = "Recapitulatif"
.[B1] = c
.[a1:b1].Interior.ColorIndex = 44
End With
End If
End If
Next c

For Each sh In ActiveWorkbook.Sheets
If sh.CodeName <> "Feuil1" Then
With [Sport]
For i = 1 To .Count
If UCase(.Cells(i)) = UCase(sh.[B1]) Then
sh.[a65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 1)
sh.[b65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 2)
End If
Next i
End With
End If
Next sh

End Sub

'lSteph


bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci


Avatar
Jacky
Re...
J'ai trouvé...
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Ne tient pas compte des plages discontinues tandis qu'avec
Private Sub Worksheet_Activate()
Cela fonctionne
Bizarre tout de même.

JJ


"LSteph" a écrit dans le message de news:

Bonsoir Magic et Jacky, &...,

Cela oblige d'activer qd même chaque feuille pour qu'elle se recompose par
rapport à la base mais bon dans la même idée que toi Jacky
cet évennement irait pas mal dans le thisworkbook d'ailleurs......


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Long
If Sh.CodeName <> "Feuil1" Then
Application.ScreenUpdating = False
[a2:b65536].ClearContents

With [Sport]
For i = 1 To .Count
If UCase(.Cells(i)) = UCase([B1]) Then
[a65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 1)
[b65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 2)
End If
Next
End With
End If
End Sub

@+

--
lSteph

Bonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk




Avatar
Jacky
Ouppsssss!! ;o))
Désolé, une erreur de manip, et un des message et parti dans ta bal
perso.(fictive)
copie
'--------
Bonjour Stéphane

Je ne sais pas pourquoi. Mais chez moi.....
Dans les feuilles, ton code ne prend en compte que la première colonne de
la plage [Sport] (les 5 premier)
Alors que Msgbox .count retourne bien 25
Comprend pas...
As-tu une explication ??

Bonne nuit
JJ
'-----------------

--
Salutations
JJ


"LSteph" a écrit dans le message de news:

Bonsoir Magic et Jacky, &...,

Cela oblige d'activer qd même chaque feuille pour qu'elle se recompose par
rapport à la base mais bon dans la même idée que toi Jacky
cet évennement irait pas mal dans le thisworkbook d'ailleurs......


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Long
If Sh.CodeName <> "Feuil1" Then
Application.ScreenUpdating = False
[a2:b65536].ClearContents

With [Sport]
For i = 1 To .Count
If UCase(.Cells(i)) = UCase([B1]) Then
[a65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 1)
[b65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 2)
End If
Next
End With
End If
End Sub

@+

--
lSteph

Bonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk




Avatar
Magic-DD
alors la chapeau Lsteph et jacky sans oublier DouDou

moi je dis y'a des betes et des bebetes

et la j'ai des super bete d'excel

merci encore

@u plaisir

"LSteph" a écrit dans le message de
news:%23%23$
Bonsoir,

Attention toutes les autres feuilles seront détruites et recréées

http://cjoint.com/?khbKsUFcQK

ceci suppose que l'on utilise Feuil1 comme .Codename de la feuille dont
le nom d'onglet Name est "BDD" , comme dans ton exemple.

Sub MajRapports()

Dim i As Long, sh As Worksheet, c As Range, myst As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Sheets
'on peut en exclure d'autres
If sh.CodeName <> "Feuil1" Then sh.Delete
Next sh
Application.DisplayAlerts = True
For Each c In [Sport].Cells
myst = ""
If c.Column Mod 2 > 0 And Not IsEmpty(c) Then
On Error Resume Next
myst = Worksheets(UCase(c)).Name
On Error GoTo 0

If Len(myst) = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = UCase(c)
.[a1] = "Recapitulatif"
.[B1] = c
.[a1:b1].Interior.ColorIndex = 44
End With
End If
End If
Next c

For Each sh In ActiveWorkbook.Sheets
If sh.CodeName <> "Feuil1" Then
With [Sport]
For i = 1 To .Count
If UCase(.Cells(i)) = UCase(sh.[B1]) Then
sh.[a65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 1)
sh.[b65536].End(3)(2) = Feuil1.Cells(.Cells(i).Row, 2)
End If
Next i
End With
End If
Next sh

End Sub

'lSteph


bonjour

j'ai dans une feuille avec le resultat de plusieurs saisie de fiches
d'inscription depuis un userform

dans ces inscriptions j'ai la possibilite de mettre 5 activites
differentes
( sportives ou culturelles)

comment faire un recapitulatif des inscrits par types d'activite

je vous donne un exemple dans le fichier suivant

http://cjoint.com/?keutQ7Fboo

merci




1 2 3