Erreur 13 inputbox

Bonjour à tous,
Je reviens vers vous car j'ai une erreur sur mon inputbox en effet dans le cas ou l'utilisateur clique sur Annuler j'ai l'erreur d’exécution 13 incompatibilité de type voici le code :

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

Sub estimation()   Dim DebColonne As Integer Dim FinColonne As Integer Dim LigneEs As Integer Dim LigneFinTab As Integer Dim i As Integer Dim x As Integer   DebColonne = InputBox("Quel week renseigner ?") If DebColonne = "" Then Exit Sub   LigneEs = InputBox("Quel ligne ?") If LigneEs = vbCancel Then Exit Sub     Sheets("Parametres").Cells(22, 2).Value = DebColonne + 5 FinColonne = Sheets("Parametres").Cells(23, 2).Value Sheets("Parametres").Cells(24, 2).Value = LigneEs LigneFinTab = Sheets("Parametres").Cells(26, 2).Value x = Sheets("Parametres").Range("B27").Value   For i = DebColonne + 5 To FinColonne Cells(LigneEs, i).FormulaLocal = "=INDEX(Temp1!$A$1:$DT$72;EQUIV(B" & x & ";Temp1!$A$1:$A$72;0)+1;" & i & ")" Cells(LigneEs, i).Value = Cells(LigneEs, i).Value Next i     End Sub

---

Je pensais que le code suivant traitai le bouton annuler :

Code:

---

If DebColonne = vbCancel Then Exit Sub

---

Merci à vous.

Bonjour,

quand on Cancel un inputbox, la chaine retournée est vide :)

donc, petit exemple

Code:

---

1 2	MonInput = InputBox("Vas-y, clique sur annuler!") If MonInput = "" then Msgbox("Soit tu as annulé, soit tu as validé sans écrire de texte")

---

Merci à toi :)
Donc si je mets ça :

Code:

---

If DebColonne = vbCancel Then Exit Sub

---

Je sors de mon code sans msgbox ?

Je vais tester

Merci :D

Non j'ai le même message d'erreur :(

Non,

ta condition ne sera pas vérifiée ... fais le test suivant

Code:

---

1 2 3 4

Sub ioi() moninput = InputBox("Vas-y cliques sur annuler!") MsgBox moninput = vbCancel End Sub

---

tu confonds MsgBox et InputBox là :)


Pourquoi ne pas reprendre la méthode que tu utilises sur ton premier InputBox ... c'est la bonne !

Code:

---

1 2	Dim DebColonne As Integer Dim FinColonne As Integer

---

Code:

---

1 2	DebColonne = val(InputBox("Quel week renseigner ?")) If DebColonne = 0 Then Exit Sub

---

Merci :)
Il semblerait que le problème vienne de la définition de mes variables.
En effet, quand je supprime ces deux lignes :

Code:

---

1 2	Dim DebColonne As Integer Dim LigneEs As Integer

---

Le code marche parfaitement.

Une idée du pourquoi du comment ?

bonjour,

val renvoie double et non integer.

Merci à vous deux :)
Le code de rdurupt marche !