Discussion :

[Dédé6621]

Bonjour,

Un module ne peut pas se compiler à cause d'une incompatibilité de type.

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
Sub Compare()

        Application.ScreenUpdating = False

        Dim i As Byte
        Dim chem As String
        
        Select Case MsgBox("Choisissez le même fichier, mais du mois précédent.")
        Case vbOK
            Set rep = Application.FileDialog(msoFileDialogFilePicker)
        Case vbCancel
            Exit Sub
        End Select
            rep.Show
        If rep.SelectedItems.Count > 0 Then
            chem = rep.SelectedItems(1)
            Nfichier = ""    'Work in progress
        Else
            Exit Sub
        End If
For f = 1 To Sheets.Count
    With Sheets(f)
    For i = 9 To Cells(Columns(1).Rows.Count, 2).End(xlUp).row
        .Cells(i, "H").FormulaR1C1 = "=RC[-5]-'[" _
            & Nfichier & "]" _
            & .Name & "'!RC3"
    Next
    End With
Next f

End Sub

C'est la variable "f" soulignée en gras qui pose problème.
Elle est déclarée de cette façon dans un module à part:

Code :

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

Public f As Byte

Ce qui est étrange, c'est que j'utilise "f" dans d'autres modules dans une instruction For...Next et il n'y a pas de problème.

Cordialement

[Invité]

Bonjour

Tu as combien de feuilles dans ton classeur ?

Philippe

[Dédé6621]

Tu as combien de feuilles dans ton classeur ?

Oui, j'aurais dû le préciser. Une dizaine, donc moins de 255.

J'en profite pour ajouter que si je (re)déclare "f" en début de procédure:

Code :

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

Dim f as Byte

il n'y a alors plus de problème de compilation...

[unparia]

Bonjour
Si tu as bien déclaré la variable f en public dans un module standard, il n'y a selon moir qu'une explication plausible : un conflit de nom identiques pour deux choses distinctes.
Cherche partout dans ton projet (edition --->> rechercher) où tu as "f =" ou "f as" et regarde s'il s'agit toujours de la même chose.

[Dédé6621]

Bonjour
Si tu as bien déclaré la variable f en public dans un module standard, il n'y a selon moir qu'une explication plausible : un conflit de nom identiques pour deux choses distinctes.
Cherche partout dans ton projet (edition --->> rechercher) où tu as "f =" ou "f as" et regarde s'il s'agit toujours de la même chose.

Bravo unparia! Ton intuition était la bonne!

J'avais:

Code :

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

Private f As Worksheet

en début de module.

Merci pour votre aide!

[unparia]

Bravo unparia! Ton intuition était la bonne!

Ce n'était pas une "intuition", à proprement parler