VBA importer des cellules en dessous d'une date variable

Fermé
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023 - 4 janv. 2023 à 13:11
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 11 janv. 2023 à 16:54

Bonjour à tous, toutes

Je suis novice en VBA mais je "chipote" comme on dit :)

Je recherche depuis un moment sur le net mais ne trouve pas exactement ce que j'essaye de faire et avec l'enregistrement macro, j'ai un blocage que je n'arrive pas à résoudre

Pour un planning, j'aimerai importer dans un onglet différent une plage de donnée qui comporte 4 colonnes/60 lignes en dessous d'une date variable

Donc l'idée, c'est que j'indique dans une cellule (toujours la même) d'un onglet "résumé" une date variable

Lorsque j'appuie sur un bouton "importer", cela va rechercher la valeur de la date dans la cellule de l'onglet "résumé", rechercher cette date dans l'onglet "planning" 'toujours sur la même ligne (2:2), sélectionner la plage de donnée juste en dessous de cette date (4colonnes/60lignes) et la copier/coller dans l'onglet "résumé"

Pour l'instant j'ai ceci:

c'est la partie - Range("F2:I63").Select que j'aimerai faire varier selon la date mais je ne sais pas comment

Un tout grand merci déjà pour votre aide :)

A voir également:

17 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 janv. 2023 à 13:51

Re,

Une facon de faire:  https://www.cjoint.com/c/MAgmZmNJcug

1
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
8 janv. 2023 à 11:42

Bonjour,

Une facon de Faire: https://www.cjoint.com/c/MAikPX8IePg

1
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
5 janv. 2023 à 09:56

Bonjour,

Pouvez vous mettre un fichier exemple a dispo ?

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

0
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023
6 janv. 2023 à 10:14

Bonjour,

Voici comme demandé

https://www.cjoint.com/c/MAgi7bNizgG

j'ai minimisé le fichier au max pour simplifier (les datas sont fictives bien sur ;))

En bref, j'aimerai en indiquant une date dans l'onglet "Résumé" (D:2) importer les données du "Planning 2023" en dessous de la date de référence et regrouper les données de ce tableau par équipes (je l'ai fait manuellement dans le classeur pour montrer le résultat souhaité)

Pour l'instant je "m'amuse" avec des copy/paste mais je gagnerai pas mal de temps avec une petite macro

Merci d'avance pour votre aide :-)

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 janv. 2023 à 10:30

Bonjour,

Je recupere le fichier et regarde la chose

0
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023
6 janv. 2023 à 20:10

Merci beaucoup f894009!

Ca fait vraiment plaisir de voir de l'aide gratuite comme ça!

Ca fonctionne, j'ai juste adapté une désignation qui faisait référence à l'onglet ("Résumé  (2)") en ("Résumé"), certainement un petit bug de test :) merci encore

Par contre, est ce possible avec cet import de regrouper les données par équipes dans ("Résumé (G5:L21)") ? 

En bref, j'aimerai en indiquant une date dans l'onglet "Résumé" (D:2) importer les données du "Planning 2023" en dessous de la date de référence (ok) et regrouper les données de ce tableau par équipes (je l'ai fait manuellement dans le classeur pour montrer le résultat souhaité) 

Encore merci

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 janv. 2023 à 20:13

Re,

Je regarde la chose demain

0
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023
6 janv. 2023 à 20:23

Merci, pas de grosse urgence, depuis le temps que je cherche, c'est déjà super :-) passez un bon WE!

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
9 janv. 2023 à 07:33

Bonjour,

J'utilise, pour tableau Equipe, les donnees que j'importe dans le tableau de gauche, mais cela ne vous est peut-etre pas utile pour vous.

Si c'est le cas, je reprends le code pour faire avec les donnees de la feuille Planning 2023

0
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023
9 janv. 2023 à 12:10

Bonjour,

Un tout grand merci! Ca marche dans le fichier joint mais quand je copie/colle les codes dans mon fichier, il m'indique une erreur d'execution 91 dans le code Complete_Planning (TAdr)

Variable d'objet ou variable de bloc With non définie

lig = .Columns(5).Find(TAdr(n), .Cells(lig, 5), , xlWhole).Row      'recherche ligne

Quand je prends les données de mon fichier et que je les colles dans le fichier reçu, j'ai la même erreur...

Pour info, j'aurais peut-être du préciser, ce sont des formules dans certaines cellules, je peux avoir plusieurs chantiers dans les colonnes (Cronos, chantier, adresse) et certaines cellules (contenant des formules ou non) peuvent rester vides

Je ne sais pas si cela peut influencer le code?

Pour répondre à votre proposition de n'indiquer que l'import, pas besoin, vous pouvez utiliser les données du tableau de gauche, c'est super pour moi

Merci beaucoup!

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié le 9 janv. 2023 à 16:43

Re,

Je ne sais pas si cela peut influencer le code?

Oui, pouvez mettre un fichier normal a dispo?

0
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023
10 janv. 2023 à 11:04

Bonjour,

Voici le fichier avec les formules dans certaines cellules

https://www.cjoint.com/c/MAkkcUwGZpG

Merci encore pour votre aide

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
10 janv. 2023 à 11:05

Bonjour,

Je recupere le fichier et regarde la chose

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié le 11 janv. 2023 à 14:32

Bonjour,

De Grande Fonzy3816161847/2566                             Kain  Val de la Résistance 

33EX_22_051991847/2742                         Velaines Rue Delvourgue - redresser poteau béton

-------------------------------------------------------------------------------------------------------------------------------------------

Denutte Jean-Pierre3816161847/2566                         Kain  Val de la Résistance

479EX_22_051991847/2742                     Velaines Rue Delvourgue - redresser poteau béton 

Deux lignes un seul nom Agent. il en est prevu 4, comment je fais?

Pour le moment ca donne ceci: https://www.cjoint.com/c/MAlnGdRewZg

0
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023
11 janv. 2023 à 14:37

Bonjour,

En fait, la quantité d'agent par équipe est variable, parfois seul, parfois plusieurs agents

La quantité de chantier est également variable, parfois 1seul chantier, parfois plusieurs sur une journée

Dans ce cas du 10/01, cela voudrais ressembler à ceci:

Fonzy          1-NBV-134  381616       1847/2566  Kain Val de la Résistance
                          EX_22_05199  1847/2742  Velaines Rue Delvourgue   redresser poteau béton 
Jean-Pierre D. 1-YSQ-618  381616       1847/2566  Kain Val de la Résistance
                          EX_22_05199  1847/2742  Velaines Rue Delvourgue   redresser poteau béton 

et suppression des doublons à partir de la colonne 3 à 6 pour arriver si possible à:

Fonzy	       1-NBV-134  381616       1847/2566  Kain Val de la Résistance
Jean-Pierre D. 1-YSQ-618  EX_22_05199  1847/2742  Velaines Rue Delvourgue   redresser poteau béton

Possible vous pensez?

Il va peut-être manquer un critère pour définir la séparation horizontale entre les équipes, je peux ajouter les lignes horizontales de séparation d'équipe manuellement aussi

Merci beaucoup pour votre aide en tout cas! :-)

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié le 11 janv. 2023 à 15:09

Re,

Pour un seul Agent et deux lignes (cas de Fonzy par exemple) je fais quoi?

Si Plusieurs Agents, je regarde "pour arriver si possible a" car si meme adresse mais pas meme chantier, ca marche comment!

0
Samahome Messages postés 8 Date d'inscription mercredi 4 janvier 2023 Statut Membre Dernière intervention 11 janvier 2023
11 janv. 2023 à 15:51

Dans ce cas , Fonzy et Jean-Pierre sont en binôme pour 2 chantiers

Si Fonzy était seul pour 2 chantiers, cela donnerai ceci

Fonzy  1-NBV-134  381616       1847/2566  Kain Val de la Résistance
Fonzy  1-NBV-134  EX_22_05199  1847/2742  Velaines Rue Delvourgue   redresser poteau

et suppression des doublons des colonnes 1 et 2 pour donner:

Fonzy  1-NBV-134  381616       1847/2566  Kain Val de la Résistance
                  EX_22_05199  1847/2742  Velaines Rue Delvourgue   redresser poteau

Je ne sais pas si ça répond à votre question?

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 janv. 2023 à 16:54

Re,

si ça répond à votre question?

Oui.

Autres cas entres autre:

Fonzy et JP meme adresse mais deux chantiers differents

0