recopie

[al1000]

bonjour,

voici ma macro1:

Selection.Copy Destination:=Range("a6995").End(xlUp).Offset(1, 0)
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone


je voudrai que cette macro1 recopie la cellule à partir de a100

et (si je choisi la macro2)j'ai une 2 emme macro2 qui recopie à partir de a200

comment ecrire Destination:=Range("a6995").End(xlUp).Offset(1, 0)

a+

 

[ERIC S]

Re : recopie

Bonjour

copier une cellule seulement ?

Range("a6995").End(xlUp).Offset(1, 0).value=range("A100").value

 

[Gorfael]

Re : recopie

bonjour,

voici ma macro1:

Selection.Copy Destination:=Range("a6995").End(xlUp).Offset(1, 0)
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone


je voudrai que cette macro1 recopie la cellule à partir de a100

et (si je choisi la macro2)j'ai une 2 emme macro2 qui recopie à partir de a200

comment ecrire Destination:=Range("a6995").End(xlUp).Offset(1, 0)

a+

Salut
un peu de code

Sub test_100()
Selection.Copy Destination:=IIf(Range("A199").End(xlUp).Row >= 100, _
              Range("A199").End(xlUp).Offset(1, 0), Range("A100"))
              
End Sub
Sub test_200()
Selection.Copy Destination:=IIf(Range("A299").End(xlUp).Row >= 200, _
              Range("A299").End(xlUp).Offset(1, 0), Range("A200"))
End Sub

Par contre, c'est sans sécurité :
si c'est rempli jusqu'à 199/299, la sélection sera copiée en A101/A201
si ta sélection fait plus d'une colonne, t'en auras une partie en B, C, etc...
si la longueur de ta sélection et le début de la zone de copie font que la copie recouvre A200, il n'y a pas d'interdiction
la liberté a un prix 😛
A+

 

[al1000]

Re : recopie

bonsoir

cela marche

mais c'est vrai on peut recopier sur la liste qui est en dessous


a+