Discussion :

[Le 18]

Bonjour à tous et toutes, avec la macro ci-dessous j'ai toujours Erreur 13 incompatibilité de type.

Code vba :

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
41
Option Explicit
 
Sub Recherche_tome_Rivages()
'
    Dim i As Variant
    Dim ligne As Integer
    Dim cel1 As Range
    Dim Rep40 As Integer
    Dim ReponseMsg40 As Byte
'
'   Permet de retrouver rapidement un numéro dans la BDD : Rivages Noir.
'
'   Empêche l'écran de sautiller lors de l'exécution de la macro.
        Application.ScreenUpdating = True
'
        Worksheets("NumTome").Visible = True ' supprime le masquage de la feuille : NumTome.
'
saut1:
        Rep40 = InputBox("Saisir le numéro du tome ou du nom du format (Format grand, Format mince, H. C.) :", "Recherche d'un tome particulier ou d'un format spécial.", "", 21000, 7500)
        Worksheets("NumTome").Select ' recherche via la variable Rep40 de l'inputbox doit se faire via la feuille : NumTome et pas Rivages Noir.
        Range("A3:A1300").Select
        If Rep40 <> 0 Then
           For Each i In Range("A3:A1300")
               If i = Rep40 Then
                  Set cel1 = Cells.Find(what:=i, LookIn:=xlValues, LookAt:=xlWhole)
                  ligne = cel1.Row 'active le numéro du tome dans la feuille : NumTome.
                  Worksheets("Rivages Noir").Select
                  Range("D" & ligne).Select
               End If
           Next
           Worksheets("NumTome").Visible = False ' établit le masquage de la feuille : NumTome.
        Else
           Worksheets("Rivages Noir").Select
           ReponseMsg40 = MsgBox("Pas de numéro de tome demandé", vbYesNo, " introduire un numéro de tome !")
           If ReponseMsg40 = 6 Then
              GoTo saut1
           ElseIf ReponseMsg40 = 7 Then
              Exit Sub
           End If
        End If
End Sub

[tony76]

Salut,

colle un espion sur Rep40 pour voir le retour tu à surment des "$" dedans

[tony76]

quelle ligne as tu ton erreur ?

[Le 18]

Bonjour Malick et les autres,
l'erreur se produit à la ligne numéro 24.

[Le 18]

Bonjour Mr Tony76,
J'utilise Excel office 365 pour Mac, et je ne vois pas comment installer un espion car je crois que cette facilité a été supprimée.
Bien à vous.

[Le 18]

Mon post 4 devait être adressé à Tony76 et pas à Malck, mes excuses.
Bien à vous.

[tony76]

Bonjour Mr Tony76,
J'utilise Excel office 365 pour Mac, et je ne vois pas comment installer un espion car je crois que cette facilité a été supprimée.
Bien à vous.

Je ne savais pas ! si pas de possibilité de mettre un espion, reste la méthode

Code :

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

MsgBox(Rep40)