INPUTBOX ANNULER MSG ERREUR
Résolu
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é:
Y a t il un moyen de supprimer ce message
par avance merci
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
-
ModérateurBonjour,
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
-
-
Modérateur@CHARLYJACKau 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. -
@jordane45Oui un grand merci à toi
-
