Signaler

INPUTBOX ANNULER MSG ERREUR [Résolu]

Posez votre question CHARLYJACK 259Messages postés mardi 19 octobre 2010Date d'inscription 23 septembre 2016 Dernière intervention - Dernière réponse le 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
Afficher la suite 
Utile
+1
moins plus
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



CHARLYJACK 259Messages postés mardi 19 octobre 2010Date d'inscription 23 septembre 2016 Dernière intervention - 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
Répondre
jordane45 14641Messages postés mercredi 22 octobre 2003Date d'inscription ModérateurStatut 28 septembre 2016 Dernière intervention - 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.
Répondre
CHARLYJACK 259Messages postés mardi 19 octobre 2010Date d'inscription 23 septembre 2016 Dernière intervention - 23 sept. 2016 à 15:49
Oui un grand merci à toi
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !