problème avec If then Else

Version imprimable

Bonjour,

Voilà je suis débutant avec VBA sur excel,

J'ai un problème avec la fonction If then else. je vous mets une partie de mon programme.

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
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
With Sheets("feuil1").Cells(1, 1)
    .Value = .Value + 1

   i = Sheets("feuil1").Cells(1, 1).Value
   A = Sheets("feuil1").Range("B1:B21")
Set i = .Find(A, LookIn:=xlValues)

If i Is Nothing Then (c'est ici que cela plante)
    Sheets("Symbole").Cells(i, 1).Value = ComboBox1
    Sheets("Symbole").Cells(i, 4).Value = Text1
    Sheets("Symbole").Cells(i, 5).Value = Text2
    Sheets("Symbole").Cells(i, 6).Value = Text3
    Sheets("Symbole").Cells(i, 7).Value = Text4
    Sheets("Symbole").Cells(i, 8).Value = Text5
    Sheets("Symbole").Cells(i, 9).Value = Text6
    Sheets("Symbole").Cells(i, 10).Value = Text7
    Sheets("Symbole").Cells(i, 11).Value = Text8
    Sheets("Symbole").Cells(i, 12).Value = Text9
    Sheets("Symbole").Cells(i, 13).Value = Text10
    Sheets("Symbole").Cells(i, 14).Value = Text11
    Sheets("Symbole").Cells(i, 15).Value = Text12
    Sheets("Symbole").Cells(i, 16).Value = Text13
    Sheets("Symbole").Cells(i, 17).Value = Text14
    Sheets("Symbole").Cells(i, 18).Value = Text15

Else
   Unload Me
   UserForm3.Show
   End If
End With

End Sub

Merci de me dire si vous voyez une erreur,

Bonjour,

Non, c'est ici que ce n'est pas bon
Code:

1 2 3 4 i = Sheets("feuil1").Cells(1, 1).Value A = Sheets("feuil1").Range("B1:B21") Set i = .Find(A, LookIn:=xlValues)
Tu definis i comme etant une valeur (.value)
et ensuite comme etant une Range set = .find
Code:

1 2 3 Dim cel as range set cel = .find(A,lookin:=xlvalues) if not cel is nothing then

bonjour,
Confirmation de Wilfried_42

Code:

If i Is Nothing Then (c'est ici que cela plante)

Tu a l'erreur 424 'objet requit'
Is Nothing ne peu être employé que sur une variable objet, ou variant contenant un objet.

autre remarque,
Code:

1 2 Sheets("Symbole").Cells(i, 1).Value = ComboBox1 Sheets("Symbole").Cells(i, 4).Value = Text1
Ce n'est pas suffisant
il faut...
Code:

1 2 3 4 Sheets("Symbole").Cells(i, 1).Value = ComboBox1.List(Combo1.listindex) Sheets("Symbole").Cells(i, 4).Value = Text1.text ' et peut être..dépend du format cellule Sheets("Symbole").Cells(i, 4).Value = Val(Text1.text)
A+

Je ne dis pas que les réponses précédentes sont inexactes mais déjà, si tu fais
Code:

1 2 3 4 5 Else Unload Me UserForm3.Show End If End With
tu décharges "Me" avant de charger Userform3
Place "Unload Userform2" (et non pas Me) dans Userform_initialize de Userform3

Edit
Un autre problème non évoqué : Comment, dans une cellule, peux-tu rechercher la valeur d'une plage ? Sans tenir compte de l'erreur que tu fais en tentant d'instancier i comme tu le fais, même corrigé, cela m'étonnerait bien que ton code fonctionne.

Citation:

'là tu dis, "avec la cellule A1 de la feuille feuil1...
With Sheets("feuil1").Cells(1, 1)
.Value = .Value + 1

i = Sheets("feuil1").Cells(1, 1).Value
A = Sheets("feuil1").Range("B1:B21")
'... tu demandes de chercher la plage "B1:B21" (dans A1 donc...)
Set i = .Find(A, LookIn:=xlValues) '

En corrigeant ainsi que Wilfried le conseille justement, tu feras la même chose
Explique ce que tu cherches, dans quelle colonne, sur quelle plage ?

Si ce que tu veux faire est chercher la valeur A1 de la feuil1 dans la plage "B1:B21" alors, en reprenant les corrections de LeFosrestier et de Wilfried, mets
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sheets("feuil1").Value = Sheets("feuil1").Value + 1 With Sheets("feuil1").Range("B1:B21") A = Sheets("feuil1").Cells(1, 1).Value Set cel = .Find(A, LookIn:=xlValues) if not cel is nothing then 'la donnée a été trouvée Sheets("Symbole").Cells(i, 1).Value = ComboBox1.List(Combo1.listindex) For NoCol = 1 to 15 Sheets("Symbole").Cells(cel.row, NoCol + 3).Value = Me.Controls(NoCol) Next else 'la donnée n'a pas été trouvée UserForm3.Show endif end with
Mais je n'ai pas l'impression que ce soit ce que tu veux faire :( alors explique bien tout ;)