Discussion :

[g.dupin.gemma]

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,

[defluc]

Bonjour à toi,

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

Cordialement

[g.dupin.gemma]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[defluc]

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 ?

[g.dupin.gemma]

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

[defluc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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