Variable objet ou variable de bloc With non définie

Bonjour,

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

Code:

---

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:

---

identi

---

puisqu'elle me semble bien déclarée.

En vous remerciant,

Gaétan

Bonjour,
Pourquoi utiliser un bloc With...End With si vous ne l'utilisez pas
Dans l'instruction de la ligne 15 il manque un point devant l'objet Range. C'est ce qui lui permet d'être rattaché à son parent Worksheets("Gestion SA")
Je ne sais pas si c'est ce qui a provoqué l'erreur mais dans tous cas il est important de préciser la parentalité des objets utilisés

Bonjour,

Et pour compléter, si "sa" est introuvable, que se passe-t-il?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub importSA() Dim sa As String Dim identi As Range sa = ActiveCell.Value MsgBox sa With Worksheets("Gestion SA") Set identi = .Range("AF1:AF1000").Find(sa) If Not identi Is Nothing Then MsgBox "bonjour" Else MsgBox "creer une ligne" End If End With End Sub

---

Cdlt

Bonjour à tous les deux,
@arturo83
@Philippe

Merci beaucoup à tous les deux,

Effectivement en changeant la dimension de identi, ça fonctionne.

Je rajoute .row pour sortir la ligne et c'est impeccable.

Merci !

Concernant la valeur de SA il faut que je lui indique de ne rien faire si elle est introuvable.

Aussi A la fin de la boucle with est ce que la variable identi se vide ?

En vous remerciant encore,
Gaétan

Aussi A la fin de la boucle with est ce que la variable identi se vide ?
Non, il faut ajouter cette ligne à la fin

Code:

---

Set identi = nothing

---