Macro copier/coller Spécial zones...

[Christian0258]

Bonsoir à tous,

Pourriez-vous m'aider à l'écriture d'une macro pour copier et coller, en fonctions de critères...

fichier joint

Merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,

Christian

 

[wamme]

Re : Macro copier/coller Spécial zones...

Bonsoir voici un exemple tout bète

Sub Test()
'si M3 = MIDI et si M4 = ENTREE il faut copier les valeurs de la zone ci-dessus
'(M2:X3) dans la feuille EtqDESS dans la zone B2:K3.
If Range("M3") = "MIDI" And Range("M4") = "ENTREE" Then
Sheets("EntRes").Range("B2:K3").Value = Sheets("EtqDESS").Range("M2:X3").Value

End If

'si M3 = MIDI et si M4 = DESSERT il faut copier les valeurs de la zone ci-dessus
'(M2:AA3) dans la feuille EtqDESS dans la zone L2:Z3.
If Range("M3") = "MIDI" And Range("M4") = "DESSERT" Then
Sheets("EntRes").Range("L2:Z3").Value = Sheets("EtqDESS").Range("M2:AA3").Value

End If

'si M3 = SOIR et si M4 = ENTREE il faut copier les valeurs de la zone ci-dessus
'(M2:X3) dans la feuille EtqDESS dans la zone AA2:AJ3.
If Range("M3") = "SOIR" And Range("M4") = "ENTREE" Then
Sheets("EntRes").Range("AA2:AJ3").Value = Sheets("EtqDESS").Range("M2:X3").Value

End If

'si M3 = SOIR et si M4 = DESSERT il faut copier les valeurs de la zone ci-dessus
'(M2:AA3) dans la feuille EtqDESS dans la zone AK2:AY3.
If Range("M3") = "SOIR" And Range("M4") = "DESSERT" Then
Sheets("EntRes").Range("AK2:AY3").Value = Sheets("EtqDESS").Range("M2:AA3").Value

End If

'si M3 = SOIR et si M4 = COLL il faut copier les valeurs de la zone ci-dessus
'(M2:O3) dans la feuille EtqDESS dans la zone AZ2:BB3.
If Range("M3") = "SOIR" And Range("M4") = "COLL" Then
Sheets("EntRes").Range("AZ2:BB3").Value = Sheets("EtqDESS").Range("M2:O3)").Value

End If
End Sub

 

[Christian0258]

Re : Macro copier/coller Spécial zones...

Bonjour à tout le forum,

Merci, Wamme, c'est tout à fait ça, impec de chez impec.


Bonne semaine

Bien amicalement,
Christian