Macro copier/coller conditionelle

Résolu/Fermé
kaiser4 Messages postés 109 Date d'inscription lundi 2 juillet 2007 Statut Membre Dernière intervention 11 mars 2024 - 13 janv. 2014 à 11:05
kaiser4 Messages postés 109 Date d'inscription lundi 2 juillet 2007 Statut Membre Dernière intervention 11 mars 2024 - 13 janv. 2014 à 11:52
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.
A voir également:

3 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
13 janv. 2014 à 11:27
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
kaiser4 Messages postés 109 Date d'inscription lundi 2 juillet 2007 Statut Membre Dernière intervention 11 mars 2024 2
13 janv. 2014 à 11:35
Merci beaucoup,

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

Merci !
0
kaiser4 Messages postés 109 Date d'inscription lundi 2 juillet 2007 Statut Membre Dernière intervention 11 mars 2024 2
13 janv. 2014 à 11:52
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