IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Extraire des valeurs sur une recherche en VBA [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    98
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 98
    Par défaut Extraire des valeurs sur une recherche en VBA
    Bonjour,

    j'ai essayé en VBA de réaliser l'extraction suivante, mais je suis trop novice en la matière pour arriver à décomposer le problème.
    je m'explique;
    Dans une feuille, je recherche toutes les cellules contenant le texte "Heure:" dans la colonne A:A
    Pour chaque cellule trouvée, je copie la valeur de la cellule adjacente à droite
    Pour les coller sur une ligne sur une autre feuille "Résultats"

    Je joins un fichier présentant l'état initial et le résultat attendu.

    Merci encore aux généreuses compétences pour vos aides
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    à tester sur une copie de ton fichier pour munir contre tous risques de perte de données :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Sub CopierSiheure()
    Dim F1 As Worksheet
    Dim F2 As Worksheet
    Set F1 = Sheets("Heure")
    Set F2 = Sheets("Résultats")
    F2.Cells.ClearContents
    F2.Cells(2, 1) = "Heure :"
    Dim derlig As Long
    L = 2
    derlig = F1.Cells(Rows.Count, 1).End(xlUp).Row
       Application.ScreenUpdating = False
        For i = 3 To derlig
          If F1.Cells(i, "A") Like "Heure:" Then
          F1.Cells(i, "B").Copy
          F2.Cells(2, L).PasteSpecial Paste:=xlPasteValues
          Application.CutCopyMode = False
          End If
          If F2.Cells(2, L) <> "" Then L = L + 1
        Next i
       Application.ScreenUpdating = true
    End Sub

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    98
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 98
    Par défaut
    Bonjour BENNASR,

    Merci pour ce code rapidement proposé

    ça marche nickel, j'ai voulu ajouté la mise au format heure, car lors du transfert les valeurs sont transmises en standard. Sauf pour les colonnes (A:G) où j'avais déjà fait la mise eu format "heure".
    Ne trouvant pas la syntaxe pour compléter la copie, j'ai de nouveau défini la cellule à modifier lors de la boucle.
    Mais ce n'est pas concluant

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    F2.Cells(2, L).NumberFormat = "[$-x-systime]h:mm:ss AM/PM"

  4. #4
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    tester
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Sub CopierSiheure()
    Dim F1 As Worksheet
    Dim F2 As Worksheet
    Set F1 = Sheets("Heure")
    Set F2 = Sheets("Résultats")
    F2.Cells.ClearContents
    F2.Cells(2, 1) = "Heure :"
    Dim derlig As Long
    L = 2
    derlig = F1.Cells(Rows.Count, 1).End(xlUp).Row
       Application.ScreenUpdating = False
        For i = 3 To derlig
          If F1.Cells(i, "A") Like "Heure:" Then
          F1.Cells(i, "B").Copy
          F2.Cells(2, L).PasteSpecial Paste:=xlPasteValues
          Application.CutCopyMode = False
          F2.Cells(2, L).NumberFormat = "[$-F400]h:mm:ss AM/PM"
          End If
          If F2.Cells(2, L) <> "" Then L = L + 1
        Next i
     
    End Sub

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    98
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 98
    Par défaut
    En fait je me suis rendu compte que j'avais placé ma ligne avant Application.CutCopyMode = False !

    Quelle différence entre ces deux formats ?
    "[$-F400]h:mm:ss AM/PM" et "[$-x-systime]h:mm:ss AM/PM" !

  6. #6
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    démarre enregistreur automatique du macro et fais l'opération manuellement
    arrete l'enregistreur et tu aura ton code

  7. #7
    Rédacteur/Modérateur


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    Novembre 2003
    Messages
    19 125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2003
    Messages : 19 125
    Billets dans le blog
    131
    Par défaut
    Salut

    Les formats entre crochets permettent de formaliser l'affichage selon une culture (une région du monde) spécifique ou générique. Comme son nom l'indique [$-x-systime] se réfère au système du pc, c'est-à-dire aux paramètres régionaux, de sorte que le résultat pourrait être différent d'un ordinateur à l'autre. [$-F400] le fera apparaître dans le format spécifique F400 quels que soient les paramètres régionaux.

    Ca permet par exemple de faire apparaître le nom du jour de la semaine en français ou dans une autre langue, indépendamment des paramètres régionaux du pc*.

    Nom : 2021-07-01_132536.png
Affichages : 122
Taille : 4,5 Ko


    Si tu n'observes pas de différences entre [$-x-systime] et [$-F400], c'est que tes paramètres régionaux (system) correspondent aux paramètres F400.

    * On notera que cette info peut être utilisée par la fonction TEXTE, puisque cette fonction utilise comme second argument toute chaine de format pouvant être spécifiée dans le format personnalisé de la cellule.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  8. #8
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    98
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 98
    Par défaut
    Bonjour Pierre,

    Merci pour ce renseignement, du coup j'ai modifié cette syntaxe pour effectivement être certain du bon fonctionnement indépendamment du format régional paramétré sur le PC.


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [MySQL] Récupération des valeurs sur une recherche multitable
    Par flozza dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 09/01/2012, 17h23
  2. [XL-2003] extraire des donnees sur une feuille
    Par louis10 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/03/2010, 21h05
  3. Pertinence des résultats sur une recherche de Tag
    Par borower dans le forum Optimisations
    Réponses: 9
    Dernier message: 14/04/2009, 23h03
  4. récupérer des valeurs sur une page web
    Par houwa dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 11/07/2008, 14h27
  5. Extraire des valeurs d'une matrice
    Par Kcyril dans le forum MATLAB
    Réponses: 4
    Dernier message: 23/04/2007, 14h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo