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 - 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

Afficher la suite

1 réponse

Réponse 1 / 1
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 832
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
1. CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention 1
  
  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
  1. jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 832 > CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention
    
    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
  2. CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention 1 > jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention
    
    Oui un grand merci à toi
    
    0

INPUTBOX ANNULER MSG ERREUR

1 réponse

Discussions similaires

Newsletters