Archivage

[philmar]

Bonjour,

grâce au site excel-downloads.com, j'utilise le VBA ci-joint.
Je voudrais l'adapter, est-il de possible de sélectionner la liste à copier grace à un messbox par exemple, en l'occurence entre la ligne 1 et la ligne 110..
Merci

Bien cordialement

Philippe



Sub Transfert()

Dim Tablo(23), Derlign As Long

Tablo(0) = Sheets("synthese stats").Range("A1").Value
Tablo(1) = Sheets("synthese stats").Range("B1").Value
Tablo(2) = Sheets("synthese stats").Range("C1").Value
Tablo(3) = Sheets("synthese stats").Range("D1").Value
Tablo(4) = Sheets("synthese stats").Range("E1").Value
Tablo(5) = Sheets("synthese stats").Range("F1").Value
Tablo(6) = Sheets("synthese stats").Range("G1").Value
Tablo(7) = Sheets("synthese stats").Range("H1").Value
Tablo(8) = Sheets("synthese stats").Range("I1").Value
Tablo(9) = Sheets("synthese stats").Range("J1").Value
Tablo(10) = Sheets("synthese stats").Range("K1").Value
Tablo(11) = Sheets("synthese stats").Range("L1").Value
Tablo(12) = Sheets("synthese stats").Range("M1").Value
Tablo(13) = Sheets("synthese stats").Range("O1").Value
Tablo(14) = Sheets("synthese stats").Range("P1").Value
Tablo(15) = Sheets("synthese stats").Range("R1").Value
Tablo(16) = Sheets("synthese stats").Range("T1").Value
Tablo(17) = Sheets("synthese stats").Range("U1").Value
Tablo(18) = Sheets("synthese stats").Range("V1").Value
Tablo(19) = Sheets("synthese stats").Range("W1").Value
Tablo(20) = Sheets("synthese stats").Range("X1").Value
Tablo(21) = Sheets("synthese stats").Range("Y1").Value
Tablo(22) = Sheets("synthese stats").Range("Z1").Value

Derlign = Sheets("Recap").Range("A65536").End(xlUp).Row
Sheets("Recap").Range("A" & Derlign + 1 & ":W" & Derlign + 1) = Tablo

End Sub

 

[Guest]

Re : Archivage

Avec ceci eventuellement:

Sub MAcro2()

Dim t, Derlign As Long, Ligne1 As Long, ligne2 As Long, i As Long
    
    rep = InputBox("Entrez le n° de la première ligne à archiver")
    If IsNumeric(rep) Then Ligne1 = rep

    rep = InputBox("Entrez le n° de la dernière ligne à archiver")
    If IsNumeric(rep) Then ligne2 = rep

    If Ligne1 >= 1 And ligne2 > 1 Then
        For i = Ligne1 To ligne2
            Ligne = Ligne
            t = Sheets("synthese stats").Range("A" & i & ":Z" & i)
            
            Derlign = Sheets("Recap").Range("A65536").End(xlUp).Row
            Sheets("Recap").Range("A" & Derlign + 1 & ":W" & Derlign + 1) = t
        Next i
    End If
End Sub

A bientôt

 

[philmar]

Re : Archivage

Bonujour,

merci pour votre réponse si rapide,
juste un détail, ce n'est pas la ligne entière que je veux archiver mais certaines cellule (A1 B1 C1 D1 mais pas F1 pour la ligne 1 par exemple). Je vais essayer de faire un mix des deux marcos 🙂

Bien cordialement

Philippe