bonjour,
j'ai dans un fichier Excel une feuille "BD" ou il y a une colonne 'B' avec des dates et en fonction d'uun choix par rapport à une date, je voudrai qu'il me Transpose ces données dans 3 feuilles appelées controles 1, 2 et 3
j'ai 2 soucis avec ce code
1) il ne tient absolument pas compte de la date il recopie ligne par ligne les informations de la feuille "bd"
2) je n'arrive pas a boucler sur la 3eme feuille, c'est a dire des qu'il arrive sur la colonne 8 dune feuille "controles" , je voudrai qu'il passe a la feuille suivante.
Worksheets("bd" ).Select
ladate = [am1]
Set LaPlage = ActiveSheet.Range("b:b" )
Sheets("CONTROLES1" ).Select
For Each cell In LaPlage
If cell.Value >= ladate Then
cell.EntireRow.Offset(0, 0).Range("a2:x2" ).Copy
b = 1
b = b + 1
Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
End If
If z = 8 Then
Sheets("CONTROLES2" ).Select
z = z + 1
Cells(2, z - 7).PasteSpecial Paste:=xlValues, Transpose:=True
End If
Next
Unload saisie
saisie.Hide
End Sub
merci a+
