Je me rends compte que mon fichier n'était pas joint. J'espère que mon problème sera plus clair à présent. en fait tous les X temps la valeur des cases jaunes deviennent celles des cases bleues. Je voudrais en arriver en fait qu'en appuyant sur un bouton de commande la mise à jour se fasse automatiquement
Tout d'abord ce n'est pas la peine d'ouvrir un nouveau fil puisque plusieurs personnes t'on proposées des solutions Lien supprimé.
Je ne suis pas sur d'avoir bien tout compris, mais je te propose deux solutions, la 1ère étant suffisante si tu n'as que 2 plages, la seconde utilisent une boucle au cas ou tu aurais pas mal de plages à modifier.
Code:
Sub test()
Range('I2:K3').Value = Range('C2:E3').Value
Range('I7:K8').Value = Range('C7:E8').Value
End Sub
Code:
Sub test_2()
Dim i As Integer, k As Integer
k = 2
For i = 1 To 2
Range('I' & k & ':K' & k + 1).Value = Range('C' & k & ':E' & k + 1).Value
k = k + 5
Next i
End Sub
Merci pour les réponse. J'ai en fait amélioré mon exemple pour etre plus clair. En a on a une évulotion d'effectif de janvier 2006 et Février 2006 (A).
Le mois suivante je dois faire l'évolution février 2006 / Mars 2006.
Je copie A dans un nouveau fichier. Le but est qu'en appuyant sur le bouton de commande ' Mise à jour B' les valeurs dans les cases bleues soient copiées dans les cases jaunes et que les colonnes intermédiaires (F, G, H) soient mises à blanc.
Bonsoir le forum,
Bonsoir Charly2
Merci pour les réponses. C'était pus qu'espéré. Lorsque je parlais de copier le fichier c'était de créer un nouveau fichier .XLS. J'ai copié la formule dans le nouveau fichier mais le Le prg se plante. Il faut dire que j'ai essayé de l'adapter (feuille comportant le bouton de commande). En fait il ne faut remplacer les valeurs bleues par les jaunes là ou il n'y a pas de formule et mettre les valeurs entre les deux couleurs à 0. Le prg le faisait correctement mais grace à mon intervention le