Copier 2 cellules vers une seule avec macro

[ELSONCe]

Bonjour à tout le forum,

J'ai réalisé une macro qui fonctionne à merveille, mais plus on fait plus on en veut. Voici ma demande :

Dans l'hypothèse où la cellule C24 est renseignée en plus de la cellule C23 ( qui elle l'est toujours ), je souhaiterais que C24 vienne s'insérer dans mon tableau en feuille 3 dans la même 1ère cellule vide que C23...

Vous trouverez ci-joints tableaux concernés pour info et ci-dessous ma macro existante :

Sub SAV_2()
Application.StatusBar = "Transfert vers SUIVI SAV...PENSEZ A RENSEIGNER LE N° DU BON DE REPRISE"
Set F1 = Sheets(1)
With Sheets(3)
.Cells(Rows.Count, 1).End(xlUp)(2) = F1.Cells(4, 2).Value
.Cells(Rows.Count, 2).End(xlUp)(2) = F1.Cells(5, 2).Value
.Cells(Rows.Count, 3).End(xlUp)(2) = F1.Cells(9, 3).Value
.Cells(Rows.Count, 4).End(xlUp)(2) = F1.Cells(7, 3).Value
.Cells(Rows.Count, 5).End(xlUp)(2) = F1.Cells(3, 4).Value
.Cells(Rows.Count, 6).End(xlUp)(2) = F1.Cells(25, 3).Value
.Cells(Rows.Count, 7).End(xlUp)(2) = F1.Cells(27, 3).Value
.Cells(Rows.Count, 8).End(xlUp)(2) = F1.Cells(23, 3).Value
.Cells(Rows.Count, 10).End(xlUp)(2) = F1.Cells(26, 8).Value
.Cells(Rows.Count, 11).End(xlUp)(2) = F1.Cells(3, 2).Value
End With
End Sub

Espèrant avoir été assez clair dans ma demande, ce qui n'est pas toujours chose aisée

Je vous remercie par avance de toute l'attention portée à ma demande.


Cordialement

 

[phlaurent55]

Re : Copier 2 cellules vers une seule avec macro

Bonjour Elson,

si la réponse se fait attendre c'est parce qu'il serait plus facile de travailler sur un fichier Excel
ça nous permettrais au moins de faire des tests

à+
Philippe

 

[ELSONCe]

Re : Copier 2 cellules vers une seule avec macro

OK c'est chose faite...

Merci Philippe !!

 

[phlaurent55]

Re : Copier 2 cellules vers une seule avec macro

Re,

comme ceci:

.Cells(Rows.Count, 8).End(xlUp)(2) = F1.Cells(23, 3).Value & " " & F1.Cells(24, 3).Value

à+
Philippe

 

[ELSONCe]

Re : Copier 2 cellules vers une seule avec macro

Re,

comme ceci:

.Cells(Rows.Count, 8).End(xlUp)(2) = F1.Cells(23, 3).Value & " " & F1.Cells(24, 3).Value

à+
Philippe

Bonjour Philippe,

Un grand merci c'est exactement ce que je voulais. SIMPLE, RAPIDE, EFFICACE !!!

Au plaisir !

Cordialement Cédric