Discussion :

[Edge38]

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

[Philippe Tulliez]

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

[ARTURO83]

Bonjour,

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

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
 
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

[Edge38]

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

[ARTURO83]

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 :

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

Set identi = nothing