Utilisation de FIND.

Version imprimable

Bonjour,

Ci dessous une petite macro qui me permet de rechercher une valeur dans une feuille et si elle est trouvé et que suivant certaines conditions copier des cellules de cette page vers une autre page:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set SHtmpIO = Sheets("Temp IO")
ligne = 2
Do Until SHtmpIO.Cells(ligne, 1) = ""
    ctrl = SHtmpIO.Cells(ligne, 7)
    Var = SHtmpIO.Cells(ligne, 1)
 
    Set SHctrl = Sheets(ctrl)
 
    Cells.Find(What:=(Var), After:=SHctrl.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder _
    :=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
    With Application.ActiveCell
    NumLg = .Row
    End With
    If Not Cells(NumLg, 12) = "" Then
        Range(SHtmpIO.Cells(ligne, 14), SHtmpIO.Cells(ligne, 16)).Value = Range(SHctrl.Cells(NumLg, 12), SHctrl.Cells(NumLg, 14)).Value
    End If
    ligne = ligne + 1
Loop

Mon probleme est que si j'utilise cette macro tels quel le resultat n'est pas coherent. Pour qu'il soit juste il faut que je rajoute la partie de code ci dessous avant d'appliquer FIND:

Code:

1
2
3
4
Sheets(ctrl).Select
    Cells(1, 1).Select
    Cells.Find(What:=(Var), After:=SHctrl.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder _
    :=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

Pourquoi?

12/10/2008, 11h12
Invité

Bonjour,

Lancez votre macro en mode débogage et en appuyant sur "F8" et vous constaterez que la recherche se fait sur la feuille active, autrement dit dans les paramètres :

Code:

After:=SHctrl.Cells(1, 1),

SHctrl n'est pas pris en compte et il ne le serait pas plus si vous indiquiez le nom réel de la feuille.

bonjour,

c'est toujours le même probléme lorsqu'on veut se limiter à travailler sur la feuille active avec des select, activate, des range ou Cells sans rien devant....

pour ta recherche il faut préciser la feuille concerné (et même le classeur..)
Code:

1 2 3 4 5 6 7 8 9 Dim yaCherche As Range Set SHctrl = Thisworkbook.Sheets(ctrl) Set yaCherche = SHctrl.Cells.Find(What:=(Var), After:=SHctrl.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder _ :=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not yaCherche Is Nothing Then MsgBox "Trouvé : " & yaCherche.Parent.Name & "!" & yaCherche.Address End If

Bonjour,

Désolé pour le retard, beaucoup d'activite pro cette semaine. Bref je viens de tester le code, tout fonctionne correctement avec le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ligne = 2 Do Until SHtmpIO.Cells(ligne, 1) = "" ctrl = SHtmpIO.Cells(ligne, 7) Var = SHtmpIO.Cells(ligne, 1) Set SHctrl = Sheets(ctrl) Set Cherche = SHctrl.Cells.Find(What:=(Var), After:=SHctrl.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder _ :=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Sheets(ctrl).Cells(Cherche.Row, 12) = "" Then Range(SHtmpIO.Cells(ligne, 14), SHtmpIO.Cells(ligne, 16)).Value = Range(SHctrl.Cells(Cherche.Row, 12), _ SHctrl.Cells(Cherche.Row, 14)).Value End If ligne = ligne + 1 Loop
Par contre si j'utilise:

Code:

Set SHctrl = ThisWorkbook.Sheets(ctrl)

à la place de:

Code:

Set SHctrl = Sheets(ctrl)

le code ne fonctionne plus correctement, pourquoi?

17/10/2008, 07h23
JackOuYA

Bonjour,

Citation:

Envoyé par zeralium

...
le code ne fonctionne plus correctement, pourquoi?

Ton code et bien dans le même classeur que ta feuille ctrl ?
20/10/2008, 12h47
zeralium

Bonjour,

Tu avais raison Jacques, mon code n'étant pas dans le même classeur ça ne pouvait pas fonctionner correctement. Donc j'ai remplacé:

Code:

Set SHctrl = ThisWorkbook.Sheets(ctrl)

par :

Code:

Set SHctrl = ActiveWorkbook.Sheets(ctrl)

et ça fonctionne correctement.

Merci pour ton aide.