Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 02/02/2012, 18h36   #1
Invité de passage
 
Homme patrick
Inscription : septembre 2011
Messages : 7
Détails du profil
Informations personnelles :
Nom : Homme patrick
Localisation : France, Loiret (Centre)

Informations forums :
Inscription : septembre 2011
Messages : 7
Points : 3
Points : 3
Par défaut Fonction recherche améliorée ?

Bonjour,
Je voudrai grâce à un bouton faire une recherche dans un seul onglet de mon classeur Excel et que dans une colonne bien précise. J'ai des centaines de lignes et je dois faire des recherches souvent dans une seule colonne (D).
Pouvez-vous faire quelque chose pour moi. J'ai une fonction recherche mais cela recherche dans tout mon classeur et je perds plus de temps que j'en gagne. L'idéal pour moi serait une fonction comme ctrl+f mais seulement dans la colonne D et sans que je sois obligé de la sélectionné.
Je vous remercie d'avance
felixcp est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/02/2012, 21h11   #2
Membre Expert
 
Homme
Inscription : décembre 2011
Messages : 566
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : décembre 2011
Messages : 566
Points : 1 081
Points : 1 081
Bonsoir,

Citation:
Je voudrais [...] faire une recherche dans un seul onglet de mon classeur. L'idéal pour moi serait une fonction comme ctrl+f mais seulement dans la colonne D.
La fonction ci-dessous sélectionne la colonne D le temps de la recherche.
Puis revient sur la sélection courante.
Associer à cette macro la combinaison une combinaison de touche (ex :
<Control> + <Shift> + <F>) pour plus d'efficacité

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ChercheDansFeuilleXColD()
    Dim SavedSelection As Range
    Set SavedSelection = Selection
 
    With Worksheets("<nom du classeur où il faut faire la rrechetche>")
        .Activate
        .Columns("D:D").Select
    End With
 
    Application.Dialogs(xlDialogFormulaFind).Show
 
    If Not (saveSelection Is Nothing) Then
        SaveSelection.Worksheet.Activate
        SaveSelection.Select
    End If
 
End Sub
BlueMonkey est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h39.


 
 
 
 
Partenaires

Hébergement Web