Recherche dans Excel à l'aide de macro VBA ou autre

Question

J'ai un fichier Excel... Le fichier a plein de sous titre, il y a des lignes vides, des 
cellules vides, des commentaires, etc.

En fait le fichier est un "planning", donc j'ai une colonne avec tous les noms des 
employ&#233;s et une ligne avec les dates... Ce que je veux c'est de pouvoir faire une 
recherche, par exemple si je cherche qui travaille sur le client ABC inc., je veux
 &#224; l'aide d'une fonction que Excel me liste la liste des employ&#233;s et la date &#224; laquelle 
il travaille pour la compagnie ABC inc.

Je ne sais pas du tout comment faire... merci de bien vouloir m'Aider

Annik

DarkCid · Answer

Yaoh !


g pas tous les d&#233;tails, mais voil&#224; comment je vois les choses :


Dim i as integer, j as integer
Dim msg as string
Dim trouver as boolean


'Je suppose que les cellules &#224; l'intersection d'un employ&#233; et d'une date commence &#224; la cellule (2,2)


msg = ""
for i = 2 to nombre_d'employ&#233; + 1
    trouver = false
    for j = 2 to nombre_jour_du_planning + 1
        if cells(i,j).value = client_recherch&#233; then
            if not trouver then
                trouver = true
                msg = msg & cells(i,1).value & chr(10) 'Le message va recevoir le nom de l'employ&#233;
            end if
            msg = msg & cells(1,j) & chr(10) 'Le message va recevoir la date
        end if
    next
next


Ainsi, le message contiendra la liste des employ&#233;, et pour chacun d'eux la liste des dates (j'adore bien mettre en forme, c plus fort ke moi)
Bien s&#251;r, tu peu stocker autrement la liste, par exemple dans un textbox ou dans une listbox, c toi ki voit

aamireault · Answer

msg = "", 

lorsque je RUN le programe, il y a toujours un erreur, je crois que je ne 
comprend pas bien, ce que cela signifie

Merci
Annik

DarkCid · Answer

Elle dit koi exactement ton erreur ?

aamireault · Answer

Voici le code:

Sub Recherche()
msg = ""
For i = 2 To nombre_d 'employ&#233; + 1
    trouver = False
    For j = 2 To nombre_jour_du_planning + 1
        If Cells(i, j).Value = client_recherch&#233; Then
            If Not trouver Then
                trouver = True
                msg = msg & Cells(i, 1).Value & Chr(10) 'Le message va recevoir le nom de l'employ&#233;
            End If
            msg = msg & Cells(1, j) & Chr(10) 'Le message va recevoir la date
        End If
    Next
Next
End Sub

Quand je fais RUN,  msg = " ", est surlign&#233;

Je ne comprend pas....

Merci

Annik

DarkCid · Answer

Oui mais, la boite de dialogue te signalant l'erreur, elle dit quoi ?

aamireault · Answer

Invalid outside procedure

DarkCid · Answer

t'as pas oubli&#233; de d&#233;clar&#233; msg ? (je sais c idiot kom kestion mais l&#224; je vois pas sinon)

Recherche dans Excel à l'aide de macro VBA ou autre

7 réponses

Discussions similaires