Définir cellule destination dans un tableau sous condition ?

Bonjour tout le monde !

J'aurai une petite question à poser au forum, svp, est-il possible de transférer une donnée dans un tableau, en localisant la cellule à remplir, en fonction de 2 conditions?

Pas très clair cette question , voici un fichier joint pour expliquer ce que je recherche.

Sur ma feuille1, je filtre les données d'un tableau et j'ai un calcul qui apparait en E6.

En feuille2, dans un autre tableau, j'aimerai recopier cette valeur dans la cellule correspondante aux critères (Mois- Eq.).

Comment définir cette cellule ?

Est-ce possible ?

Est-ce la bonne façon de procéder?

Merci à tous pour votre aide,

Cordialement,

Xorsankukai

12essai.xlsm (25.16 Ko)

Bonjour xorsankukai,

Voilà une solution :

Private Sub CommandButton1_Click()

Dim F1 As Worksheet, F2 As Worksheet
Dim PlageMois As Range, PlageEQ As Range, cel As Range
Dim x As Long, y As Long
Dim Mois As String, MonEQ As String
Dim MaDate As Date

Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil2")
Set PlageMois = F2.Range("C3:H3")
Set PlageEQ = F2.Range("B4:B10")

MaDate = CDate(F1.Range("C4"))
MonEQ = Range("E4")
Mois = WorksheetFunction.Proper(Format(MaDate, "mmmm"))

    For Each cel In PlageEQ

        If cel Like MonEQ Then x = cel.Row

    Next cel

    For Each cel In PlageMois

        If cel Like Mois Then y = cel.Column

    Next cel

F2.Cells(x, y) = F1.Range("E6")

End Sub

Bonjour JS Lombard,

Merci pour ta réponse, ça fonctionne nickel !

Je vais étudier ton code en détail et tenter de le reproduire sur mon fichier d'origine.

Merci pour ton partage,

Bon week-end,

Cordialement,

xorsankukai

Rechercher des sujets similaires à "definir destination tableau condition"