Reduction taille Macro

[gds35]

Bjr mes AMIS du forums , je suis en trein d'ecrire un en VBA pour remettre a jour des données en debut de chaque année . le code que j'ai ecrit , il me faut le reproduire 30 ou 31 fois X par 12 mois ; Il y a t'il un moyen de faire une boucle trouve pas . Je joint une partie de Sub Test()
'
Sheets("BASE").Select
Range("S1").Select
Selection.Copy
Sheets("09").Select
Range("C5😀5").Select
ActiveSheet.Paste
'
Sheets("BASE").Select
Range("S2").Select
Selection.Copy
Sheets("09").Select
Range("H5:I5").Select
ActiveSheet.Paste
'
Sheets("BASE").Select
Range("S3").Select
Selection.Copy
Sheets("09").Select
Range("C13😀13").Select
ActiveSheet.Paste
'
Sheets("BASE").Select
Range("S4").Select
Selection.Copy
Sheets("09").Select
Range("H13:I13").Select
ActiveSheet.Paste

Merci de votre Aide , cordialement GDS35

 

[jeanpierre]

Re : Reduction taille Macro

Bonjour gds35, tous,

Avec une boucle du genre :

For i=1 to "le nombre de jours du mois que tu peux récupérer dans ta feuille"
Range("S" & i)
...... ton code
Next

Voir si cela te convient et bon WE.

Jean-Pierre

 

[gds35]

Re : Reduction taille Macro

Merci Jean-pierre il me faut incrementer ma feuille du mois de + 8
Sheets("09").Select
Range("H5:I5").Select
ActiveSheet.Paste
chaque feuille de chaque mois est la date C5😀5 puis H5:I5 , ensuite C13😀13 puis H13:I13 , etc je n'arrive pas a creer introduire cette variable ds la partie du code cité + haut .
Encore Merci cependant de ta compréhension et de ton aide
GDS35

 

[jeanpierre]

Re : Reduction taille Macro

Re,

Joins nous un exemple représentatif de ton souci... (zippé de préférence, car tu peux en mettre beaucoup plus).

Car, là, dans le texte, j'ai beaucoup de mal.

 

[gds35]

Re : Reduction taille Macro

Bjr tous mes amis , je reviens vers vs pour mon pb de mise de feuille en VBA et vs transmets un fichier joint , recap de mon soucis , 2 feuilles Base et 09
à partir de S1 de la BASE je veux mettre a jour automatiquement la feuille 09
ds les cellules C5😀5 (cellule S1 de la base) en H5:I5 (cellule S2 de la Base) Etc . Merci encore de votre aiçde je galere . GDS35

 

[kjin]

Re : Reduction taille Macro

Bonjour,
Pourquoi en vba, les formules suffisent !
Par contre la saisie de la date en J2 pourrait être automatisée
A+
kjin

 

[gds35]

Re : Reduction taille Macro

Bjr KJIN , merci de ta reponse tu pourrais modifier la macro , car suis tj ds l'incertitude de sa fonctionnalite , c'est a dire prendre la Valuer en S1 de la Feuille BASE et la transposer dans la Feuille 09 en C5😀:5 , puis la ligne 2 soit S2 et la mettre en H5:I5
C'est deja superbe de m'aider .... si tu pouvais m'ecrire ce code ???? je n'y arrive pas .... Encore Merci . GDS35

 

[kjin]

Re : Reduction taille Macro

Re,
Bien que je ne comprenne pas le but de la chose, ni comment ça fonctionne... un essai à tester

Sub actu()
For i = 1 To 31 Step 2
Sheets("09").Cells((i * 4) + 1, 3).Value = Sheets("base").Cells(i, 19).Value
Next
For i = 2 To 30 Step 2
Sheets("09").Cells((i * 4) - 3, 8).Value = Sheets("base").Cells(i, 19).Value
Next
End Sub

A+
kjin