Sujet Précédent Sujet Suivant

INPUTBOX ANNULER MSG ERREUR

Résolu/Fermé
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - Modifié par Chris 94 le 23/09/2016 à 15:20
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 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

Réponse 1 / 1
jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
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 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 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 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650 > CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023
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 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1 > jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024
23 sept. 2016 à 15:49
Oui un grand merci à toi
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Comment annuler les Invitations envoyés
Sahbi -
MaxGix -

1 réponse
VBA erreur 1004
séverine -
Floroan -

9 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses