VBA copie données d'une Feuil à l'autre + MFC
s
Bonjour,
Débutant en VBA je bloque sur la copie de données entre deux Feuil d'un même classeur.
J'ai un classeur dans lequel se trouve une feuil de suivi et une seconde Feuil de planning.
Je souhaiterai récupérer des informations de la Feuil"Planning" afin de les insérer dans la Feuil_suivi notamment dans la colonne "Zone 2" de cette dernière.
Besoin n° 1 :
En fonction de la date du jour présente en Feuil_suivi cellule E18 la macro va venir chercher les informations dans la colonne adéquate de la Feuil_Planning a savoir systématiquement sélectionner la colonne JOUR de la date du jour.
Exemple pour ce Mercredi 09.12.2020 => Colonne G
- La macro va ensuite copier les chiffres présents en G3 et G5 respectivement en cellule D12 & E12 dans la Feuil_suivi
Besoins n° 2 :
Dans les différentes colonnes JOUR Feuil_planning se trouve des n° items (X1 etc...) accompagnés de textes variés. Ces n° d'items sont positionnés dans des cellules spécifiques qui correspondent aux différentes zones ( pour être raccord avec les zones reprises dans la colonne E de mon tableau Feuil_suivi il ne faudra retenir que les chiffres et non les lettres, exemple pour "A8" retenir "8")
Objectif :
Dans la colonne F de ma Feuil_suivi, venir automatiquement renseigner les n° de zones dans lesquelles sont placés les items (X1 etc...) dans la Feuil_Planning.
Uniquement prendre en compte les chiffes pour les zones et non la lettre => Ex 8 et non A8.
Autre besoin => Mise en forme conditionnelle :
Condition 1 : Feuil_suivi => colonne D (opérations) si les cellules contiennent :
LA ou MC , ne contiennent pas "CONFIG"et que cellules col F <> "" et que cellule colonne L (status) <> "valider" alors colorier en orange la cellule colonne D
Conditions 2 Feuil_suivi => colonne D (opérations) si les cellules contiennent :
LA ou MC, ne contiennent pas "CONFIG" et que cellules col F = "" et que cellule colonne L (status) <> "valider" alors colorier en bleu la cellule colonne D
En PJ vous trouverez mon fichier avec le résultat attendu dans la Feuil résultat attendu.
Un début de code que j'ai trouvé ci-dessous.
VB:Copier dans le presse-papier
Débutant en VBA je bloque sur la copie de données entre deux Feuil d'un même classeur.
J'ai un classeur dans lequel se trouve une feuil de suivi et une seconde Feuil de planning.
Je souhaiterai récupérer des informations de la Feuil"Planning" afin de les insérer dans la Feuil_suivi notamment dans la colonne "Zone 2" de cette dernière.
Besoin n° 1 :
En fonction de la date du jour présente en Feuil_suivi cellule E18 la macro va venir chercher les informations dans la colonne adéquate de la Feuil_Planning a savoir systématiquement sélectionner la colonne JOUR de la date du jour.
Exemple pour ce Mercredi 09.12.2020 => Colonne G
- La macro va ensuite copier les chiffres présents en G3 et G5 respectivement en cellule D12 & E12 dans la Feuil_suivi
Besoins n° 2 :
Dans les différentes colonnes JOUR Feuil_planning se trouve des n° items (X1 etc...) accompagnés de textes variés. Ces n° d'items sont positionnés dans des cellules spécifiques qui correspondent aux différentes zones ( pour être raccord avec les zones reprises dans la colonne E de mon tableau Feuil_suivi il ne faudra retenir que les chiffres et non les lettres, exemple pour "A8" retenir "8")
Objectif :
Dans la colonne F de ma Feuil_suivi, venir automatiquement renseigner les n° de zones dans lesquelles sont placés les items (X1 etc...) dans la Feuil_Planning.
Uniquement prendre en compte les chiffes pour les zones et non la lettre => Ex 8 et non A8.
Autre besoin => Mise en forme conditionnelle :
Condition 1 : Feuil_suivi => colonne D (opérations) si les cellules contiennent :
LA ou MC , ne contiennent pas "CONFIG"et que cellules col F <> "" et que cellule colonne L (status) <> "valider" alors colorier en orange la cellule colonne D
Conditions 2 Feuil_suivi => colonne D (opérations) si les cellules contiennent :
LA ou MC, ne contiennent pas "CONFIG" et que cellules col F = "" et que cellule colonne L (status) <> "valider" alors colorier en bleu la cellule colonne D
En PJ vous trouverez mon fichier avec le résultat attendu dans la Feuil résultat attendu.
Un début de code que j'ai trouvé ci-dessous.
VB:Copier dans le presse-papier
With Sheets("Feuil_suivi")
Worksheets("Feuil_suivi").Activate compteur = 0
For cellule = 26 To Range("D" & Rows.Count).End(xlUp).Row
If UCase(Cells(cellule, 4).Value) & " " Like "*LA*" Or UCase(Cells(cellule, 4).Value) & " " Like "*MC*" Then
Cells(cellule, 4).Interior.ColorIndex = 41
compteur = compteur + 1
Else
Cells(cellule, 4).Interior.ColorIndex = xlNone
End If
Next cellule
End WithEncore désolé pour cette demande assez conséquente mais je bloque totalement sur le sujet.
Merci d'avance pour vos réponses et bonne fin de journée.