Macro copier/coller conditionelle

Résolu
kaiser4 Messages postés 111 Statut Membre -  
kaiser4 Messages postés 111 Statut Membre -
Bonjour,

Je sollicite votre aide pour la création d'une macro.

Voici les conditions:

Je souhaiterais copier Feuille1!D5:F39 en Feuille2!C7:E41 seulement si la case Feuille3!B3="Décembre".

Je m'arrngerais ensuite pour étendre la macro à toute l'année.

Merci pour votre aide.

Cordialement.

3 réponses

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Sub Copier()
    If Worksheets("Feuille3").Range("B3") = "Décembre" Then _
    Worksheets("Feuille1").Range("D5:F39").Copy Destination:=Worksheets("Feuille2").Range("C7:E41")
    End Sub

    A+
    0
  2. kaiser4 Messages postés 111 Statut Membre 2
     
    Merci beaucoup,

    J'ai juste oublier de dire que je ne voulais copier/coller que la valeur de la cellule.

    Merci !
    0
  3. kaiser4 Messages postés 111 Statut Membre 2
     
    C'est bon, j'ai modifié la macro pour qu'elle réalise le copier coller spécial valeur.

    Merci pour votre aide.

    A+
    0