Regrouper des cellules en tapant le code

[bobafric]

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

 

[hoerwind]

Re : Regrouper des cellules en tapant le code

Bonjour,

B12 : =RECHERCHEV(A12;A$4:B$6;2;0)&" "&RECHERCHEV(A12;A$4:C$6;3;0)
formule à copier vers le bas.

 

[Cousinhub]

Re : Regrouper des cellules en tapant le code

Bonjour,

stricto sensu, dans la cellule B12 :

=INDEX($B$4:$B$6&" "&$C$4:$C$6;EQUIV(A12;$A$4:$A$6;0))

Maintenant, d'un classeur à un autre, faut voir....

Classeur ouvert, fermé?

Bonne journée...

 

[bobafric]

Re : Regrouper des cellules en tapant le code

Merci les gars pour votre réponse
La solution bhbh est applicable sur toutes les cellules de la feuille, c'est bien.
Il faut que j'essaie d'un classeur à un autre.
En ce moment je suis au boulot et je n'ai pas le temps, je verrai ça ce soir à 22h heure locale au sénégal soit minuit en France.
Donc à plus tard sur le même fil.
Bob

 

[bobafric]

Re : Regrouper des cellules en tapant le code

Resalut les gars, voici un code que j'ai récupéré grace a mercatog sur Developpez.com



Mettre ce code dans code de la feuille 2 sur évènement change
Code :

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.

Merci à tous à bientôt
Bob