Copier cellule avec selection

Bonjour à tous,

Etant peu familier au developpement VBA, je m'en remet aux experts =).

Je sais qu'il existe bon nombre de topic a ce sujet, mais je n'ai pas trouver mon cas ...

Je vais tenter de m'exprimer au mieux :

J'ai un tableau qui se remplit au fur et a mesure par differente personne.

A chaque intervention, la personne rempli une (ou plusieurs) ligne, et dans cette (ces) ligne j'ai besoin de copier certaines cellules

Par exemple : Feuille A / ligne 1 / cellule C1 / D1 / E1

a copier dans

Feuille B / ligne 13 / cellule C13 / D13 / E13

Sauf que j'aimerai une marco (userform?) qui me permette de choisir dynamiquement quelle ligne copier (1a1 ou 1aX)

D'avance je vous remercie pour vos lumieres =)

Bonne journée

Il est vrai qu'avec le fichier c'est encore mieux =)

Mes excuses

3test.xlsx (83.15 Ko)

Hello

J'ai trouvé un bout de code qui correspond a mes attentes et que j'ai un peu amélioré, alors je partage :

Private Sub CommandButton1_Click()

    Dim Plage As Range, position As Range

    On Error GoTo SORTIE
    Worksheets("FeuilleA").Activate
    Set Plage = Application.InputBox("Sélectionne une plage à copier! (de Cxx à Kxx)", "COPIE", Type:=8)
    Worksheets("FeuilleB").Activate
    Set position = Application.InputBox("Sélectionne la cellule où copier les données !", "COLLE", "=$B$13", Type:=8)
    Plage.Copy
    position.PasteSpecial xlPasteValues
    MsgBox "Copie terminé", vbInformation, "FIN"
SORTIE:

End Sub
Rechercher des sujets similaires à "copier selection"