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 :

Macro pour récupérer identifiant manager (n+1) et collaborateur (n) via boucle for next [XL-2010]


Sujet :

Macros et VBA Excel

  1. #21
    Expert éminent sénior
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Points : 18 677
    Points
    18 677
    Par défaut

    Oui évidemment par principes ou par restrictions d'entreprise beaucoup n'accèdent pas aux classeurs postés avec code …
    Effectivement avec le dernier classeur joint le code du post #9 fonctionne bien.

    Mon code en seulement 9 lignes et 2 variables ayant été conçu par rapport à la présentation initiale,
    Louis, il suffit de le tester avec le classeur dont tu as affiché une capture de la feuille :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
        With [A1].CurrentRegion.Rows
                [H2].Resize(.Count - 1).Formula = "=E2"
            For R& = 2 To .Count
                If .Cells(R, 2).Value > "" Then
                    V = Application.Match(.Cells(R, 2).Value, .Columns(5), 0)
                    If IsNumeric(V) Then Cells(V, 8).Formula = Cells(V, 8).Formula & "&"",""&H" & R
                End If
            Next
        End With
    Ce code prouvant « Penser Excel Avant VBA » réduit la difficulté de programmation, évitant souvent les usines à gaz !

    Le résultat étant affiché en colonne H, j'y ai évidemment laissé les formules afin de visualiser la simplicité de la logique …
    Ce même type de logique a été menée avec succès cet été un jour de pluie par un futur collégien, pas un génie pourtant !

    Il suffit d'une ligne de code supplémentaire pour remplacer les formules par le résultat …

    ___________________________________________________________________________________________________________

         Merci de cliquer sur en bas à droite de chaque message ayant aidé …
    C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)

  2. #22
    Invité
    Invité(e)
    Par défaut
    Bonjour Marc,
    très bien vue!

    je n'utilise pas souvent Excel VBA et ce genre de solution ne me vient pas directement à l'esprit!

  3. #23
    Expert éminent sénior
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Points : 18 677
    Points
    18 677
    Par défaut

    T'inquiète Robert, moi non plus car j'ai encore les réflexes de développement algorithmique !

    Convié à une présentation foireuse d'une procédure tournant plus de dix minutes,
    le demandeur pétant un câble à juste titre sur sa longueur la rendant invendable en clientèle,
    un jeune stagiaire sort « Je ne comprends pas car déjà manuellement il faut pas une minute ! »
    Après l'avoir démontré, je me suis dit qu'il était temps de considérer l'existant d'Excel
    avant d'écrire ne serait-ce la première ligne de code …
    C'est parce que la vitesse de la lumière est plus rapide que celle du son que tant de gens paressent brillants avant d'avoir l'air con ! (Thomas Boishardy)

  4. #24
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2017
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2017
    Messages : 11
    Points : 2
    Points
    2
    Par défaut
    Citation Envoyé par Marc-L Voir le message

    T'inquiète Robert, moi non plus car j'ai encore les réflexes de développement algorithmique !

    Convié à une présentation foireuse d'une procédure tournant plus de dix minutes,
    le demandeur pétant un câble à juste titre sur sa longueur la rendant invendable en clientèle,
    un jeune stagiaire sort « Je ne comprends pas car déjà manuellement il faut pas une minute ! »
    Après l'avoir démontré, je me suis dit qu'il était temps de considérer l'existant d'Excel
    avant d'écrire ne serait-ce la première ligne de code …
    Merci à vous 2.

    je n'ai pas eu le tps cette semaine de regarder le code mais j'essaye de le faire au plus vite.

    Je suis également plus sur les formules d'Excel mais sur ce cas concret, je pensais que ce serait trop compliqué.

    Bonne journée

+ Répondre à la discussion
Cette discussion est résolue.
Page 2 sur 2 PremièrePremière 12

Discussions similaires

  1. Réponses: 4
    Dernier message: 25/11/2010, 20h14
  2. [XL-2003] Macro pour récupérer les données du volet espion
    Par _cece dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 08/01/2010, 16h00
  3. macro pour récupérer le nom de la classe
    Par Elay dans le forum C++
    Réponses: 3
    Dernier message: 27/10/2009, 10h45
  4. [XL-2007] Macro pour récupérer la valeur d'une formule avec Aujourd'hui
    Par patougaffou dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 28/09/2009, 18h28
  5. Macro pour récupérer des infos du NET
    Par lps91 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/02/2009, 08h20

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