Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transfert Données d'une Feuil dans une autre suivant date,fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion MuscatMimi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

MuscatMimi

XLDnaute Accro
Bonjour a tout le Forum

dans le fichier joint,j'ai une Macro qui me copy une ,ou plusieurs lignes de la Feuille Echeancier,dans Chaque une des Feuill Janvier,Février,Mars etc,suivant la Date Col B de la feuil Echeancier

En fait, ça ne me copy que la prémiére ligne ici (B2) 08/04/2011,et si j'ai dans la Col B
d'autres Date au 08/04/2011 ça ne me les copy pas
Comprends pas

Voici la Macro pour Avril

Sub TranfertAvril()
Dim Cell As Range, DerLi As Long
Sheets("Echeancier").Activate
'
For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row)
If Cell <= Date And Cell.Offset(, 5) = "" Then

Cell.Offset(, 5) = "X"
With Sheets("Avril")
On Error Resume Next
DerLi = .Range("A65536").End(xlUp).Row + 1
Range("A" & Cell.Row & ":" & "F" & Cell.Row).Copy .Range("A" & DerLi & ":F" & DerLi)
End With
End If
Next
End Sub

Merci a l'avance de votre aide


Cordialement
 

Pièces jointes

Trier par date Trier par votes
Re : Transfert Données d'une Feuil dans une autre suivant date,fonctionne pas

Bonjour,

dans ta macro ne nomme pas une variable cell, je pense que ça peut prêter à confusion pour VBA. Ensuite quand on regarde, tu devrais peut-être passer par des formules simples. Je ne suis pas sûr d'avoir compris exactement ce que tu cherches à faire dans ton fichier tu devrais nous mettre le résultat que tu souhaites dans ton fichier à l'endroit que tu veux.
 
Vote positif 0 Vote négatif
Re : Transfert Données d'une Feuil dans une autre suivant date,fonctionne pas

Bonjour supercrapaud(pas mal ton pseudo)

Je trouvé d'ou viens le soucis,
Dans mon Usf AjoutEcheance,Mon DTPicker, n'était pas au format dd/mm/yyyy
pour ma Validation dans la feuille Echeancier

ce qui avait pour but de me valider dans ma Colonne B,feuille Echeancier
la date sous forme de dd/mm/yyyy hh:mm:ss
et c'est pour cela que ça ne me copiait que la premiére ligne
dans ma feuille au Nom de chaque Mois,Avril,Mai, etc

Solution trouvée ouf

Merci de ta contribution

a bientôt
 
Vote positif 0 Vote négatif
Re : Transfert Données d'une Feuil dans une autre suivant date,fonctionne pas

Bonsoir Christian,
pourrais-tu essayer d'utiliser les balises de code pour rendre la lecture de tes codes plus sympathique
merci d'avance
Papou🙂
 
Vote positif 0 Vote négatif
Re : Transfert Données d'une Feuil dans une autre suivant date,fonctionne pas

Bonjour Paritec

je croyais que cette fonction, ne fonctionnait plus
milles excuses
tiens je vais essayer
Code: 
[COLOR=BLUE]Sub[/COLOR] HorizontalScroll()
  [COLOR=BLUE]For Each[/COLOR] C [COLOR=BLUE]In[/COLOR] ActiveSheet.Comments
    C.Visible = [COLOR=BLUE]True[/COLOR]
    C.Shape.Select
    Selection.ShapeRange.AutoShapeType = msoShapeHorizontalScroll
  [COLOR=BLUE]Next[/COLOR] C
[COLOR=BLUE]End Sub[/COLOR]
 
Vote positif 0 Vote négatif
Re : Transfert Données d'une Feuil dans une autre suivant date,fonctionne pas

Re Bonjour

Me revoila, avec un autre soucis

Dans un Module il y a cette Macro
Code: 
Sub TranfertJanvier()
'-- Copie Données suivant Date Feuil Col C dans Feuil2
Dim Cell As Range, DerLi As Long
 Sheets("Echeancier").Activate

    For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row)
      If Cell <= Date And Cell.Offset(, 5) = "" Then
    
       Cell.Offset(, 5) = "X"
       'Cell.Offset(, -2) = "P"
        With Sheets("Janvier")
       On Error Resume Next
         DerLi = .Range("A65536").End(xlUp).Row + 1
          Range("A" & Cell.Row & ":" & "F" & Cell.Row).Copy .Range("A" & DerLi & ":F" & DerLi)
         End With
      End If
      Next
      End Sub

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

    For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row)
      If Cell <= Date And Cell.Offset(, 5) = "" Then
    
       Cell.Offset(, 5) = "X"
       'Cell.Offset(, -2) = "P"
        With Sheets("Fevrier")
       On Error Resume Next
         DerLi = .Range("A65536").End(xlUp).Row + 1
          Range("A" & Cell.Row & ":" & "F" & Cell.Row).Copy .Range("A" & DerLi & ":F" & DerLi)
         End With
      End If
      Next
      End Sub

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

    For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row)
      If Cell <= Date And Cell.Offset(, 5) = "" Then
    
       Cell.Offset(, 5) = "X"
       'Cell.Offset(, -2) = "P"
        With Sheets("Mars")
       On Error Resume Next
         DerLi = .Range("A65536").End(xlUp).Row + 1
          Range("A" & Cell.Row & ":" & "F" & Cell.Row).Copy .Range("A" & DerLi & ":F" & DerLi)
         End With
      End If
      Next
      End Sub

Sub TranfertAvril()
'-- Copie Données suivant Date Feuil Col C dans Feuil2
Dim Cell As Range, DerLi As Long
 Sheets("Echeancier").Activate
'
    For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row)
      If Cell <= Date And Cell.Offset(, 5) = "" Then
    
       Cell.Offset(, 5) = "X"
       'Cell.Offset(, -2) = "P"
        With Sheets("Avril")
       On Error Resume Next
         DerLi = .Range("A65536").End(xlUp).Row + 1
          Range("A" & Cell.Row & ":" & "F" & Cell.Row).Copy .Range("A" & DerLi & ":F" & DerLi)
         End With
      End If
      Next
      End Sub
 
Sub TranfertMai()
'-- Copie Données suivant Date Feuil Col C dans Feuil2
Dim Cell As Range, DerLi As Long
 Sheets("Echeancier").Activate

    For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row)
      If Cell <= Date And Cell.Offset(, 5) = "" Then
    
       Cell.Offset(, 5) = "X"
       'Cell.Offset(, -2) = "P"
        With Sheets("Mai")
       On Error Resume Next
         DerLi = .Range("A65536").End(xlUp).Row + 1
          Range("A" & Cell.Row & ":" & "F" & Cell.Row).Copy .Range("A" & DerLi & ":F" & DerLi)
         End With
      End If
      Next
      End Sub
      
      Sub TranfertJuin()
'-- Copie Données suivant Date Feuil Col C dans Feuil2
Dim Cell As Range, DerLi As Long
 Sheets("Echeancier").Activate

    For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row)
      If Cell <= Date And Cell.Offset(, 5) = "" Then
    
       Cell.Offset(, 5) = "X"
       'Cell.Offset(, -2) = "P"
        With Sheets("Juin")
       On Error Resume Next
         DerLi = .Range("A65536").End(xlUp).Row + 1
          Range("A" & Cell.Row & ":" & "F" & Cell.Row).Copy .Range("A" & DerLi & ":F" & DerLi)
         End With
      End If
      Next
      End Sub

dans ThisWorkBook_Open, si je met

TranfertJanvier
TranfertFevrier
TranfertMars
TranfertAvril

la Macro ci-dessus,ne ce déclenche pas

Ou est mon erreur???,la j'ai vraiment cherchez,mais pas trouvé


a plus Merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
516
Jojo973
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
686
phoceenjo
P
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
662
Usine à gaz
D
  • Question Question
Microsoft 365 Dupliquer des lignes dans une autre feuille avec une condition
2
Réponses
26
Affichages
2 K
de_hanstrapp
D
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
4 K
meyscal
M
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
992
Aldonanou
A
  • Résolu(e)
XL 2016 Récupérer les données de nom et de date VBA
2 3
Réponses
35
Affichages
3 K
Oneida
S
  • Question Question
XL 2010 Intégrer une conversion date xx en 20 xx dans macro vba excel
Réponses
9
Affichages
1 K
Deadpool_CC
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
E
  • Question Question
XL 2016 créer une feuille pour filtrer les recherches multicritères des données d'une autre feuille
Réponses
1
Affichages
627
Hasco
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
  • Résolu(e)
Microsoft 365 Code pour copier des formules dans une feuille suivant les lignes utilisées dans une colonne d'une autre feuille
Réponses
10
Affichages
1 K
luke3300
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
983
Lolote83
L
P
  • Question Question
XL 2019 Ajouter une date de fin pour un débit/crédit récurrent via VBA
2
Réponses
19
Affichages
3 K
herve62
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
A
  • Résolu(e)
Autres Mettre une alerte si la textbox n'est pas remplie
17 18 19
Réponses
280
Affichages
24 K
patricktoulon
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
S
  • Résolu(e)
XL 2016 Si doublon dans une colonne copier des valeurs sur la même ligne que la cellule recherchée
Réponses
9
Affichages
3 K
Surferdargent
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…