Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Aide sur Extraction de données

Aide sur Extraction de données

8 réponses
Avatar
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
Signaler un problème avec ce contenu

8 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
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" a écrit dans le message de news:

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



Avatar
Philippe
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" a écrit dans le message de news:

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" a écrit dans le message de news:

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







Avatar
Youky
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" a écrit dans le message de news:
%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" a écrit dans le message de news:

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" a écrit dans le message de news:

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











Avatar
Philippe
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" a écrit dans le message de news:

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" a écrit dans le message de news:

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







Avatar
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
Avatar
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" a écrit dans le message de news:
%
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



Avatar
Youky
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" a écrit dans le message de news:

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" a écrit dans le message de news:
%
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







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

"Youky" a écrit dans le message de news:
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" a écrit dans le message de news:

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" a écrit dans le message de news:
%
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