INPUTBOX ANNULER MSG ERREUR

Résolu/Fermé
CHARLYJACK Messages postés 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022 - Modifié par Chris 94 le 23/09/2016 à 15:20
CHARLYJACK Messages postés 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022 - 23 sept. 2016 à 15:49
Bonjour,

j'ai intégré une input box qui demande un numero de ligne.
Quand j'indique la ligne tout va bien
Quand je clique sur annule j'ai un message d'erreur 13 type incompatibilité:

Sub Ecarts_Idem_Valeurs()

Dim lig As Long

lig = InputBox("Numéro de ligne où effectuer l'insertion ?", "Numéro de ligne")

    Rows("26:27").Select
    Selection.Copy
    Rows(lig).Select
    
    Selection.Insert Shift:=xlDown
    
End Sub


Y a t il un moyen de supprimer ce message

par avance merci

1 réponse

jordane45 Messages postés 36397 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 7 octobre 2022 4 368
23 sept. 2016 à 15:26
Bonjour,

Tu as déclaré "lig" comme "long".
Lorsque tu cliques sur annuler... la valeur retournée est vide : "" (donc pas un nombre....)

Dim lig

lig = InputBox("Numéro de ligne où effectuer l'insertion ?", "Numéro de ligne")

If IsNumeric(lig) And lig > 0 Then
  Rows("26:27").Select
  Selection.Copy
  Rows(lig).Select
  Selection.Insert Shift:=xlDown
End If



1
CHARLYJACK Messages postés 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022 1
23 sept. 2016 à 15:43
Merci beaucoup,

j'ai essayé plusieurs variables mais sans succès
je pensais qu'il fallait nécessairement présenter les variable sous la forme

Dim lig as ... Variant, integer, long ....

Cdt
0
jordane45 Messages postés 36397 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 7 octobre 2022 4 368 > CHARLYJACK Messages postés 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022
23 sept. 2016 à 15:48
au pire tu aurais pu le mettre en "variant"

Mais bon.
Si la question est résolue... pense à clore le sujet ( lien marquer comme résolu sous le titre de ta question)
Merci.
0
CHARLYJACK Messages postés 349 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 29 mars 2022 1 > jordane45 Messages postés 36397 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 7 octobre 2022
23 sept. 2016 à 15:49
Oui un grand merci à toi
0