Simplifier un code vba

Résolu

dudulleray -
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

Afficher la suite

A voir également:

Simplifier un code vba
Code ascii - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149

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

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

sertissage des cables rj45

Votre réponse

Discussions similaires