Bonjour,

Je tente d'améliorer mon fichier qui va féter ses deux ans ! et je bute sur une boucle.

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
Sub importSA()
Dim sa As String
Dim identi As Integer
 
sa = ActiveCell.Value
 
MsgBox sa
 
 
With Worksheets("Gestion SA")
identi = 0
 
MsgBox identi
 
identi = Range("AF1:AF1000").Find(sa).Row
MsgBox identi
If IsEmpty(identi) Then
MsgBox "creer une ligne"
 
Else
MsgBox "bonjour"
 
End If
End With
Je ne comprends pas pourquoi on m'indique ne pas avoir déclarer la variable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
identi
puisqu'elle me semble bien déclarée.

En vous remerciant,

Gaétan