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

Signaler
Messages postés
135
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
26 février 2020
 -
Messages postés
135
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
26 février 2020
 -
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
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 juillet 2020
 2 992
Bonjour Noe, 

option explicit
'-
Sub affecter_qtt()
Dim Lig As Byte, jour As Byte, Qtt As Single, Folio As String, ppX As String

With 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
    Next
End With

MsgBox "Report des Qtt effectué avec succès"
End Sub


la maquette
https://mon-partage.fr/f/YXJ2eZmL/

Réponse 2 / 3
Messages postés
9515
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
15 juillet 2020
 1 863
> 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
Signaler
Messages postés
135
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
26 février 2020
 3
Merci infiniment c'est exactement ce que j'ai cherché
Réponse 3 / 3
Messages postés
9515
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
15 juillet 2020
 1 863
Bonjour

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

Cdlmnt
Signaler
Messages postés
135
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
26 février 2020
 3
Mon classeur est plus compliqué que ça il comporte 24 feuilles j'ai seulement essayer de simplifier
la Macro de Mr michel_m est étonnante il reste uniquement que les cellules des feuilles "A9" "A10" soient liées avec celles de la feuille "acc" par formule
exemple : dans la cellule correspondante de A9 on devra avoir =acc!P52
Signaler
Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 juillet 2020
 2 992 >
Messages postés
135
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
26 février 2020
Mon classeur est plus compliqué que ça il comporte 24 feuilles j'ai seulement essayer de simplifier
Donc tu m'as fait bosser pour rien BRAVO

dans la cellule correspondante de A9 on devra avoir =acc!P52
Tu demandais du VBA pour qu'on marque une formule? BRAVO

la Macro de Mr michel_m est étonnante
Fous toi de moins en plus! BRAVO

Mon code fonctionne en correspondant à ta demande initiale qui s'avère être n'importe quoi
C'est à désespérer d'^tre solidaire
Répondre Posez votre question