Demande aide simplification code VBA

[mig_59]

Bonjour à tous,
Avant de commencer, je vous présente tous mes voeux pour l'année 2012

Voila, j'ai code VBA pas très propre et j'aimerais le rendre plus clair
J'ai feuille de calcul avec 31 tableaux qui correspondent aux 31 jours du mois de janvier

Je dois placer un point toute les x cellule
le x correspond toujours au même écart de cellule entre le 1er point, le 2eme, le 3eme etc.. jusqu'au 31ème

Voir fichier joint
Merci d'avance pour votre aide

Cdt

 

[flyonets44]

Re : Demande aide simplification code VBA

bonjour
voir le fichier en retour avec la macro insertionpoint
Cordialement
flyonets

 

[mig_59]

Re : Demande aide simplification code VBA

Merci flyonets44 pour ta réponse rapide

Mais peut-on faire la même chose non pas pour le classeur en entier mais par feuille
Car il y a une feuille par mois
février 29 jours (pour cette année) et avril 30 jours etc...

L'intervale entre les points on la dit ne change pas quelque soit la feuille de calcul mais le nombre de points lui change en fontion du mois

 

[bbb38]

Re : Demande aide simplification code VBA

Bonjour mig_59, le forum,
Dans l’hypothèse où j’ai compris ta demande, si l’année est bissextile, le 1er point en mars se situe le 1er mars, dans le contraire, le 1er point en mars se situe le 2 mars.
Voir exemple sur le fichier ci-joint.
Cordialement,
Bernard

 

[mig_59]

Re : Demande aide simplification code VBA

Bonjour BBB38, le forum


Voilà, j'ai 12 feuilles dans le classeur 1 feuille par mois
Prenons par exemple la première feuille (janvier)
Janvier = 31 jours
Sur cette feuille (janvier) j'ai 31 tableaux IDENTIQUE un par jour, (pour info c'est 31 tableaux m'amène à la cellule CZH 2712 colonnes rien que le mois de janvier et pèse 1600 Ko)
Imagine si je devais faire tout cela sur une seule feuille !!

Je dois placer un point toute les x cellules d'une ligne.
Exemple : je choisis la cellule de départ "cellule dv4" et un point toute les "x" cellule en partant de DV4, l’écart "x" sera par exemple de 10 cellules.
L’écart de cellule sera toujours le même entre le 1er point, le 2eme, le 3eme etc... Jusqu’au 31ème parce janvier 31 jours.

Pour le mois de février c'est la même feuille que janvier mais avec 2 jours en moins.
L'écart sera toujours identique que les écarts de la feuille (janvier)

C'est pour cela que le code VBA de la feuille (janvier) sera recopier sur la feuille (février) en changeant le nombre de point (ici 29) et ainsi de suite pour les autres mois.

Le code VBA que j'ai actuellement fonctionne très bien (voir premier fichier joint) mais j'aimerais le simplifier en y ajoutant les paramètres en l'occurrence la cellule de départ et le nombre de point.

Je sais ce n’est pas évident de se faire comprendre par écrit, milles excuses si je me suis mal exprimé.

Cordialement