copier des valeurs

[Titi]

Bonjour le forum.

un petit problème, je voudrais a l'aide d'un bouton copier des valeurs les une sous les autres par exemple:

feuil1 en colonne B des valeurs en b3 b4 ect

je voudrais les copier en feuil2 en colonne A mais en dessous celle qui y sont déjà

en clair je voudrais pouvoir effacer les cellules colonne B feuil1 mais les conserver en feuil2 colonne A

Si vous avez la solution

Merci de votre aide

 

[JC de Lorient]

Bonjour Titi, le forum

voici un code qui te permet de faire ce transfert

j'ai d'abord nommé les cellules que je veux copier dans 'Transfert' par insertion/nom/définir

ensuite par un bouton je transfére de ma feuille active vers la feuille 'Récap'

Sub MultiCellCopy()
Dim PlageSource As Range, Cell As Range
Dim LastLine As Long
Dim Colonne As Byte


LastLine = Sheets('Récap').Range('A65536').End(xlUp).Row + 1
Colonne = 1

For Each Cell In Range('transfert')
With Sheets('Récap')
.Cells(LastLine, Colonne) = Cell
End With

Colonne = Colonne + 1
Next

End Sub

ensuite ce code pour effacer les celules
a toi de les modifier au besoin

Sub Effacer()
'
''
' Effacer Macro
Application.ScreenUpdating = False
Set maplage = Union(Range('E6'), Range('e8'), Range('e10'), Range('e12'), Range('e14'), _
Range('e16'), Range('e20'), Range('i6'), Range('i8'), Range('i10'), Range('i12'), Range('i14'))
maplage.Select
Selection.ClearContents
Range('e6').Select
Application.ScreenUpdating = True
End Sub

bon courage

JC

 

[ChTi160]

Salut 'Titi, JC'
bonjour le 'Forum'
une adaptation du fichier de JC merci à lui
Amicalement
Jean Marie [file name=TransfertTiti.zip size=7745]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TransfertTiti.zip[/file]

 

[Titi]

Merci a tous les deux pour votre aide, j'ai ce qu'il me faut.

Titi