Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Macro de recopie sans copier les formules juste les valeurs et ajouter conditions

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jay72000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jay72000

XLDnaute Nouveau
Bonjour amis excellent,

J'aurais besoin d'une aide, j'utilise une macro de recopie.
La macro copie de la feuille MRE vers la feuille sauvegarde.
Elle incrémente une liste.
Mon premier problème, comment faire pour que la macro copie la valeur des cases, non pas la formule qui va avec ?
Mon second probleme : Comment faire pour rajouter des conditions : Si il y a ** dans les cases B7 F7 et F8 de la feuille MRE ne pas lancer la macro afficher le message d'erreur cases non remplis.

Merci

Code :

VB: 
Sub recopie()
    Dim ligVide As Long
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A12").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B12").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D12").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E12").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F12").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G12").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A13").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B13").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D13").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E13").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F13").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G13").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
            ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A14").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B14").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D14").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E14").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F14").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G14").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A15").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B15").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D15").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E15").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F15").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G15").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A16").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B16").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D16").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E16").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F16").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G16").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
            ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A17").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B17").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D17").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E17").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F17").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G17").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A18").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B18").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D18").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E18").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F18").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G18").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A19").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B19").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D19").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E19").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F19").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G19").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
            ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A20").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B20").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D20").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E20").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F20").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G20").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A21").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B21").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D21").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E21").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F21").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G21").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
            ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A22").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B22").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D22").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E22").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F22").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G22").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A23").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B23").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D23").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E23").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F23").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G23").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
            ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A24").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B24").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D24").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E24").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F24").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G24").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
     ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A25").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B25").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D25").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E25").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F25").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G25").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A26").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B26").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D26").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E26").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F26").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G26").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
            ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A27").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B27").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D27").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E27").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F27").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G27").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A28").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B28").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D28").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E28").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F28").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G28").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A29").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B29").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D29").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E29").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F29").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G29").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
            ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A30").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B30").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D30").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E30").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F30").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G30").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))
        ligVide = Sheets("sauvegarde").Range("D" & Rows.Count).End(xlUp).Row + 1
    Worksheets("MRE").Range("G3").Copy (Worksheets("sauvegarde").Cells(ligVide, 1))
    Worksheets("MRE").Range("B8").Copy (Worksheets("sauvegarde").Cells(ligVide, 2))
    Worksheets("MRE").Range("F8").Copy (Worksheets("sauvegarde").Cells(ligVide, 3))
    Worksheets("MRE").Range("A31").Copy (Worksheets("sauvegarde").Cells(ligVide, 4))
    Worksheets("MRE").Range("B31").Copy (Worksheets("sauvegarde").Cells(ligVide, 5))
    Worksheets("MRE").Range("F7").Copy (Worksheets("sauvegarde").Cells(ligVide, 6))
    Worksheets("MRE").Range("D31").Copy (Worksheets("sauvegarde").Cells(ligVide, 7))
    Worksheets("MRE").Range("E31").Copy (Worksheets("sauvegarde").Cells(ligVide, 8))
    Worksheets("MRE").Range("F31").Copy (Worksheets("sauvegarde").Cells(ligVide, 9))
    Worksheets("MRE").Range("G31").Copy (Worksheets("sauvegarde").Cells(ligVide, 10))


 
End Sub
 
Trier par date Trier par votes
Bonjour @jay72000 , @sylvanu , le Forum

Je pense qu'il vaut mieux spécifier comme ceci sur la Macro de Sylvanu :

VB: 
'''''For i = 12 To 31
For i = 12 To Worksheets("MRE").Range("A1000").End(xlUp).Row

Car déjà le tableau va jusqu'à 41, et pas 31, et puis comme ca on y pense plus...

Bonne journée
@+Thierry
 
Vote positif 0 Vote négatif
Bonjour Thierry,
Exact.🙄
On peut aussi simplifier tous ces Worksheets("sauvegarde") à répétition.
Mais ça suppose qu'il n'y ait rien d'autre après la ligne 41.
 

Pièces jointes

Vote positif 0 Vote négatif
Re Sylvanu, Jay

Et en fait on voit bien ici l'importance d'avoir des tables les plus structurées possibles pour s'éviter des gymnastiques infernales en cas d'Algos qui doivent travailler par dessus...

Toujours en continuant la tentative d'élimination de toute cette série de Worksheets("sauvegarde") à répétition. On finit par se compliquer la vie un max...

Pour simplifier ceci :
VB: 
    With Worksheets("MRE")
        f.Cells(ligVide, 1) = .Range("G3")
        f.Cells(ligVide, 2) = .Range("B8")
        f.Cells(ligVide, 3) = .Range("F8")
        f.Cells(ligVide, 4) = .Range("A" & i)
        f.Cells(ligVide, 5) = .Range("B" & i)
        f.Cells(ligVide, 6) = .Range("F7")
        f.Cells(ligVide, 7) = .Range("D" & i)
        f.Cells(ligVide, 8) = .Range("E" & i)
        f.Cells(ligVide, 9) = .Range("F" & i)
        f.Cells(ligVide, 10) = .Range("G" & i)
    End With

Ca finit par donner cet algo à la limite du rocambolesque LoL !!!
Code: 
    With Worksheets("MRE")
        For c = 1 To 10
        Select Case c
        Case 1, 2, 3, 6
            f.Cells(ligVide, 1) = .Range("G3")
            f.Cells(ligVide, 2) = .Range("B8")
            f.Cells(ligVide, 3) = .Range("F8")
            f.Cells(ligVide, 6) = .Range("F7")
        Case Else
            For x = 1 To 7
                If x <> 3 Then
                    f.Cells(ligVide, x + 3) = .Cells(i, x)
                End If
            Next x
        End Select
        Next c
    End With

Mais bon , on est mieux que dans le Post #1 quand même !!!

Just for the fn !

Bon aprèm
@+Thierry
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
596
M@xu3L
M
T
  • Question Question
XL 2016 Créer un renvoi automatique vers une feuille récap
Réponses
2
Affichages
801
thsoulard
T
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
  • Question Question
Microsoft 365 Retrouver les dépendants de cellules nommées
Réponses
6
Affichages
446
crocrocro
C
N
  • Question Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
300
netparty
N
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
703
TooFatBoy
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
302
Latias
L
J
  • Résolu(e)
XL 2021 Boucler sur un combobox d'une feuille Excel (Pas un Usf)
Réponses
8
Affichages
657
jozerebel
J
D
  • Question Question
Autres if deux conditions
Réponses
4
Affichages
427
dadaze
D
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
92
Pierreavecunp
P
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
623
Cheyenne_2021
C
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
389
badraaliou4
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
571
Zonmé
Z
A
  • Question Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
698
A-F
A
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
464
89ric
8
T
  • Question Question
XL 2019 Problème espace
Réponses
3
Affichages
515
job75
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
736
laurent950
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
522
GClaire
G
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
198
sebastien176
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…