[OK] Rechercher la valeur et la copier sur 2ème onglet

funcky222 · 12 Décembre 2010

Bonjour à tous,

j'ai fouillé un peu partout sur le forum et est trouvé quelques conversation intéressante avec des début de codes, mais je n'arrive pas à m'en dépatouiller comme je veux !

Dans mon fichier, deux onglets :

1) H_CP = base de données (en gros).
2) PLANING_TEL = destination.

Je souhaite :

lorsque je tape le nom (par exemple : YY) dans les cellules de la colonne B (entre B1:B11, B30:B49, B50:B62, B71:B82 et B91:B102) de l'onglet (2) PLANING_TEL, automatiquement, excel va chercher si cette valeur existe dans l'onglet (1) - H_CPE et recopie la ligne à droite de la valeur tapée dans l'onglet (2) PLANING_TEL.

Jusqu'à maintenant mes codes ne sont pas réussis et j'arrive soit à l'un soit à l'autre soit à rien du tout !!

Je vous mets le fichier de démonstration en PJ.

Je suis preneur soit sous forme de macro, soit sous forme de formule !!

Merci pour vos idées et votre aide d'avance.

😉

P.S. : ça fait longtemps que je n'étais pas venu, mais en tout cas j'adore le "nouveau" style du forum !

kjin · 12 Décembre 2010

Re : Rechercher la valeur et la copier sur 2ème onglet

Bonjour,

funcky222 à dit:
lorsque je tape le nom (par exemple : YY) dans les cellules de la colonne B (entre B1:B11, B30:B49, B50:B62, B71:B82 et B91:B102) de l'onglet (2) PLANING_TEL, automatiquement, excel va chercher si cette valeur existe dans l'onglet (1) - H_CPE

Soit, mais où dans l'onglet ?
Il eut été préférable de mettre qq données et le résultat attendu dans le fichier !
A+
kjin

funcky222 · 12 Décembre 2010

Re : Rechercher la valeur et la copier sur 2ème onglet

Salut et merci de t'intéresser à mon problème...

J'étais tellement dans le truc que j'y ai pas pensé...

Voici un exemple illustré, j'espère que ça répond à ta question ? 😕

😉

job75 · 12 Décembre 2010

Re : Rechercher la valeur et la copier sur 2ème onglet

Bonjour funcky 222, salut kjin,

Macro à placer dans le code de la feuille PLANING_TEL :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("B11:B22,B30:B41,B50:B62,B71:B82,B91:B102"))
If Target Is Nothing Then Exit Sub
Dim plage As Range, ref As Range
Set plage = Sheets("H_CPE").Range("B4", Sheets("H_CPE").Range("B65536").End(xlUp))
Me.Unprotect 'ajouter éventuellement le mot de passe
For Each Target In Target
  Set ref = plage.Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
  If ref Is Nothing Then
    With Target.Offset(, 1).Resize(, 13)
      .ClearContents
      .Borders(xlDiagonalUp).LineStyle = xlNone
      .Borders(xlDiagonalDown).LineStyle = xlNone
    End With
  Else
    ref.Offset(, 1).Resize(, 13).Copy Target.Offset(, 1)
  End If
Next
Me.Protect
End Sub

Nota : la plage que vous avez indiquée B1:B11, B30:B49, B50:B62, B71:B82 et B91:B102 n'était pas correcte...

A+

kjin · 12 Décembre 2010

Re : Rechercher la valeur et la copier sur 2ème onglet

Re, salut Job 🙂,
Sans macro, en C11

Code:

=SI($B11<>"";INDEX(H_CPE!$C$4:$O$31;EQUIV($B11;H_CPE!$B$4:$B$31;0);COLONNE()-2);"")

Puis copier coller la formule
Il faudra revoir la MFC
A+
kjin

funcky222 · 12 Décembre 2010

Re : Rechercher la valeur et la copier sur 2ème onglet

Merci beaucoup vous deux pour votre aide,

la solution fonctionne à merveille !

A très bientôt pour d'autres questions...

Bonnes fêtes.

[OK] Rechercher la valeur et la copier sur 2ème onglet

funcky222

Guest

Pièces jointes

kjin

XLDnaute Barbatruc

funcky222

Guest

Pièces jointes

job75

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

funcky222

Guest

Discussions similaires

[OK] Rechercher la valeur et la copier sur 2ème onglet

funcky222

Guest

Pièces jointes

kjin

XLDnaute Barbatruc

funcky222

Guest

Pièces jointes

job75

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

funcky222

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency