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
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
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
Bonjour,
peux-tu regarder si cela te convient dans le fichier
http://cjoint.com/?kgng0mavr6bonjour
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
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
Bonjour,
peux-tu regarder si cela te convient dans le fichier
http://cjoint.com/?kgng0mavr6bonjour
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
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/?kgng0mavr6bonjour
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
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" <dOUdOU@discussions.microsoft.com> a écrit dans le message de
news:326F67E6-C10C-4632-8172-111C88FEC8C3@microsoft.com...
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
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/?kgng0mavr6bonjour
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
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.
CdltMERCI
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/?kgng0mavr6bonjour
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
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" <dOUdOU@discussions.microsoft.com> a écrit dans le message de
news:326F67E6-C10C-4632-8172-111C88FEC8C3@microsoft.com...
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
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.
CdltMERCI
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/?kgng0mavr6bonjour
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
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
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
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
Bonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
Bonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
Bonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
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
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
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
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
@+
--
lStephBonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
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
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
@+
--
lStephBonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
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
@+
--
lStephBonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
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
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
@+
--
lStephBonsoir,
A l'activation des feuilles
Les cellules A1 et B1 des feuilles NON fusionnées
Voir Ici
http://cjoint.com/?kgw6scFyzk
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
'lStephbonjour
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
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
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
'lStephbonjour
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