Transfère de données par rapport à la date

  • Initiateur de la discussion Initiateur de la discussion kinder972
  • 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 !

K

kinder972

Guest
Bonjour,

Etant novice, j'aimerais avoir votre aide .

J’aimerais pouvoir transférer automatiquement ou à l'aide d'un bouton toute la ligne de la feuille 1 de A à AQ sur feuille 2 en fonction de la date d'entrée en colonne Z . C'est à dire que si la date d'entrée en colonne Z est dépassée de 6 mois alors toute la ligne de A à AQ en envoyé sur la feuille 2.

Merci par avance pour votre aide.

Un exemple du tableau :
 

Pièces jointes

Re : Transfère de données par rapport à la date

bonjour
Tu peux mettre cette procédure dans un nouveau module
à l'ouverture il regardera toutes ligne et transférera les données de la feuille1 à la 2
Sub auto_open()
With Sheets(1)
lignefin = .Columns(26).End(xlDown).Row
Set zone = .Range(Cells(2, 26), .Cells(lignefin, 26))
zone.Select
For Each i In zone
If Date > DateAdd("m", 6, i) Then
i.EntireRow.Cut (Sheets(2).Rows(1))
Sheets(2).Range("a1").EntireRow.Insert

End If
Next
 
Re : Transfère de données par rapport à la date

Re
Comment ca marche VBA?
Je te conseil de chercher sur internet plein de sites existent et beaucoup des intervenants de ce forum ont des sites extrèmement complets..
Mais le VBA tout commence:
Onglet développeur/visual basic/insertion d'un nouveau module et là tu colle le code et tu cherche à comprendre.
Tout est possible ou presque, mais pas sans efforts.
Un exemple avec ton fichier joint
teste et teste encore.....
 

Pièces jointes

- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
16
Affichages
596
Réponses
6
Affichages
345
Retour