Bonjour,
Un module ne peut pas se compiler à cause d'une incompatibilité de type.
C'est la variable "f" soulignée en gras qui pose problème.
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
Elle est déclarée de cette façon dans un module à part:
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Public f As Byte
Cordialement
Partager