INPUTBOX ANNULER MSG ERREUR [Résolu/Fermé]

Signaler
Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020
-
Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020
-
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

Messages postés
29743
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
13 octobre 2020
2 842
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020
1
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
Messages postés
29743
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
13 octobre 2020
2 842 >
Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020

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.
Messages postés
340
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
4 septembre 2020
1 >
Messages postés
29743
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
13 octobre 2020

Oui un grand merci à toi