Probleme If et UserForm

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:

---

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:

---

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

Bonsoir.

Tu peux essayer de remplacer

Code:

---

.Range("O1:X1")

---

par

Code:

---

.Range("O1")

---

PGZ

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:

---

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

---

ça me parait plus simple. Tu peux peut-être généraliser le userform "Défaite" pour être compatible de n'importe quel nom de joueur.

Didier

Merci, ca marche bien, ca devait être la fatigue...lol

Un petit clic sur :resolu:?

Merci