index:equiv special

Le
L-A
Bonsoir

j'aimerai avec je pense un index/equiv répercuter le nom en fonction d=
es dates remplies dans les colonnes s'appellant inscription

je vous joins un tableau pour mieux comprendre

j'ai essayé de reprendre quelque chose existant, et malgré ma cal=
vitie je m'arrache les cheveux.


merci par avance

http://www.cjoint.com/c/FIxswjRceNK
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26410530
bonjour,
il serait mieux de créer une "vrai" base de données,
et par la suite en extraire les données pour créer différent tableau.
Base de donneés:
Client inscription participation
Dupont 2015-10-18 X
Durand 2016-04-15 X
Martin 2015-06-23 X
Miroux 2015-11-12 X
Dupont 2016-04-18 X
Durand 2016-10-15 X
Martin 2015-12-23 X
Miroux 2016-05-12 X
Dupont 2016-10-18
Durand 2017-04-15 ok
Martin 2016-06-23 X
Miroux 2016-11-12
Dupont 2017-04-18
Durand 2017-10-15
Martin 2016-12-23
Miroux 2017-05-12
isabelle
Le 2016-09-23 à 14:22, L-A a écrit :
Bonsoir
j'aimerai avec je pense un index/equiv répercuter le nom en fonction des dates remplies dans les colonnes s'appellant inscription
je vous joins un tableau pour mieux comprendre
j'ai essayé de reprendre quelque chose existant, et malgré ma calvitie je m'arrache les cheveux.
merci par avance
http://www.cjoint.com/c/FIxswjRceNK
L-A
Le #26410548
Bonjour
et a partir de mon tableau original comment fait-on pur extraire une base c omme tu la présentes?

Le samedi 24 septembre 2016 03:57:36 UTC+2, isabelle a écrit :
bonjour,
il serait mieux de créer une "vrai" base de données,
et par la suite en extraire les données pour créer différe nt tableau.
Base de donneés:
Client inscription participation
Dupont 2015-10-18 X
Durand 2016-04-15 X
Martin 2015-06-23 X
Miroux 2015-11-12 X
Dupont 2016-04-18 X
Durand 2016-10-15 X
Martin 2015-12-23 X
Miroux 2016-05-12 X
Dupont 2016-10-18
Durand 2017-04-15 ok
Martin 2016-06-23 X
Miroux 2016-11-12
Dupont 2017-04-18
Durand 2017-10-15
Martin 2016-12-23
Miroux 2017-05-12
isabelle
Le 2016-09-23 à 14:22, L-A a écrit :
Bonsoir
j'aimerai avec je pense un index/equiv répercuter le nom en foncti on des dates remplies dans les colonnes s'appellant inscription
je vous joins un tableau pour mieux comprendre
j'ai essayé de reprendre quelque chose existant, et malgré ma calvitie je m'arrache les cheveux.
merci par avance
http://www.cjoint.com/c/FIxswjRceNK
isabelle
Le #26410615
si tu es partant pour une macro vba qui ferait le travail,
dit moi quel est l'adresse exact de la plage de ton tableau original
isabele
Le 2016-09-24 à 03:52, L-A a écrit :
Bonjour
et a partir de mon tableau original comment fait-on pur extraire une base comme tu la présentes?

Le samedi 24 septembre 2016 03:57:36 UTC+2, isabelle a écrit :
bonjour,
il serait mieux de créer une "vrai" base de données,
et par la suite en extraire les données pour créer différent tableau.
Base de donneés:
Client inscription participation
Dupont 2015-10-18 X
Durand 2016-04-15 X
Martin 2015-06-23 X
Miroux 2015-11-12 X
Dupont 2016-04-18 X
Durand 2016-10-15 X
Martin 2015-12-23 X
Miroux 2016-05-12 X
Dupont 2016-10-18
Durand 2017-04-15 ok
Martin 2016-06-23 X
Miroux 2016-11-12
Dupont 2017-04-18
Durand 2017-10-15
Martin 2016-12-23
Miroux 2017-05-12
isabelle
Le 2016-09-23 à 14:22, L-A a écrit :
Bonsoir
j'aimerai avec je pense un index/equiv répercuter le nom en fonction des dates remplies dans les colonnes s'appellant inscription
je vous joins un tableau pour mieux comprendre
j'ai essayé de reprendre quelque chose existant, et malgré ma calvitie je m'arrache les cheveux.
merci par avance
http://www.cjoint.com/c/FIxswjRceNK


L-A
Le #26410641
Bonjour
oui partant pour le VBA
mon tableau est en Feuil1.range("A1:AA840")
merci encore
Le dimanche 25 septembre 2016 01:56:23 UTC+2, isabelle a écrit :
si tu es partant pour une macro vba qui ferait le travail,
dit moi quel est l'adresse exact de la plage de ton tableau original
isabele
Le 2016-09-24 à 03:52, L-A a écrit :
Bonjour
et a partir de mon tableau original comment fait-on pur extraire une ba se comme tu la présentes?

Le samedi 24 septembre 2016 03:57:36 UTC+2, isabelle a écrit :
bonjour,
il serait mieux de créer une "vrai" base de données,
et par la suite en extraire les données pour créer diffà ©rent tableau.
Base de donneés:
Client inscription participation
Dupont 2015-10-18 X
Durand 2016-04-15 X
Martin 2015-06-23 X
Miroux 2015-11-12 X
Dupont 2016-04-18 X
Durand 2016-10-15 X
Martin 2015-12-23 X
Miroux 2016-05-12 X
Dupont 2016-10-18
Durand 2017-04-15 ok
Martin 2016-06-23 X
Miroux 2016-11-12
Dupont 2017-04-18
Durand 2017-10-15
Martin 2016-12-23
Miroux 2017-05-12
isabelle
Le 2016-09-23 à 14:22, L-A a écrit :
Bonsoir
j'aimerai avec je pense un index/equiv répercuter le nom en fonc tion des dates remplies dans les colonnes s'appellant inscription
je vous joins un tableau pour mieux comprendre
j'ai essayé de reprendre quelque chose existant, et malgré ma calvitie je m'arrache les cheveux.
merci par avance
http://www.cjoint.com/c/FIxswjRceNK



isabelle
Le #26410747
voici la macro, elle crée un nouvel onglet nommé base1, et y transpose les
données au format base de données
la section entre les pointillés peut-être enlever si vous décidé de créer
l'onglet base1 auparavant et que cette onglet reste en permanence
une fois la base créer il est plus facile de trier ou filtrer.
Sub test()
Dim i As Long, rw1 As Long, cl As Long, rw2 As Long
Application.DisplayAlerts = False
Set base = Sheets("Feuil1")
rw1 = base.Cells(base.Rows.Count, 1).End(xlUp).Row
cl = base.Cells(1, base.Columns.Count).End(xlToLeft).Column
'-------------------------------------------------------------
On Error Resume Next: Sheets("base1").Delete: On Error GoTo 0
Set base1 = Sheets.Add(before:=Sheets(1))
ActiveSheet.Name = "base1"
'-------------------------------------------------------------
Set base1 = Sheets("base1")
base.Range("A1:C" & rw1).Copy base1.Range("A1")
rw2 = base1.Cells(base1.Rows.Count, 1).End(xlUp).Row
For i = 4 To cl Step 2
base.Range(base.Cells(2, i), base.Cells(rw1, i + 1)).Copy base1.Cells(rw2 + 1, 2)
base.Range("A2:A" & rw1).Copy base1.Range("A" & rw2 + 1)
Application.CutCopyMode = False
rw2 = base1.Cells(base1.Rows.Count, 1).End(xlUp).Row
Next
isabelle
isabelle
Le #26410759
voici le fichier test
http://www.cjoint.com/c/FIzxCh0IMta
isabelle
Le 2016-09-25 à 17:15, isabelle a écrit :
voici la macro, elle crée un nouvel onglet nommé base1, et y transpose les
données au format base de données
la section entre les pointillés peut-être enlever si vous décidé de créer
l'onglet base1 auparavant et que cette onglet reste en permanence
une fois la base créer il est plus facile de trier ou filtrer.
Sub test()
Dim i As Long, rw1 As Long, cl As Long, rw2 As Long
Application.DisplayAlerts = False
Set base = Sheets("Feuil1")
rw1 = base.Cells(base.Rows.Count, 1).End(xlUp).Row
cl = base.Cells(1, base.Columns.Count).End(xlToLeft).Column
'-------------------------------------------------------------
On Error Resume Next: Sheets("base1").Delete: On Error GoTo 0
Set base1 = Sheets.Add(before:=Sheets(1))
ActiveSheet.Name = "base1"
'-------------------------------------------------------------
Set base1 = Sheets("base1")
base.Range("A1:C" & rw1).Copy base1.Range("A1")
rw2 = base1.Cells(base1.Rows.Count, 1).End(xlUp).Row
For i = 4 To cl Step 2
base.Range(base.Cells(2, i), base.Cells(rw1, i + 1)).Copy base1.Cells(rw2 + 1, 2)
base.Range("A2:A" & rw1).Copy base1.Range("A" & rw2 + 1)
Application.CutCopyMode = False
rw2 = base1.Cells(base1.Rows.Count, 1).End(xlUp).Row
Next
isabelle
L-A
Le #26410769
bonjour isabelle
super comme macro et effectivement avec la base de donnée, j'applique un filtre et hop j'obtiens ce que je souhaite.
un grand merci, bonne journee
Le lundi 26 septembre 2016 01:28:40 UTC+2, isabelle a écrit :
voici le fichier test
http://www.cjoint.com/c/FIzxCh0IMta
isabelle
Le 2016-09-25 à 17:15, isabelle a écrit :
voici la macro, elle crée un nouvel onglet nommé base1, et y transpose les
données au format base de données
la section entre les pointillés peut-être enlever si vous d écidé de créer
l'onglet base1 auparavant et que cette onglet reste en permanence
une fois la base créer il est plus facile de trier ou filtrer.
Sub test()
Dim i As Long, rw1 As Long, cl As Long, rw2 As Long
Application.DisplayAlerts = False
Set base = Sheets("Feuil1")
rw1 = base.Cells(base.Rows.Count, 1).End(xlUp).Row
cl = base.Cells(1, base.Columns.Count).End(xlToLeft).Column
'-------------------------------------------------------------
On Error Resume Next: Sheets("base1").Delete: On Error GoTo 0
Set base1 = Sheets.Add(before:=Sheets(1))
ActiveSheet.Name = "base1"
'-------------------------------------------------------------
Set base1 = Sheets("base1")
base.Range("A1:C" & rw1).Copy base1.Range("A1")
rw2 = base1.Cells(base1.Rows.Count, 1).End(xlUp).Row
For i = 4 To cl Step 2
base.Range(base.Cells(2, i), base.Cells(rw1, i + 1)).Copy base1.Cells (rw2 + 1, 2)
base.Range("A2:A" & rw1).Copy base1.Range("A" & rw2 + 1)
Application.CutCopyMode = False
rw2 = base1.Cells(base1.Rows.Count, 1).End(xlUp).Row
Next
isabelle
Publicité
Poster une réponse
Anonyme