COPIER CELLULES FEUIL.1 SUR 1ère LIGNE VIDE FEUIL.2

[ELSONCe]

Bonjour à tous,

Je souhaite mener à bien un projet très simple pour le commun des excelliens mais qui reste un grand mystère pour moi petit novice. 🙂 Voici donc ce que je veux :

1 ) Copier les données contenues dans les cellules ( uniquement pas le format ni la police... ) de la feuille 1 pour les coller sur la 1ère ligne vide dans un tableau sur la feuille 2. ( cf. document ci-joint )

2 ) La feuille 2 doit impérativement tout sauvegarder.

3 ) J'ai bien trouver une formule qui réponds partiellement à ma demande que voici :

Sub SAV()
Sheets(1).Cells(4, 2).Copy Sheets(3).Cells(65535, 1).End(xlUp)(2)
Sheets(1).Cells(7, 2).Copy Sheets(3).Cells(65535, 2).End(xlUp)(2)
Sheets(1).Cells(21, 1).Copy Sheets(3).Cells(65535, 7).End(xlUp)(2)
Sheets(1).Cells(3, 4).Copy Sheets(3).Cells(65535, 5).End(xlUp)(2)
Sheets(1).Cells(5, 3).Copy Sheets(3).Cells(65535, 4).End(xlUp)(2)
Sheets(1).Cells(9, 3).Copy Sheets(3).Cells(65535, 3).End(xlUp)(2)
Sheets(1).Cells(22, 8).Copy Sheets(3).Cells(65535, 9).End(xlUp)(2)
Sheets(1).Cells(23, 6).Copy Sheets(3).Cells(65535, 6).End(xlUp)(2)
End Sub

Mais avec les inconvénients suivants :

a ) copie de la police, la couleur et du format ( différents sur feuille 1 & 2 )
b ) la date étant une formule ( =aujourd'hui ), la date change tous les jours sur la feuille 2

Dans l'attente de vos réponses.

Un grand merci par avance !!!

Cordialement

 

[Dranreb]

Re : COPIER CELLULES FEUIL.1 SUR 1ère LIGNE VIDE FEUIL.2

Bonjour
Changez toutes vos instructions de la forme Rgsourc.Copy RgCible
par RgCible.Value = RgSource.Value
Cordialement

 

[Efgé]

Re : COPIER CELLULES FEUIL.1 SUR 1ère LIGNE VIDE FEUIL.2

Bonjour ELSONCe , Dranreb
Comme je l'ai préparé, je le poste:

Sub SAV_2()
Set F1 = Sheets(1)
With Sheets(3)
    .Cells(Rows.Count, 1).End(xlUp) = F1.Cells(4, 2).Value
    .Cells(Rows.Count, 2).End(xlUp) = F1.Cells(7, 2).Value
    .Cells(Rows.Count, 3).End(xlUp) = F1.Cells(9, 3).Value
    .Cells(Rows.Count, 4).End(xlUp) = F1.Cells(5, 3).Value
    .Cells(Rows.Count, 5).End(xlUp) = F1.Cells(3, 4).Value
    .Cells(Rows.Count, 6).End(xlUp) = F1.Cells(23, 6).Value
    .Cells(Rows.Count, 7).End(xlUp) = F1.Cells(21, 1).Value
    .Cells(Rows.Count, 9).End(xlUp) = F1.Cells(22, 8).Value
End With
End Sub

Ou

Sub SAV_3()
ListeLigne = Array("", 4, 7, 9, 5, 3, 23, 21, "", 22)
ListeCol = Array("", 2, 2, 3, 3, 4, 6, 1, "", 8)
Set F1 = Sheets(1)
With Sheets(3)
For i = 1 To 9
    If i <> 8 Then
        .Cells(Rows.Count, i).End(xlUp)(2) = F1.Cells(ListeLigne(i), ListeCol(i)).Value
    End If
Next i
End With
End Sub

Cordialement

 

[ELSONCe]

Re : COPIER CELLULES FEUIL.1 SUR 1ère LIGNE VIDE FEUIL.2

Que dire face à tant de réactivité et de compétences !!!!!!!!!!!! UN GRAND MERCI !!! J'ai choisi l'option 1 de la proposition d'Efgé en y ajoutant (2) après (xlUp) afin d'aller à la 1ère ligne vide et cela fonctionne merveilleusement bien. Que du bonheur !!

J'espère pouvoir renvoyer l'ascenseur un jour...

Cordialement