INPUTBOX ANNULER MSG ERREUR
Résolu
CHARLYJACK
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Vba inputbox annuler
- Annuler offre vinted - Guide
- Annuler fermeture onglet chrome - Guide
- Annuler envoi mail gmail - Guide
- Annuler renvoi d'appel ooredoo ✓ - Forum Mobile
- Vba attendre 1 seconde ✓ - Forum VB / VBA
1 réponse
Bonjour,
Tu as déclaré "lig" comme "long".
Lorsque tu cliques sur annuler... la valeur retournée est vide : "" (donc pas un nombre....)
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
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
Mais bon.
Si la question est résolue... pense à clore le sujet ( lien marquer comme résolu sous le titre de ta question)
Merci.