Discussion :

[Ardiden31]

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 :

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
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 :

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

 If DebColonne = vbCancel Then Exit Sub

Merci à vous.

[joe.levrai]

Bonjour,

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

donc, petit exemple

Code :

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

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")

[Ardiden31]

Merci à toi
Donc si je mets ça :

Code :

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

If DebColonne = vbCancel Then Exit Sub

Je sors de mon code sans msgbox ?

Je vais tester

Merci

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

[joe.levrai]

Non,

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

Code :

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

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 !

[Invité]

Code :

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

1
2
Dim DebColonne As Integer
Dim FinColonne As Integer

Code :

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

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

[Ardiden31]

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

Code :

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

1
2
    Dim DebColonne As Integer
    Dim LigneEs As Integer

Le code marche parfaitement.

Une idée du pourquoi du comment ?

[mayekeul]

bonjour,

val renvoie double et non integer.

[Ardiden31]

Merci à vous deux
Le code de rdurupt marche !