Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro : incompatibilité de type

macro : incompatibilité de type

1 réponse
Avatar
Patrick BASTARD
Bonjour à toutes et tous.

Qui pourrait me dire pourquoi ce code me renvoie "incompatibilité de type"
quand je saisis par erreur une lettre, ou rien, et comment corriger ?

D'avance, Merci.

Dim NbSal
Dim n As Byte

NbSal = InputBox( "Entrez un nombre entre 1 et 10", "SACA -
Administration : Nombre à créer")
Application.ScreenUpdating = False
'Si l'usager annule l'opération
If NbSal < 1 And NbSal > 10 And NbSal = "" Then Exit Sub
For n = 1 To NbSal
Range("A:C").Copy
Application.Goto Reference:="Décaler"
ActiveCell.Offset(0, -3).Insert Shift:=xlToRight
Calculate
Next
Application.ScreenUpdating = True
MsgBox "C'est fait!", , "SACA - Création de fiches salarié"

End Sub

--
Bien amicordialement,
P. Bastard
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick BASTARD
Bonjour, *Alain*

Et merci.

Ces lignes sont bien celles qu'il me fallait.
;-)

Une modif possible pour tester l'imputBox :

If Not IsNumeric(NbSal) Or NbSal = "" Then Exit Sub
If NbSal < 1 Or NbSal * 1 > 10 Then Exit Sub

AV


--
Bien amicordialement,
P. Bastard