Modification d'une macro deja existante

Y compris Power BI, Power Query et toute autre question en lien avec Excel
e
elyora
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 21 avril 2017
Version d'Excel : 2010

Message par elyora » 7 juillet 2017, 15:43

Bonjour à tous,
Pourriez vous m'apporter votre aide mon problème n'ayant toujours pas été résolu
J'ai une macro en Vba qui permet de saisir une date et à partir de cette date isole toutes les lignes concerner dans une autre feuille Excel
Cependant je veux pas qu'elle saisisse la date je voudrais quelle saisisse un autre champs et quelle l'isole la ligne ou ce champs apparait (par exemple saisir "C4" et isoler la ligne ou apparait "C4" dans une feuille 2)
mercii
Voici le code et en pièce jointe mon fichier Excel
Sub date_6()
    Dim X As Variant
    Dim Cel As Range
    Application.ScreenUpdating = False
    X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
    If X = False Then Exit Sub
    Worksheets("feuil2").Cells.ClearContents    'efface cellules feuille
    Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
    If Not Cel Is Nothing Then
        PA = Cel.Address
        Lig = 1     'ligne de depart pour feuil2
        Do
            Cel.Interior.ColorIndex = 3
            Sheets("Feuil2").Activate
            Cel.EntireRow.Copy
            Lig = Lig + 1       '+1 pour donnee suivante
            Cells(Lig, 1).Select
            ActiveSheet.Paste
            Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel)
        Loop While Not Cel Is Nothing And Cel.Address <> PA
    End If
    Application.ScreenUpdating = True
End Sub
elyo travail2.xlsx
(15.81 Kio) Téléchargé 15 fois
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'659
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 7 juillet 2017, 15:58

bonjour

pas de VBA

un TCD et une "chronologie" à cliquer pour choisir l'année.

j'ai mis 4 colonnes de tes données, tu sauras mettre les autres ?
elyo travail2.xlsx
(26.71 Kio) Téléchargé 14 fois
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
e
elyora
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 21 avril 2017
Version d'Excel : 2010

Message par elyora » 10 juillet 2017, 10:22

Bonjour JMD
Mercii beaucoupp pour ta réponse c'est une super idée que ta eu avec le TCD malheureusement je dois automatiser la tache du coup J'ai l'obligation de le faire en VBA
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'659
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 10 juillet 2017, 13:08

re

que veux-tu "automatiser" ?
on peut ajouter une colonne de pointage pour cibler une date saisie dans une cellule en particulière de la feuille TCD si tu veux que "ça ressemble à un progiciel"

note qu'aucun progiciel n'est basé sur Excel, tous sont sous SGBD.
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
e
elyora
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 21 avril 2017
Version d'Excel : 2010

Message par elyora » 10 juillet 2017, 13:38

J'ai un fichier Excel avec pour plusieurs date plusieurs information
avec une première macro je saisi la date et il me sélectionne toutes les lignes concerner pour me les mètre a part dans une autre feuille du classeur
Maintenant a partir de ces lignes isoler je voudrais une autre macro qui permet de saisir le champs d'une cellule (exemple : France) et on m'isole a nouveau sur une autre feuille du classeur toutes les lignes qui contiennent le mot "France"
dans mon fichier a moi c pas France que je veux isoler mais le champs "c4"
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'659
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 10 juillet 2017, 20:14

re

avec Excel, à la différence du papier où on recopie d'une feuille à l'autre, on ne recopie pas d'une feuille à l'autre.

une méthode consiste à rester sur la feuille de saisie et de filtrer. Tout simplement.

l'autre est celle de mon message d'avant : une colonne de pointage
regarde les feuilles 4 et 1
il suffit de saisir la date et d'actualiser le TCD (il est filtré sur la valeur 1 de la colonne de pointage)

on peut modifier la présentation
elyo travail2.xlsx
(26.3 Kio) Téléchargé 9 fois
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message