V Veloutine Guest 17 Juillet 2005 #1 Bonjour, J'ai un fichier excel avec une macro qui sélectionne des colonnes, mais je voudrais ajouter la fonction recherche (ctrl+f) qui s'ouvrirais automatiquement . Est-ce possible? Merci
Bonjour, J'ai un fichier excel avec une macro qui sélectionne des colonnes, mais je voudrais ajouter la fonction recherche (ctrl+f) qui s'ouvrirais automatiquement . Est-ce possible? Merci
H Hellboy XLDnaute Accro 17 Juillet 2005 #2 Bonjour Veloutine Oui, c'est possible, mais il manque tellement de détail ds ta demande. En attandant, ceci est une proposition: Private Sub Workbook_Open() Call Recherche End Sub Public Sub Recherche() Dim strFind As String strFind = InputBox('Q 'est-ce qu 'on cherche aujourd 'hui ?', 'Recherche') Cells.Find(What:=strFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate End Sub Cliquez pour agrandir... Message édité par: Hellboy, à: 17/07/2005 16:14 Vote positif 0 Vote négatif
Bonjour Veloutine Oui, c'est possible, mais il manque tellement de détail ds ta demande. En attandant, ceci est une proposition: Private Sub Workbook_Open() Call Recherche End Sub Public Sub Recherche() Dim strFind As String strFind = InputBox('Q 'est-ce qu 'on cherche aujourd 'hui ?', 'Recherche') Cells.Find(What:=strFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate End Sub Cliquez pour agrandir... Message édité par: Hellboy, à: 17/07/2005 16:14
M MichelXld XLDnaute Barbatruc 17 Juillet 2005 #3 bonjour si tu veux juste afficher la boite de dialogue , tu peux tester Sub afficherBoiteDialogue_Recherche_Remplacer() CommandBars('Edit').Controls(14).Execute End Sub sinon pour utiliser la methode Find dans une macro , tu peux par exemple regarder dans ce lien Lien supprimé tu trouveras de nombreux autres exemples dans les archives du forum bon après midi MichelXld Vote positif 0 Vote négatif
bonjour si tu veux juste afficher la boite de dialogue , tu peux tester Sub afficherBoiteDialogue_Recherche_Remplacer() CommandBars('Edit').Controls(14).Execute End Sub sinon pour utiliser la methode Find dans une macro , tu peux par exemple regarder dans ce lien Lien supprimé tu trouveras de nombreux autres exemples dans les archives du forum bon après midi MichelXld
M MichelXld XLDnaute Barbatruc 17 Juillet 2005 #4 bonjour Philippe excuses moi de ne pas t'avoir salué...nos messages se sont croisés bon apres midi MichelXld Vote positif 0 Vote négatif
bonjour Philippe excuses moi de ne pas t'avoir salué...nos messages se sont croisés bon apres midi MichelXld
H Hellboy XLDnaute Accro 17 Juillet 2005 #5 Bonjour MichelXld Même chose pour moi désolé. a+ Vote positif 0 Vote négatif