vba coller dans une feuille dont le nom dépend de la valeur d'une cellule Résolu/Fermé

Question

Bonjour les amis, 
je travaille sur un classeur mais je suis un peu bloqué 
je veux une macro qui a chaque fois exécutée  effectue un collage par liaison de :

la cellule  "P52" vers la feuille dont le nom est la valeur de la cellule "AC52"  devant sa date correspondante "AB55" dans la colonne E

la cellule  "P53" vers la feuille dont le nom est la valeur de la cellule "AC53"  devant sa date correspondante "AB53" dans la colonne H

la cellule  "P54" vers la feuille dont le nom est la valeur de la cellule "AC54"  devant sa date correspondante "AB54" dans la colonne K

la cellule  "P55" vers la feuille dont le nom est la valeur de la cellule "AC55 "  devant sa date correspondante "AB55" dans la colonne N

le fichier joint pourra être mieux éclaircir

https://www.cjoint.com/doc/20_01/JAzay1MYW4W_essai.xlsm

Merci infiniment


Configuration: Windows / Chrome 79.0.3945.130

michel_m · Answer

Bonjour  Noe,

option explicit'-Sub affecter_qtt()Dim Lig As Byte, jour As Byte, Qtt As Single, Folio As String, ppX As StringWith Sheets("acc")    For Lig = 52 To 55        jour = Day(.Cells(Lig, "Q"))        Qtt = .Cells(Lig, "P")        Folio = .Cells(Lig, "ac")        ppX = Choose(Lig - 51, "E", "H", "K", "N")                With Sheets(Folio)            .Cells(.Range("B7").Offset(jour).Row, ppX) = Qtt        End With    NextEnd WithMsgBox "Report des Qtt effectué avec succès"End Sub

 la maquette
https://mon-partage.fr/f/YXJ2eZmL/

ccm81 · Answer

Bonjour

1. Tu n'as que ces 4 feuilles A9, A10, A11, A12 ?
2. Que veux tu dire par "avec liaison" ?

Cdlmnt

ccm81 · Answer

> michel : ce matin,  j'ai eu comme un doute, d'où mes deux questions 

> noe2008 : lorsqu'il s'agit de macro, il est impératif de donner la structure exacte des données, sinon, il y a un risque de passer à côté du problème 
En modifiant la macro de michel
https://mon-partage.fr/f/XUrtMVig/ 
il faudra certainement modifier le code ici
ppX = Choose(Lig - 51, "E", "H", "K", "N")

Cdlmnt

Vba coller dans une feuille dont le nom dépend de la valeur d'une cellule

3 réponses

Discussions similaires