Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro recherche

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bergeal
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bergeal

XLDnaute Nouveau
bonjour ,
voici une copie de mon repertoire telephonique
je voudrais ecrire un macro qui ferait la chose suivante
1-dans une cellule quelquonque entrer le nom de la personne à rechecher et ce dans la colonne B et ensuite qu'il m'affiche la ligne correspondante à ce nom ou ces noms (il peut y avoir plusieurs nom indentiques)sur une utre feuille excel
voici ce que j'ai ecrits mais cela ne fonctionne pas

Sub Selectcellulevaleurdonnee(m2)
modele = Range(m3).Value
plage = (b1b5600)
Range(m3).Select
For Each cellule In ActiveCell.CurrentRegion
If cellule.Value = modele Then plage = plage & cellule.adress()
Next cellule
If Len(plage) > 0 Then Range(Left(plage, Len(plage) - 1)).Select
End Sub

[file name=essai_20060404140930.zip size=18816]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060404140930.zip[/file]
 

Pièces jointes

Trier par date Trier par votes
Salut Bergeal,

Je ne suis pas sur d'avoir tout compris mais je me lance quand meme. Donc tu dis tout d'abord que le nom peut etre tapé dans n'importe quelle cellule, la deja je ne sais pas trop comment faire, j'ai donc supposé que tu ecrivais le nom a rechercher dans la cellule M2.
Ensuite, je me sert des filtres que tu as mis, et donc un simple code de ce genre fait l'affaire :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Cells(2, 13).Value = '' Then
        Selection.AutoFilter Field:=2, Criteria1:=Cells(2, 13).Value
    End If
End Sub

Si je suis complétement à coté de la plaque refais signe j'esseairai de faire mieux 😉

@+
 
Vote positif 0 Vote négatif
Re

ou plus simplement , je voudrais une macro qui me recherche tous les noms 'tartempion' dans la colonne B et m'affiches les resultats (la ligne complete trouvée)sur un endroit determine ou sur une feuille de classeur nouvelle

@+
 
Vote positif 0 Vote négatif
re,

Tu veux utiliser tes filtres pour faire ca ou pas ? Les deux choix sont possibles mais j'ai un peu la fleme de faire les deux et en plus faudrait vraiment que j'aille réviser mes partiels. :angry:

@+
 
Vote positif 0 Vote négatif
re,

Allez j'ai encore repoussé, je te propose daonc les deux solutions :
Code: 
Sub test()
Dim i As Integer, k As Integer

k = 1
nom = InputBox('rentrer un nom')
For i = 2 To Range('B65536').End(xlUp).Row
    If Cells(i, 2).Value = nom Then
        Sheets('Feuil1').Rows(k).Value = Rows(i).Value
        k = k + 1
    End If
Next i
End Sub

Code: 
Sub test_v2()
Dim i As Integer, k As Integer

nom = InputBox('rentrer un nom')
Selection.AutoFilter Field:=2, Criteria1:=nom
Range('A3').Select
i = 3
k = 1
Do While Not Cells(i, 1).Value = ''
    Sheets('Feuil1').Rows(k).Value = Rows(i).Value
    i = i + 1
    k = k + 1
Loop
End Sub

@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
441
ManuEven
M
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
672
crocrocro
C
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
945
oguruma
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
783
Usine à gaz
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
987
heart clean
H
  • Résolu(e)
XL 2019 macro conditon
2
Réponses
25
Affichages
2 K
job75
F
  • Résolu(e)
XL 2021 Souci avec une macro lors d'un changement de "statut"
Réponses
3
Affichages
685
fanou06
F
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
861
GADENSEB
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
593
tactic6
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
767
un internaute
U
F
  • Résolu(e)
XL 2021 Macro ne fonctionne plus ?
Réponses
9
Affichages
748
fanou06
F
M
  • Question Question
XL 2021 Macro protege cellule avec Intersect
Réponses
9
Affichages
881
Michel_ja
M
  • Résolu(e)
Microsoft 365 Code VBA qui renvoie une matrice à partir d'un liste à cocher au lieu d'une cellule
Réponses
5
Affichages
968
yal
Y
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
3 K
Usine à gaz
P
  • Question Question
XL 2016 Combox userform
Réponses
14
Affichages
1 K
fanfan38
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…