bonsoir,

j'ai un userform, appelé saisie, dedans j'ai dans la colonne B des dates et je voudrais extraire des dates à partir d'un critère >= et ensuite sélectionner la ligne de la colonne A a la colonne G et les recopier dans une autre feuille "controle1" en les transposant de la colonne(en partant de la 2ème ligne) B à H .

j'ai un bout de code mais ca ne recopie rien ou tjrs la meme chose et je suis coincé pour la suite.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
noligne = Range("b1").End(xlDown).Row 
dim ladate as date
ladate = [am4]
For Each cell In Range("b:b")
If cell.Value >= ladate Then
 
  ActiveCell.EntireRow.Copy
   Sheets("feuil1").Select
   For z = 2 To 8
   Selection.PasteSpecial Paste:=xlPasteAll, _
  Transpose:=True
merci a+