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
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Annuler renvoi d'appel ooredoo ✓ - Forum Mobile
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.