Discussion :

[XHY65]

petite explication du if

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'tu selectionne B1
Range("B1").Select 
 
'si rien B1 tu colle
If ActiveCell.Value = "" Then 
  ActiveSheet.Paste 
Else 
 
'si quelque chose en B1 
'tu va en bas des données, tu descend de 1 et tu colle
Selection.End(xlDown).Select 
ActiveCell.Offset(1, 0).Select 
ActiveSheet.Paste 
End If

cordialement

XHY65

[fab101]

merci ca marche


merci beaucoups