XL 2010 Collage avec condition cellule

[Othman]

Bonjour tout le monde,

je vous sollicite svp car j'ai une problématique que j'arrive pas à résoudre, je souhaite copier des données depuis la "feuille de saisie" vers la "base de données".

La cellule a sélectionner pour copier les donner change suivant la cellule "A10" et le collage doit respecter les codifions "A13" et "B13" sur le ficher de base.

ci joint le fichier exemple

Merci d'avance pour votre aide.

 

[sylvanu]

Bonjour Othman, et bienvenu sur XLD,
Un essai en PJ avec ce que j'ai compris :

Sub Isertion()
    Application.ScreenUpdating = False
    Site = [A13]: Mois = [B13]
    With Sheets("Base de données")
        For L = 4 To .Range("A65500").End(xlUp).Row
            If .Cells(L, "B") = Mois And .Cells(L, "A") = Site Then
                .Range(.Cells(L, "C"), .Cells(L, "G")) = [C13:G13].Value
            End If
        Next L
    End With
End Sub

 

[Jacky67]

Bonjour tout le monde,

je vous sollicite svp car j'ai une problématique que j'arrive pas à résoudre, je souhaite copier des données depuis la "feuille de saisie" vers la "base de données".

La cellule a sélectionner pour copier les donner change suivant la cellule "A10" et le collage doit respecter les codifions "A13" et "B13" sur le ficher de base.

ci joint le fichier exemple

Merci d'avance pour votre aide.

Bonjour à tous
Hello sylvanu
Autre proposition avec ce code

Sub Rectangle1_Clic()
    Dim Lig&
    Application.ScreenUpdating = False
    Lig = [MATCH(A13&B13, 'Base de données'!$A$1:$A$99&'Base de données'!$B$1:$B$99,0)]
    Select Case Feuil2.[a10]
    Case "Eau"
        [c13:d13].Copy
        Feuil1.Range("h" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "Electricité"
        [c13:g13].Copy
        Feuil1.Range("c" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "Gazoil"
        [c13:e13].Copy
        Feuil1.Range("j" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "Gaz"
        [c13:d13].Copy
        Feuil1.Range("m" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Case "CO²"
        [c13:d13].Copy
        Feuil1.Range("O" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End Select
    [c13:g13].ClearContents
End Sub

 

[Othman]

Bonjour,
Merci pour votre retour, je vais essayer ça et je reviens vers vous.
Merci

 

[Othman]

Bonsoir,

Et oui ça marche, je vous remercie énormément, vous me sauvez la vie. Merci encore