Discussion :

[raphael]

Bonjour, j'ai un message d'erreur d'Excel

Erreur d'execution '13'
Incompatibilité de type

sur une recherche toute simple et là vraiment je sèche. Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set sheet3 = Worksheets("Feuille3")
With sheet3.Range("C:C")
    Set c = .Find(What:="toto", After:=ActiveCell, LookIn:=xlValues, _
          LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False)
    If Not c Is Nothing Then
      x = c.Row
    End If
End With

Ca plante sur la recherche .Find

Par contre, si je recherche sur la colonne A, avec

Code :

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

With shFile1.Range("A:A")

ou sur les 3 colonnes

Code :

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

With shFile1.Range("A:C")

ça fonctionne, mais impossible sur la seule troisième colonne

Je précise que je lance la macro à partir du Worksheets("Feuille1"), ça a une incidence ?

Merci par avance

[fring]

Bonjour,

il y a certains arguments de la fonction Find qu'il ne digère pas, essaye comme ceci :

Code :

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

1
2
3
4
5
6
7
Set sheet3 = Worksheets("Feuille3")
With sheet3.Range("C:C")
    Set c = .Find("toto", , xlValue, xlWhole)
    If Not c Is Nothing Then
      x = c.Row
    End If
End With

[Jean-Pierre49]

Bonjour

Essaye

Code :

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

1
2
3
4
5
6
7
8
Set sheet3 = Worksheets("Feuille3")
With sheet3.Range("C:C")
    Set c = .Find(What:="toto", LookIn:=xlValues, _
          LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False)
    If Not c Is Nothing Then
      MsgBox c.Row
    End If

ou

Code :

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

1
2
3
4
5
6
7
Set sheet3 = Worksheets("Feuille3")
With sheet3.Range("C:C")
    Set c = .Find(What:="toto")
    If Not c Is Nothing Then
      MsgBox c.Row
    End If
End With

After:=ActiveCell Cause problème

[raphael]

After:=ActiveCell Cause problème

Oui c'était bien ça, merci beaucoup