Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel index:equiv special

index:equiv special

7 réponses
Avatar
L-A
Bonsoir

j'aimerai avec je pense un index/equiv r=C3=A9percuter 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=C3=A9 de reprendre quelque chose existant, et malgr=C3=A9 ma cal=
vitie je m'arrache les cheveux.


merci par avance

http://www.cjoint.com/c/FIxswjRceNK
Signaler un problème avec ce contenu

7 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
Avatar
isabelle
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
Avatar
L-A
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
Avatar
isabelle
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

Avatar
L-A
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
Avatar
isabelle
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
Avatar
isabelle
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
Avatar
L-A
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