xltoright

[guimi]

bonjour à tous,

chaque fin de semaine je voudrais exécuter une routine qui recopie une stat sur feuil2, range('D5'). Puis la deuxième semaine en E5 et ainsi de suite, F5; G5...
Ma macro ne fonctionne que si mes deux premières cellules D5 et E5 sont déjà complétées. Bizarrre ??
Ma macro à problème :
'activecell.copy
range ('D5').select
range('D5').end(xltoright).offset(0,1).select
activesheet.paste '
Je vous remerecie de votre aide.
Bonne aprés-midi à tous.

 

[ERIC S]

Bonjour

prends le pb à l'envers : détecter la cellule écrite la plus à droite en utilisant

range('IV5').end(xltoleft).offset(0,1).select

A+

 

[pierrejean]

bonjour guimi
Salut ERIC S

@ guimi

teste

Sub test()
If Not IsEmpty(Range('E5')) Then
ActiveCell.Copy Destination:=Range('D5').End(xlToRight).Offset(0, 1)
Else
ActiveCell.Copy Destination:=Range('E5')
End If
End Sub

cela devrait fonctionner en toute circonstance

 

[guimi]

Merci Pierrejean et ERICS

quelle expertise ! Ce forum est super et les pro qui acceptent d'aider les débutants sont trés sympa.
Merci encore et à bientot