Aide sur Extraction de données

Le
Philippe
Bonjour à toutes et à tous.

Sans trop vous embêter pendant ce début de vacances estivales, je me permets
de vous exposer un gros problème pour moi.
C'est au niveau de l'extraction de données.
Le ci-joint vous en dira beaucoup plus.
Merci de votre diligence.
http://cjoint.com/?hfl6X2b3bd
Philippe
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
Youky
Le #11195751
Bonjour Philippe,
Avec des formules cela n'est pas évident...
Par contre cette macro le fait ...

Sub placement()
n = Feuil1.[A65536].End(3).Row
ns = Application.Match(n, [Constante!A2:A200], 0)
lig = 0: col = 3
For k = 2 To Feuil1.[A65536].End(3).Row
If x = Feuil2.Cells(ns, col) Then
lig = lig - x + 9: x = 0: col = col + 1
End If
x = x + 1: lig = lig + 1
Feuil3.Cells(lig, 2) = Feuil1.Cells(k, 1)
Next
End Sub

Il faut que la protection des macros soient en Niveau Moyen
Menu/outils/Macros/sécurité
Youky

"Philippe"
Bonjour à toutes et à tous.

Sans trop vous embêter pendant ce début de vacances estivales, je me
permets de vous exposer un gros problème pour moi.
C'est au niveau de l'extraction de données.
Le ci-joint vous en dira beaucoup plus.
Merci de votre diligence.
http://cjoint.com/?hfl6X2b3bd
Philippe



Philippe
Le #11195971
Bonjour Youky,
Merci pour ces précieux renseignements.
La VBA n'est pas mon fort, (pour être honnête, je n'y comprends rien) mais
je vais m'y atteler.
Merci encore et bon W.E
Philippe
"Youky"
Bonjour Philippe,
Avec des formules cela n'est pas évident...
Par contre cette macro le fait ...

Sub placement()
n = Feuil1.[A65536].End(3).Row
ns = Application.Match(n, [Constante!A2:A200], 0)
lig = 0: col = 3
For k = 2 To Feuil1.[A65536].End(3).Row
If x = Feuil2.Cells(ns, col) Then
lig = lig - x + 9: x = 0: col = col + 1
End If
x = x + 1: lig = lig + 1
Feuil3.Cells(lig, 2) = Feuil1.Cells(k, 1)
Next
End Sub

Il faut que la protection des macros soient en Niveau Moyen
Menu/outils/Macros/sécurité
Youky

"Philippe"
Bonjour à toutes et à tous.

Sans trop vous embêter pendant ce début de vacances estivales, je me
permets de vous exposer un gros problème pour moi.
C'est au niveau de l'extraction de données.
Le ci-joint vous en dira beaucoup plus.
Merci de votre diligence.
http://cjoint.com/?hfl6X2b3bd
Philippe







Youky
Le #11196301
Re salut,
Voici de retour ton fichier avec des macros, il ne faut pas en avoir peur
J'ai rajouté pour mélanger les noms en macro
Sur ce forum tu trouveras toujours l'aide dont tu as besoin.
De plus c'est une bonne occasion de commencer......
http://cjoint.com/?hfszVsyf6Q
si Excel ouvre le fichier sans te demander les macros va ....
Menu/outils/Macros/sécurité mets Niveau Moyen
ensuite ferme le fichier et réouvre le en activant les macros
Youky

"Philippe" %23$
Bonjour Youky,
Merci pour ces précieux renseignements.
La VBA n'est pas mon fort, (pour être honnête, je n'y comprends rien) mais
je vais m'y atteler.
Merci encore et bon W.E
Philippe
"Youky"
Bonjour Philippe,
Avec des formules cela n'est pas évident...
Par contre cette macro le fait ...

Sub placement()
n = Feuil1.[A65536].End(3).Row
ns = Application.Match(n, [Constante!A2:A200], 0)
lig = 0: col = 3
For k = 2 To Feuil1.[A65536].End(3).Row
If x = Feuil2.Cells(ns, col) Then
lig = lig - x + 9: x = 0: col = col + 1
End If
x = x + 1: lig = lig + 1
Feuil3.Cells(lig, 2) = Feuil1.Cells(k, 1)
Next
End Sub

Il faut que la protection des macros soient en Niveau Moyen
Menu/outils/Macros/sécurité
Youky

"Philippe"
Bonjour à toutes et à tous.

Sans trop vous embêter pendant ce début de vacances estivales, je me
permets de vous exposer un gros problème pour moi.
C'est au niveau de l'extraction de données.
Le ci-joint vous en dira beaucoup plus.
Merci de votre diligence.
http://cjoint.com/?hfl6X2b3bd
Philippe











Philippe
Le #11196631
Re Bonjour "Youky"
Eureka - j'ai fais et cela fonctionne (je m'étonne moi-même)
Petite précision, SVP
Dans le cas où les colonnes du feuillet "Constantes" passerais de 8 colonnes
à 32, je suppose que dans la macro, il faudrait remplacer, à la ligne 6, le
"9" par 33, c'est à dire 32 colonnes +1 (si j'ai bien compris ...) ?
Encore MERCI

"Youky"
Bonjour Philippe,
Avec des formules cela n'est pas évident...
Par contre cette macro le fait ...

Sub placement()
n = Feuil1.[A65536].End(3).Row
ns = Application.Match(n, [Constante!A2:A200], 0)
lig = 0: col = 3
For k = 2 To Feuil1.[A65536].End(3).Row
If x = Feuil2.Cells(ns, col) Then
lig = lig - x + 9: x = 0: col = col + 1
End If
x = x + 1: lig = lig + 1
Feuil3.Cells(lig, 2) = Feuil1.Cells(k, 1)
Next
End Sub

Il faut que la protection des macros soient en Niveau Moyen
Menu/outils/Macros/sécurité
Youky

"Philippe"
Bonjour à toutes et à tous.

Sans trop vous embêter pendant ce début de vacances estivales, je me
permets de vous exposer un gros problème pour moi.
C'est au niveau de l'extraction de données.
Le ci-joint vous en dira beaucoup plus.
Merci de votre diligence.
http://cjoint.com/?hfl6X2b3bd
Philippe







Youky
Le #11196961
Ca y est t'as tout pigé et....trés rapidement
Cependant c'est pas bon de remplacer 9 par 33.
pourquoi 9
En Feuille Recopie! A1 donc ligne1 si je dois passer en 1ere ligne de serie2
je dois additionner 9 qui donne 10
cela dépend de tes Séries(maxi par série 8 )+1 pour la ligne vide
Par contre si une série peux être de 32 tu as raison...

Les macros sont pas si compliquées que l'on croit.
Si tu as besoin d'améliorer ton fichier pense au Userform
De toute façon faut pas avoir peur de modifier pour essayer
En faites il y a tant de trucs que........!!!!
Bonne suite
Youky
Philippe
Le #12038061
Bien le bonjour "Youky"
Tout d'abord encore un grand merci pour ta diligence.
Merci de m'avoir fait retour du ci-joint modifié de façon "Extra"
Ensuite merci pour le petit cours spécifique (8+1)=9 pour avoir une ligne de
séparation entre les séries.
Ce que je voulais préciser en parlant de 32, c'est le rapport qui existe
entre le nombre de noms et le nombre de séries (qui sont toujours d'un max
de 8 noms à l'intérieur d'une même série). Par exemple (extrème) 296 noms
donne 32 séries de 8 noms - ou encore ; 100 noms donne 14 séries (2 séries
de 8 et 12 séries de 7).
Quant tu précises :" En fait il y a tant de trucs que ...!!!" Cela est vrai,
mais il y en a vraiement beaucoup ...
Encore merci. Philippe
"Youky" %
Ca y est t'as tout pigé et....trés rapidement
Cependant c'est pas bon de remplacer 9 par 33.
pourquoi 9
En Feuille Recopie! A1 donc ligne1 si je dois passer en 1ere ligne de
serie2 je dois additionner 9 qui donne 10
cela dépend de tes Séries(maxi par série 8 )+1 pour la ligne vide
Par contre si une série peux être de 32 tu as raison...

Les macros sont pas si compliquées que l'on croit.
Si tu as besoin d'améliorer ton fichier pense au Userform
De toute façon faut pas avoir peur de modifier pour essayer
En faites il y a tant de trucs que........!!!!
Bonne suite
Youky



Youky
Le #12038181
Salut,
la seul chose que tu as à modifier est [Constante!A2:A200], ..200 est juste
un peux plus que 196 que tu avais indiqué
Mets 400 pour être tranquille.
Les series se feront seul par contre il faut que le tableau constante! soit
bien prévu pour 32 ou+ car je lie la valeur col par col
si le x dépasse cette valeur hop une nouvelle serie maxi selon le chiffre
indiqué en constante...
Youky
"Philippe"
Bien le bonjour "Youky"
Tout d'abord encore un grand merci pour ta diligence.
Merci de m'avoir fait retour du ci-joint modifié de façon "Extra"
Ensuite merci pour le petit cours spécifique (8+1)=9 pour avoir une ligne
de séparation entre les séries.
Ce que je voulais préciser en parlant de 32, c'est le rapport qui existe
entre le nombre de noms et le nombre de séries (qui sont toujours d'un max
de 8 noms à l'intérieur d'une même série). Par exemple (extrème) 296 noms
donne 32 séries de 8 noms - ou encore ; 100 noms donne 14 séries (2 séries
de 8 et 12 séries de 7).
Quant tu précises :" En fait il y a tant de trucs que ...!!!" Cela est
vrai, mais il y en a vraiement beaucoup ...
Encore merci. Philippe
"Youky" %
Ca y est t'as tout pigé et....trés rapidement
Cependant c'est pas bon de remplacer 9 par 33.
pourquoi 9
En Feuille Recopie! A1 donc ligne1 si je dois passer en 1ere ligne de
serie2 je dois additionner 9 qui donne 10
cela dépend de tes Séries(maxi par série 8 )+1 pour la ligne vide
Par contre si une série peux être de 32 tu as raison...

Les macros sont pas si compliquées que l'on croit.
Si tu as besoin d'améliorer ton fichier pense au Userform
De toute façon faut pas avoir peur de modifier pour essayer
En faites il y a tant de trucs que........!!!!
Bonne suite
Youky







Philippe
Le #12178691
Une nouvelle fois merci pour les explications.
Je pense que cette fois-ci c'est OK
Bonne continuation. Philippe

"Youky" eCg1e$
Salut,
la seul chose que tu as à modifier est [Constante!A2:A200], ..200 est
juste un peux plus que 196 que tu avais indiqué
Mets 400 pour être tranquille.
Les series se feront seul par contre il faut que le tableau constante!
soit bien prévu pour 32 ou+ car je lie la valeur col par col
si le x dépasse cette valeur hop une nouvelle serie maxi selon le chiffre
indiqué en constante...
Youky
"Philippe"
Bien le bonjour "Youky"
Tout d'abord encore un grand merci pour ta diligence.
Merci de m'avoir fait retour du ci-joint modifié de façon "Extra"
Ensuite merci pour le petit cours spécifique (8+1)=9 pour avoir une ligne
de séparation entre les séries.
Ce que je voulais préciser en parlant de 32, c'est le rapport qui existe
entre le nombre de noms et le nombre de séries (qui sont toujours d'un
max de 8 noms à l'intérieur d'une même série). Par exemple (extrème) 296
noms donne 32 séries de 8 noms - ou encore ; 100 noms donne 14 séries (2
séries de 8 et 12 séries de 7).
Quant tu précises :" En fait il y a tant de trucs que ...!!!" Cela est
vrai, mais il y en a vraiement beaucoup ...
Encore merci. Philippe
"Youky" %
Ca y est t'as tout pigé et....trés rapidement
Cependant c'est pas bon de remplacer 9 par 33.
pourquoi 9
En Feuille Recopie! A1 donc ligne1 si je dois passer en 1ere ligne de
serie2 je dois additionner 9 qui donne 10
cela dépend de tes Séries(maxi par série 8 )+1 pour la ligne vide
Par contre si une série peux être de 32 tu as raison...

Les macros sont pas si compliquées que l'on croit.
Si tu as besoin d'améliorer ton fichier pense au Userform
De toute façon faut pas avoir peur de modifier pour essayer
En faites il y a tant de trucs que........!!!!
Bonne suite
Youky











Publicité
Poster une réponse
Anonyme