TranfertsDonnées Feuil1 vers Feuil2 Suivant Date Dans Feuil1

[MuscatMimi]

Bonjour a tout le Forum

J'ai un soucis, que je n'arrive pas a trouver

Le Code Ci-dessous fonctionnait bien avant,,
maintenant,plus rien fonctionne

Sub Tranfert()
'-- Copie Données suivant Date Feuil1 Col C, dans Feuil2
Dim Cell As Range, DerLi As Long
Sheets("Feuil1").Activate

For Each Cell In Range("C2:C" & Range("C65536").End(xlUp).Row)
If Cell <= Date And Cell.Offset(, 6) = "" Then
Cell.Offset(, 6) = "X"
With Sheets("Feuil2")
On Error Resume Next
DerLi = .Range("A65536").End(xlUp).Row + 1
Range("A" & Cell.Row & ":" & "G" & Cell.Row).Copy .Range("A" & DerLi & ":G" & DerLi)
End With
End If
Next

End Sub


merci de votre aide par avnce
Cordialement

 

[Papou-net]

Re : TranfertsDonnées Feuil1 vers Feuil2 Suivant Date Dans Feuil1

Bonjour vaucluse immo,

Je ne vois pas le problème non plus, puisque chez moi ça fonctionne parfaitement.

J'ai effacé 2 fois la coche, et j'ai obtenu 2 fois la même ligne sur la feuille 2.

Essaies toutefois en corrigeant ces 2 lignes :

If Cell <= Date And Cell.Offset(0, 6) = "" Then
Cell.Offset(0, 6) = "X"

Mais, je me répète, ça marche sans les 0 (sous XL2003).

Désolé de ne pouvoir en dire davantage.

Cordialement.

 

[stefan373]

Bonjour vaucluse immo et le forum.

C'est parce que la colonne A ne ce remplit pas par un P et comme la cellule est vide, la ligne est à chaque fois remplacée par la nouvelle.
Donc il faut procéder de la même facon qu'avec le X de la collone I soit cellule active C et offset 6 sur feuil1.

A +

 

[stefan373]

Re.

Si j'ai bien compris, voici le code modifié.

Dim Cell As Range, DerLi As Long
 Sheets("Feuil1").Activate

    For Each Cell In Range("C2:C" & Range("C65536").End(xlUp).Row)
      If Cell <= Date And Cell.Offset(, 6) = "" Then
        Cell.Offset(, 6) = "X"
        With Sheets("Feuil2")
        On Error Resume Next
                  Cell.Offset(, -2) = "P"

          DerLi = .Range("A65536").End(xlUp).Row + 1
          Range("A" & Cell.Row & ":" & "G" & Cell.Row).Copy .Range("A" & DerLi & ":G" & DerLi)
         End With
      End If
      Next

A +

 

[MuscatMimi]

Re : Re: TranfertsDonnées Feuil1 vers Feuil2 Suivant Date Dans Feuil1

Bonjour papou-net et stéphan

Bon c'est ok, ça a l'air de fonctionner

je continu, mes essai, et cela ne va pas je reviens vers vous

Merci a tout les deux

Cordialement

 

[MuscatMimi]

Re : Re: TranfertsDonnées Feuil1 vers Feuil2 Suivant Date Dans Feuil1

Bonjour a tous

Me voici de retour avec une autre idée

Avec cette même version de code,
si j'ajoute une Colonne "MOIS" au début de la "Feuil1"
est ce possible de prendre le critére "MOIS"
afin de copier la ligne dans la Feuil du nom du "Mois"?
Voir Fichier joint

Merci
Cordialement