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

A voir également:

Vba inputbox annuler
Annuler offre vinted - Guide
Annuler envoi mail gmail - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Annuler fermeture onglet chrome - Guide
Annuler renvoi d'appel ooredoo ✓ - Forum Mobile

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38323 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 1 décembre 2024 4 710
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

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

jordane45 Messages postés 38323 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 1 décembre 2024 4 710 > 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.

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 38323 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 1 décembre 2024
23 sept. 2016 à 15:49

Oui un grand merci à toi

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Comment annuler les Invitations envoyés

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel