Après dernière écriture de la colonne "A"

[Marc_du_78]

Bonjour le Forum,

Après avoir copier une plage de cellule, je souhaite coller les valeurs de cette plage à la suite
de la dernière écriture de la colonne 'A' mais je coince. C'est pourquoi je sollicite votre aide.

Sub ImpTot()
Dim MyLastCell As Range
Range('CA1O1').Copy
With
Set MyLastCell = .Range('a65536').End(xlUp) + 1
MyLastCell.Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub

En vous remerciant.

 

[Marc_du_78]

Le code de michel fonctionne oui c'est vrai, mais il me copie toute la plage et la colle là où il faut sauf que moi je ne désire coller que les valeurs.

 

[michel_m]

Re,

Excusez moi, problème d'ADSL comme d'hab en zone rurale;

Ci dessous rectification pour ne copier que les valeurs et non les formules:

Sub ImpTot()
Dim derlig As Long
Dim tablo As Range

derlig = Range('A65536').End(xlUp).Row
'remet en style 'normal' ( par exemple) la ligne de la dernière écriture
With Rows(derlig).Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
End With

Set tablo = Range('CA1O1')
Range(Cells(derlig + 1, 1), Cells(derlig + 1, 41)) = tablo.Value

With Rows(derlig + 1).Font
.Name = 'Times New Roman'
.FontStyle = 'Gras'
.Size = 12
End With

End Sub

Bonne soirée
MICHEL M

 

[Marc_du_78]

Bonsoir michel,
C'est le coeur rempli de joie que je viens te remercier ainsi que ta disponibilité et gentillesse. Je te souhaite une très bonne soirée.
Au plaisir.