Rechercher ma colonne

[cpeens]

Bonsoir


je recherche une solution pour rechercher un nom présent dans une colonne et qu'il me renvoie à cette ligne

j'ai essayer avec ctrl F mais il me recherche dans tous la feuil et pas uniquement dans une collone


je souhaiterais dans la mesure du possible

Selectionner un Nom et prenom dans la textbox ou combobox present dans la Feuil1

et qu'il me recherche l'emplacement dans la Feuil2

merci pour votre aide

 

[BOISGONTIER]

Re : Rechercher ma colonne

Bonsoir,

Feuil1 ne sert à rien

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each c In Range("A6", [A65000].End(xlUp))
    If c <> "" Then ComboBox1.AddItem c
  Next c
End Sub

Private Sub ComboBox1_Change()
  [A:A].Find(what:=ComboBox1).Select
End Sub

JB

 

[Robert]

Re : Rechercher ma colonne

Bonjour Cpeens, bonjour le forum,

En pièce jointe ton fichier modifié et commenté.


Édition :

Ooops bonsoir Jacques on s'est croisé

 

[cpeens]

Re : Rechercher ma colonne

Re bonjour merci pour ton aide ton code fonctionne super bien

part conte si jeveut integrer egalement le prenom ou cas ou j'aurais 2 personne de la meme famille comment doit je faire stp

merci

 

[BOISGONTIER]

Re : Rechercher ma colonne

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each c In Range("A6", [A65000].End(xlUp))
    If c <> "" Then
      ComboBox1.AddItem
      ComboBox1.List(i, 0) = c & " " & c.Offset(, 1)
      ComboBox1.List(i, 1) = c.Row
      i = i + 1
    End If
  Next c
End Sub

Private Sub ComboBox1_Change()
  On Error Resume Next
  Cells(ComboBox1.Column(1), 1).Select
End Sub

JB

 

[cpeens]

Re : Rechercher ma colonne

re bonsoir

merci pour ton code

mais j'ai une erreur quand j'essais de l'adapter à mon projet es ce que c'est parce que c'est sur un tableau croisée

il me fais erreur

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each [COLOR="Red"][B]c[/B][/COLOR] In Range("A6", [A65000].End(xlUp))
    If c <> "" Then
      ComboBox1.AddItem
      ComboBox1.List(i, 0) = c & " " & c.Offset(, 1)
      ComboBox1.List(i, 1) = c.Row
      i = i + 1
    End If
  Next c
End Sub

Private Sub ComboBox1_Change()
  On Error Resume Next
  Cells(ComboBox1.Column(1), 1).Select
End Sub

 

[cpeens]

Re : Rechercher ma colonne

Re bonsoir problème résolu c'était un soucis sur ma page

effectivement ce code fonctionne également sur un TDC

merci encore et bonne soirée

à bientôt

 

[cpeens]

Re : Rechercher ma colonne

bon et bien sa à fonctionner une fois puis meme probleme

Private Sub ComboBox1_DropButtonClick()
  ComboBox1.Clear
  For Each [COLOR="Blue"]c[/COLOR] In Range("A6", [A65000].End(xlUp))
    If c <> "" Then
      ComboBox1.AddItem
      ComboBox1.List(i, 0) = c & " " & c.Offset(, 1)
      ComboBox1.List(i, 1) = c.Row
      i = i + 1
    End If
  Next c
End Sub

Private Sub ComboBox1_Change()
  On Error Resume Next
  Cells(ComboBox1.Column(1), 1).Select
End Sub

le message d'erreur tes que je clique sur la combobox il me dit erreur compilation
projet ou bibliotheque introuvable en surlignant "c"

quelqu'un aurais une idée à savoir dés que je creer un nouveau classeur cela fonctionne

merci pour votre aide