Simplifier un code vba

Résolu/Fermé

dudulleray - 28 sept. 2013 à 18:28
dudulleray - 29 sept. 2013 à 08:23

Bonsoir a toutes et tous, Forum bonsoir

Je souhaiterai svp simplifier ce code VBA excel 2007 pour éviter le répètitif

-- le code fonctionne tel qu'il est ci-dessous.

Merci a vous pour votre temps et votre savoir

Bonne soirée a tous

Bien Cdlt


 ' *** Recopier les colonnes / lignes chaque 01 de chaque mois

If Month(Date) > 1 Then                                       
        .Cells(17, Month(Date) + 4).Resize(3, 1).Value = .Cells(17, Month(Date) + 3).Resize(3, 1).Value
        .Cells(18, Month(Date) + 4).Resize(3, 1).Value = .Cells(18, Month(Date) + 3).Resize(3, 1).Value
        .Cells(19, Month(Date) + 4).Resize(3, 1).Value = .Cells(19, Month(Date) + 3).Resize(3, 1).Value
        .Cells(20, Month(Date) + 4).Resize(3, 1).Value = .Cells(20, Month(Date) + 3).Resize(3, 1).Value
        .Cells(21, Month(Date) + 4).Resize(3, 1).Value = .Cells(21, Month(Date) + 3).Resize(3, 1).Value
        .Cells(22, Month(Date) + 4).Resize(3, 1).Value = .Cells(22, Month(Date) + 3).Resize(3, 1).Value
        .Cells(23, Month(Date) + 4).Resize(3, 1).Value = .Cells(23, Month(Date) + 3).Resize(3, 1).Value
        .Cells(24, Month(Date) + 4).Resize(3, 1).Value = .Cells(24, Month(Date) + 3).Resize(3, 1).Value
        .Cells(25, Month(Date) + 4).Resize(3, 1).Value = .Cells(25, Month(Date) + 3).Resize(3, 1).Value
        .Cells(26, Month(Date) + 4).Resize(3, 1).Value = .Cells(26, Month(Date) + 3).Resize(3, 1).Value
      End If

A voir également:

Simplifier un code vba
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Comment créer un qr code - Guide

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
29 sept. 2013 à 00:45

Bonsoir,

' *** Recopier les colonnes / lignes chaque 01 de chaque mois
If Month(Date) > 1 Then
   For l=17 to 26 
      .Cells(l, Month(Date) + 4).Resize(3, 1).Value = .Cells(l, Month(Date) + 3).Resize(3, 1).Value
   Next l
End If

A+

dudulleray
29 sept. 2013 à 08:23

salut Zoul67,

Merci pour ta réponse c'est gentil

Bon hé bien ca marche, effectivement très court le code.
je n'ai pas penser a faire une boucle

Encore merci pour le chti code et ton aide

je te souhaite un bon Dimanche

Cordialement Ray

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Discussions similaires

Newsletters