boucler sur plusieurs feuilles

[lio62]

Bonsoir

avec ce code je n'arrive pas a boucler sur la feuille "CONTROLE3".
dés que la colonne 8 de la feuille controle1 est atteinte il va bien sur la feuille controle2 mais dés que la colonne 8 de la feuille 2 est atteinte il ne passe pas en feuille controle3, il écrase la 2eme puis 3eme colonne et ainsi de suite de la feuillle controle2

si quelqu'un pouvez m'aider merci a+

Worksheets("bd").Select
ladate = [am1]
With Sheets("bd")
     Set LaPlage = .Range("b:b")
End With
i = IndFeuil  '***Permet de définir la feuille originelle pour le début de la saisie
Sheets("CONTROLES" & i).Select
   b = 1
For Each cell In LaPlage
If cell.Value >= ladate Then
     cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy              '
  
     b = b + 1
     Cells(2, b + 1).PasteSpecial Paste:=xlValues, Transpose:=True
End If
If b = 8 Then
     Sheets("CONTROLES" & i + 1).Select
     Range("b2").Select
     b = 1
     b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
End If
Next

 

[lio62]

Re : boucler sur plusieurs feuilles

RE BONJOUR

J'ai encore un pb avec mon code il ne tient pas compte des conditions pour extraires les dates
si je lui demande une date > au 24/03/2007 dans la base de données il va chercher la première date rencontéres sur la 1ere ligne de la base meme si elle est inférieure ensuite il prend les bonnes dates et termine par la première date rencontrée et qui est inférieure a la demande

merci a+

 

[Pierrot93]

Re : boucler sur plusieurs feuilles

Re Lio

si c'est la ligne de code ci dessous qui pose problème :

If cell.Value >= ladate Then

même punition, essaye comme ci dessous :

If cell.Value >= CDate(ladate) Then

bon après midi
@+

 

[lio62]

Re : boucler sur plusieurs feuilles

merci pierrot j'ai testé
mais l'erreur ne vient pas de là
dommage que tu n'ai pas winrar


merci a+

 

[Pierrot93]

Re : boucler sur plusieurs feuilles

Re

mets peut être la ligne de code incriminée, car je ne peux toujours pas ouvrir ton fichier, je ne suis peut être pas le seul dans ce cas.

@+

 

[lio62]

Re : boucler sur plusieurs feuilles

lorsque je mets la fenetre execution j'ai bien la bonne date entourée de #
mais je me demande si ce n'est pas ma ligne de copie, si je mets
cell.entirerow.copy, il ne recopie rien par contre si je mets la 2eme c'esta dire que je veux qu'il ne prenne la ligne trouve que de la colonne A à X
i = 1
b = 1
Windows("CONTROLES.xls").Activate
For Each cell In LaPlage

If cell.Value >= CDate(ladate) Then
      
Sheets("CONTROLES" & i).Select
  [COLOR="Red"]'cell.EntireRow.Copy

     cell.EntireRow.Offset(0, 0).Range("a2:x2").Copy              '
    [/COLOR]    
 b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
End If
If b > 8 Then
i = i + 1
 

     Sheets("CONTROLES" & i).Select
     Range("b2").Select
     b = 1
     b = b + 1
     Cells(2, b).PasteSpecial Paste:=xlValues, Transpose:=True
     
    
End If

Next
'mailavecoeclasseur
'envoi_email



          
        
   Unload saisie

   saisie.Hide
   




End Sub

merci a+