Coller valeur en fonction d'une cellule

Bonjour,

J'ai quelques problèmes pour appliquer avec un code VBA la fonction suivante :

- J'ai dans la case W3 un numéro de semaine
- Je calcul dans les cellules D33 H33 L33 P33 T33 les indicateurs
- J'aimerai copier les valeurs de ces indicateurs en fonction de la Cellule W33 dans un autre tableau en fonction du numéro de semaine

En pièce jointe un sreen-shot de mon tableau

Merci par avance,

Bonjour à toi,

Je suppose que tu ne pars pas de rien.
Alors, montres ton code pour qu'on voie où ça coince.

Cordialement

Je suis parti du code suivant que j'ai trouvé sur internet mais je ne sais pas trop si celui-ci correspond bien à ce que je veux faire

Code:

---

1 2 3 4 5 6 7 8 9

Sub Copier() Dim i As Integer Application.ScreenUpdating = False For i = 1 To Range("B10") Range("A16:J37").Copy Range("A" & Rows.Count).End(xlUp).Offset(1, 0) Next i Application.CutCopyMode = False End Sub

---

Il manque 2 choses.

1. quelle est la condition de la valeur inscrite dans la cellule W3 qui fait que l'on choisit la cellule à copier D33, H33, L33, P33 ou T33 ?
2. dans quelle feuille et à quel emplacement cette cellule doit-elle être copiée ?

Les données calculées en D33 H33 L33 P33 T33 doivent être collées dans le tableau de ma même feuille mais en Z5 AA5 AB5 AC5 AD5 pour les indicateurs correspondants à la semaine 1

Le copier/coller n'est pas utile puisque les cellules ne sont pas contiguës et qu'on ne sait pas constituer une plage.

Code:

---

1 2 3 4 5 6 7 8 9

Sub Copier() If ActiveSheet.Range("W3") = 1 Then ActiveSheet.Range("Z5") = ActiveSheet.Range("D33") ActiveSheet.Range("AA5") = ActiveSheet.Range("H33") ActiveSheet.Range("AB5") = ActiveSheet.Range("L33") ActiveSheet.Range("AC5") = ActiveSheet.Range("P33") ActiveSheet.Range("AD5") = ActiveSheet.Range("T33") endif End Sub

---

Oui mais n'est -il pas possible d'éviter de développer un code en fonction de chaque semaines ?

Bien sur que si. Mais tu n'as donné que la condition de la semaine 1.