Discussion :

[blackndoor]

Bonjour,

Voilà en cherchant sur votre site j'ai trouvé ceci :

Pourquoi ai-je une erreur lors d'une recherche si la valeur n'existe pas ?

Malheureusement même en recopiant bêtement le code dans une macro excel cela ne marche pas : Erreur d'exécution '13', Incompatibilité de type.

Dommage car je cherche à effectuer une recherche en fonction d'une valeur qui peut ne pas être trouvée.

Quelqu'un a une solution ?

EDIT : Voici mon code

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
 
Windows("CustomerLabel.XLS").Activate
    Cells(col1, Col2).Select
    tampon = ActiveCell.Value
    Windows("VGFrance.XLS").Activate
 
    Dim objCell As Range, PremAdresse As String, PlageResult As Range
    With Range("C2:C2000")
        Set objCell = .Find(What:=tampon, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If Not objCell Is Nothing Then
 
       tampon2 = Selection.Find(What:=tampon, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
        End If
    End With

Merci

[Gorfael]

Salut blackndoor et le forum

Malheureusement même en recopiant bêtement le code dans une macro excel cela ne marche pas : Erreur d'exécution '13', Incompatibilité de type.

Quelle ligne de code est en erreur, comment sont déclarées tes variables. On ne fait pas (souvent) des miracles! Du moins, sans informations précises.
A+

[blackndoor]

Salut Gorfael,

Le code s'arrête à la ligne :

Code :

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

Set objCell = .Find(What:=tampon, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)

Avec une erreur 13. Voici le code complèt de ma macro :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
col1 = 2
Col2 = 4
col6 = 1
col3 = 1
col4 = 1
tampon = 1
tampon2 = 1
 
 
    Windows("CustomerLabel.XLS").Activate
    Cells(col1, Col2).Select
    tampon = ActiveCell.Value
    Windows("VGFrance.XLS").Activate
 
    Dim objCell As Range, PremAdresse As String, PlageResult As Range
    With Range("C2:C2000")
        Set objCell = .Find(What:=tampon, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If Not objCell Is Nothing Then
 
       tampon2 = Selection.Find(What:=tampon, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
        End If
    End With
 
   If tampon2 Then
 
    col3 = ActiveCell.Row
    col4 = ActiveCell.Column
    Range("D" & col3 & ":H" & col3).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("CustomerLabel.XLS").Activate
    col6 = Col2 + 5
    Range("I" & col1).Select
  '  Range("I1918").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    End If

[aalex_38]

Bonjour blackndoor, Gorfael, le forum,

Premiere chose :Les select et activate sont la plupart du temps inutiles et ils alourdissent et ralentissent le code. Beaucoup d'exemples a ce sujet dans le forum.

L'utilisation d'ActiveCell est bien souvent probmèmatique, pour l'utiliser il faut maitriser ce qui est selectionné et c'est pas toujours facile.

Je modifierai le code ainsi (pas testé) :

Code :

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

1
2
3
4
5
6
 
tampon =  Windows("CustomerLabel.XLS").Cells(col1, Col2)
 
 Dim objCell As Range, PremAdresse As String, PlageResult As Range
 With Windows("VGFrance.XLS").Range("C2:C2000")
  Set objCell = .Find(What:=tampon,  LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)

Tu peux aussi instancié pour pouvoir utiliser l'une ou l'autre de tes fenetres :

Code :

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

1
2
Dim W1 as workbook, W2 as workbook
Set W1 = workbooks("CustomerLabel.XLS")

et ensuite tu peux l'utiliser partout ou c'est nécessaire :

Code :

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

W1.Cells(col1, Col2)

En esperant que ces quelques pistes puissent te servir.

[blackndoor]

Salut

Je viens de mettre en place les modifes et le code bloc ici :

Code :

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

tampon = Windows("CustomerLabel_130309.XLS").Cells(col1, Col2).Value

Avec une erreur 438, propriété ou méthode non gérée par cet objet.

[aalex_38]

Autant pour moi, il faut utiliser workbooks

Un exemple de code tiré d'une macro perso :

Code :

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

Application.Workbooks("Nomdufichier.xls").Worksheets("nomdusheet").Range(Cells(1, 10).Address)