Vba coller dans une feuille dont le nom dépend de la valeur d'une cellule [Résolu/Fermé]
Signaler
noe2008
noe2008
- Messages postés
- 159
- Date d'inscription
- vendredi 18 juillet 2008
- Statut
- Membre
- Dernière intervention
- 3 novembre 2020
noe2008
- Messages postés
- 159
- Date d'inscription
- vendredi 18 juillet 2008
- Statut
- Membre
- Dernière intervention
- 3 novembre 2020
A voir également:
- Copier coller vba excel entre 2 feuilles
- Copier/Coller entre 2 classeurs VBA ✓ - Forum - VB / VBA
- Vba coller dans une feuille dont le nom dépend de la valeur d'une cellule ✓ - Forum - Excel
- Copier et coller les cellules de plusieurs feuilles - Forum - Excel
- VBA Excel: Importer des feuilles vers un classeur ✓ - Forum - VB / VBA
- VBA : Copier valeur de cellules dans une autre feuilles ✓ - Forum - VB / VBA
3 réponses
michel_m
- Messages postés
- 16433
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 15 avril 2021
Bonjour Noe,
la maquette
https://mon-partage.fr/f/YXJ2eZmL/
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/
ccm81
- Messages postés
- 9710
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 19 avril 2021
> 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
> 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
ccm81
- Messages postés
- 9710
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 19 avril 2021
Bonjour
1. Tu n'as que ces 4 feuilles A9, A10, A11, A12 ?
2. Que veux tu dire par "avec liaison" ?
Cdlmnt
1. Tu n'as que ces 4 feuilles A9, A10, A11, A12 ?
2. Que veux tu dire par "avec liaison" ?
Cdlmnt
noe2008
- Messages postés
- 159
- Date d'inscription
- vendredi 18 juillet 2008
- Statut
- Membre
- Dernière intervention
- 3 novembre 2020
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
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
michel_m
- Messages postés
- 16433
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 15 avril 2021
- Messages postés
- 159
- Date d'inscription
- vendredi 18 juillet 2008
- Statut
- Membre
- Dernière intervention
- 3 novembre 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
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