macro copier coller avec 2 criteres

[olive323]

Bonjour a tous,

J'aurais besoin de lumiere pour faire une macro qui collerait A1 "onglet activite" vers onglet recap mensuel en tenant compte du n° de semaine et de l'opérateur.

Est ce quelqu'un aurait une idée?

Cordialement

Olive

 

[suistrop]

Re : macro copier coller avec 2 criteres

Bonsoir,

Essai avec une ptite formule perso.

Function calumette(ByVal ope As Range, ByVal sem As Range)
Application.ScreenUpdating = False
If Left(Sheets("activite").Cells(1, 2), 2) + 0 = sem.Value And Sheets("activite").Cells(4, 2) = ope.Value Then
calumette = Sheets("activite").Cells(1, 1)
Else
calumette = 1
End If
End Function

 

[olive323]

Re : macro copier coller avec 2 criteres

Merci

Ca fonctionne, mais je n'arrive pas à l'adapter c'est a dire faire la meme chose pour les cellules G1 , m1 , R1 ect...le tableau est repeté au moins 20 fois

J'aimerais aussi inserer un bouton pour activer la macro ce qui est d'habitude simple mais la pas moyen
Cordialement

Olive

 

[suistrop]

Re : macro copier coller avec 2 criteres

J'ai fais une fonction personnalisé par rapport a ton fichier, si tu fourni un fichier plus complet je pourrais surement mieux l adapter.