Moteur de recherche - beta 1

Commenter

Contenu du snippet

Salut !

Je débute complètement dans la programmation VBA, et je viens de me préparer un outil qui pourrait peut-être servir aux débutants comme moi.

C'est tout bète, c'est un programme qui va déplacer le curseur Excel sur la case contenant la valeur que l'on aura inscrite dans un InputBox...

Oui, c'est un tout petit module de recherche, mais qui peut être utile pour automatiser une requète (Ex: rechercher "18", puis faire un calcul avec cette valeur...)

Source / Exemple : 


Private Sub CommandButton1_Click()
   Dim recherche As String
   On Error GoTo erreur
   
recherche = Application.InputBox(Prompt:="Tapez votre recherche, puis cliquez sur Ok.   Le curseur se déplacera alors sur votre requète", Title:="Recherche", Default:="Tapez votre recherche", Type:=2)

    Cells.Find(What:=recherche, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate

GoTo Fin
erreur:
MsgBox "Vous devez saisir une recherche"
Fin:
End Sub

Conclusion :


Enfin voila, c'est un truc de débutant, pour les débutants, alors c'est pas utile de me dire "Ca sert à rien c'est nul", oui, ca n'a rien de spectaculaire, mais ca peut servir aux NB comme moi...

Par contre, si vous avez mieu, montrez votre code !

PS: Cette version est une micro base, il est évident qu'il y a des dizaines de fonctionnalitées à ajouter...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.