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 :

Recherche verticale pour reconduire un commentaire


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Homme Profil pro
    technicien
    Inscrit en
    Octobre 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : technicien
    Secteur : Service public

    Informations forums :
    Inscription : Octobre 2012
    Messages : 5
    Par défaut Recherche verticale pour reconduire un commentaire
    Bonjour à tous,

    Je sèche pour réaliser une fonction particulière...alors je fais appel à vos services en espérant que quelqu'un puisse m'apporter une solution.

    Voici ce que je désire faire :

    - J'ai une colonne B qui contient des numéros de dossiers
    - J'ai une colonne A dans laquelle j'insère manuellement des commentaires.

    Lorsque je fais une mise à jour de mon fichier, certaines affaires nouvellement ajoutées existaient déjà dans mon fichier. J'aimerais qu'automatiquement les commentaires existant viennent se rajouter dans la colonne appropriée.

    Fichier Avant MAJ

    Blablabla 4653435
    Bliblibli 6439473
    Blublublu 8734345

    Fichier Après MAJ

    Blablabla 4653435
    Bliblibli 6439473
    Blublublu 8734345
    4653435
    6439473
    8734345


    Après exécution macro

    Blablabla 4653435
    Bliblibli 6439473
    Blublublu 8734345
    Blablabla 4653435
    Bliblibli 6439473
    Blublublu 8734345


    Si quelqu'un à une idée...

    Merci d'avance

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonsoir,

    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
    23
    24
    Sub test3()
        Dim Plage As Range, C As Range
        With Sheets("Feuil1")
            Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
            For Each C In Plage
                If C.Offset(, 1) = "" Then
                    C.Offset(, 1) = C.Value
                    C = ""
                End If
            Next C
            .[C:C].Insert
            Plage.Offset(, 2).Formula = "=ROW()"
            Plage.Offset(, 2).Value = Plage.Offset(, 2).Value
            Plage.Resize(, 3).Sort .[A1], xlDescending, Header:=xlNo
            Plage.Resize(, 3).Sort .[B1], xlAscending, Header:=xlNo
            For Each C In Plage
                If C.Value <> "" And C.Offset(, 1).Value = C.Offset(1, 1).Value Then
                    C.Offset(1) = C
                End If
            Next C
            Plage.Resize(, 3).Sort .[C1], xlAscending, .[C1], Header:=xlNo
            .[C:C].Delete
        End With
    End Sub

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    technicien
    Inscrit en
    Octobre 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : technicien
    Secteur : Service public

    Informations forums :
    Inscription : Octobre 2012
    Messages : 5
    Par défaut
    Super ca fonctionne. Un grand merci.

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

Discussions similaires

  1. [XL-2010] Macro ou Formule pour une recherche verticale avec condition
    Par Orsaylg dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 15/09/2010, 13h22
  2. Réponses: 8
    Dernier message: 05/10/2004, 00h02
  3. Recherche librairies pour les images
    Par mathieu_t dans le forum Bibliothèques
    Réponses: 3
    Dernier message: 16/08/2004, 21h14
  4. Recherche ibrairie pour éxécuter des requêtes SQL via C++
    Par daemon dans le forum Choisir un environnement de développement
    Réponses: 5
    Dernier message: 14/06/2004, 10h28
  5. [Choix de langage] recherche language pour projet precis
    Par Boudiou dans le forum Langages de programmation
    Réponses: 6
    Dernier message: 29/05/2004, 20h00

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