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