Probleme If et UserForm

**fred_vannes56** · 12/12/2008, 23h45

Bonjour à tous.

J'ai un petit souci avec un code qui me semble pourtant très simple et je ne comprends pas l'erreur.

Il me renvoie une erreur d'incompatibilité de type, des qu il arrive sur le 1er if imbriqué...

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
 
If Worksheets(1).Range("b14").Value = 17 Then
    If Worksheets(1).Range("O1:X1").Value = "Scrat" Then
        Défaite_Scrat.Show
    End If
    If Range("O1:X1").Value = "Maggie" Then
        Défaite_Maggie.Show
    End If
    If Range("O1:X1").Value = "pikachu" Then
        Défaite_Pika.Show
    End If
    If Range("O1:X1").Value = "kenny" Then
        Défaite_Kenny.Show
    End If
 
 
End If

(le programme dont est issu le code est un jeu de bataille navale qui fonctionne pas trop mal, et je suis donc bloqué au moment d'afficher des petits userforms rigolos a la fin de la partie)

Code d'un user form a afficher:

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Défaite_Maggie.Hide
Victoire_joueur.Show
End Sub

Voila, pour info, les cellules O1:X1 sont fusionnées

Merci d'avance pour votre aide

**pgz** · 13/12/2008, 00h09

Bonsoir.

Tu peux essayer de remplacer

Code :

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

.Range("O1:X1")

par

Code :

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

.Range("O1")

PGZ

**DidierLoche** · 13/12/2008, 10h27

Bonjour,

Comme le dit pgz, ton problème vient du fait que les cellules sont fusionnés et la solution est bien celle préconisée par pgz.
Je me permettrai juste de te proposer d'utiliser plutôt "Select Case" pour ton code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case Worksheets(1).Range("O1").Value
    Case "Scrat"
        Défaite_Scrat.Show
    Case "Maggie"
        Défaite_Maggie.Show
    Case "pikachu"
        Défaite_Pika.Show
    Case "kenny"
        Défaite_Kenny.Show
End Select