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 :

Regrouper des cellules en tapant le code


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
    Décembre 2005
    Messages
    139
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 139
    Par défaut Regrouper des cellules en tapant le code
    Je voudrai taper le code du client colonne A pour afficher le nom et le prénom qui sont dans les colonnes B et C de manière que le Nom et le Prénom soit dans la même cellule
    EXEMPLE voir fichier joint
    Merci d’avance Bob

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Donner un fichier dès le départ sans beaucoup d'explications, tu risques de ne rien obtenir.
    à déchiffrer ton message

    quand tu "tapes" le code à l'aide de Find on va chercher la ligne correspondante
    concaténer le nom et prénom sera une formalité

    Mets ce code dans code de la feuille 2 sur évènement change
    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
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim plage As Range, cel As Range
    Dim LastLig As Long
     
    If Target.Column <> 1 And Target.Count > 1 Then Exit Sub
     
    LastLig = Sheets("Feuil1").Range("A65536").End(xlUp).Row
    Set plage = Sheets("Feuil1").Range("A4:A" & LastLig)
     
    Set cel = plage.Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
     
    If Not cel Is Nothing Then
    Target.Offset(0, 1) = cel.Offset(0, 1) & " " & cel.Offset(0, 2)
    End If
     
    End Sub
    Sur feuilles 2 tu tapes dans colonne A la code client.

  3. #3
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    TU peux aussi utiliser une formule a la place du VBA

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =RECHERCHEV($A15;$A$4:$B$6;2;0) & " " & RECHERCHEV($A15;$A$4:$C$6;3;0)

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    139
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 139
    Par défaut
    Salut mercatog
    Super ton code, je vais essayer de l'appliquer d'un classeur à un autre.
    Mais c'est pour plus tard, car je suis au boulot et je ne pourrai pianoter qu'à partir de 22h GMT ( je suis au Sénégal) soit minuit en france.
    Alors merci et à plus Bob

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

Discussions similaires

  1. Regrouper des cellules en tapant le code Suite
    Par bobafric dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 16/05/2010, 15h22
  2. [Toutes versions] Recopier et regrouper des cellules en fonction de la couleur de leur fonte
    Par MOLIERE30 dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 20/10/2009, 22h23
  3. regrouper des cellules
    Par mavean dans le forum Excel
    Réponses: 2
    Dernier message: 06/03/2009, 13h06
  4. Peut-on regrouper des feuilles Excel contenant du code VBA ??
    Par souheil59 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/11/2008, 11h43
  5. regrouper des cellules
    Par piero43 dans le forum Excel
    Réponses: 3
    Dernier message: 28/05/2008, 12h51

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