MACRO: Copie d'une ligne dans une feuille donnée sous conditions

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

will21

XLDnaute Nouveau
Bonjour à vous,
Je me tourne vers vous, car je suis complètement débutant en MACRO.
J'ai commencé à me créer un document excel afin de suivre au plus prés possible mes comptes en banque...
Dans l'idéal, la feuille "ANNUEL" serait celle rempli au fur et à mesure avec les données.
Les feuilles suivantes nommées "Novembre", "Décembre" etc... correspondraient à la situation du compte au moment donné.
Je souhaiterai établir une macro pour que mon fichier soit capable d'effectuer un tri en me classant suivant la date la ligne dans la feuille correspondante...
Pour exemple sur la ligne 24, si M24="NOVEMBRE", copier la ligne dans la feuille "NOVEMBRE", et ainsi de suite, sans pour autant effacer les données dans la feuille "ANNUEL".
Je vous donne mon idéal, bien qu'on ne soit pas dans un monde de "bisounours", mais bon, je pense qu'ici, certaines personnes résoudrons ce problème très rapidement...
Merci à vous pour vos réponse.
 

Pièces jointes

Re : MACRO: Copie d'une ligne dans une feuille donnée sous conditions

Bonjour Will,

Voila une macro que j'ai déjà utilisé et qui est censé faire ce que tu veux:

Code:
Dim cell As Range
dim i as Integer
i = 1
For Each cell In Range("A1:A30")   'colonne ou se trouve le mois en question
  If cell.Value <> "janvier" Then
    Range("Janvier!a2").Value = cell.entirerow.Value
    i=i+1
  End If
Next cell

Essaye ca et si ca ne marche pas, tente de l'adapter en fonctiondes messages de vba
 
- 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

Réponses
3
Affichages
563
Retour