Discussion :

[zeralium]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[JackOuYA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zeralium]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set SHctrl = ThisWorkbook.Sheets(ctrl)

à la place de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set SHctrl = Sheets(ctrl)

le code ne fonctionne plus correctement, pourquoi?

[JackOuYA]

Bonjour,

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

Ton code et bien dans le même classeur que ta feuille ctrl ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set SHctrl = ThisWorkbook.Sheets(ctrl)

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set SHctrl = ActiveWorkbook.Sheets(ctrl)

et ça fonctionne correctement.

Merci pour ton aide.