Reduction taille Macro

gds35 · 2 Août 2008

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 · 2 Août 2008

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 · 2 Août 2008

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 · 2 Août 2008

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 · 3 Août 2008

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 · 3 Août 2008

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 · 3 Août 2008

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 · 3 Août 2008

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

Reduction taille Macro

gds35

XLDnaute Impliqué

jeanpierre

Nous a quitté

gds35

XLDnaute Impliqué

jeanpierre

Nous a quitté

gds35

XLDnaute Impliqué

Pièces jointes

kjin

XLDnaute Barbatruc

Pièces jointes

gds35

XLDnaute Impliqué

kjin

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Reduction taille Macro

XLDnaute Impliqué

Nous a quitté

XLDnaute Impliqué

Nous a quitté

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency