Bonjour à vous,
J'ai besoin svp d'une petite aide toute simple (pour vous!). Moi étant complètement novice en VBA
Ma colonne A est censée n'avoir que des chiffres (nombres entiers à 4 ou 5 caractères uniquement) à chaque ligne...
Lignes qui s'incrémentent automatiquement par le biais d'une autre macro (Insertion d'une ligne en Ligne2 et copie de certaines valeurs en A2, B2 et C2)
Mais il se peut que par erreur un texte, une date (mais sous forme chiffre (nombre entier) ou des chiffres à virgule apparaisse en A2.
Je veux alors qu'Excel vérifie cette conformité et dans le cas où A2 n'est pas un nombre (car c'est là qu'en réalité se trouvera l'erreur) alors qu'il me fasse apparaître une MscgBox
Mon essai :
Sheets("Feuil1").Select
If (Not (IsNumber(Range("A2")))) Then
MsgBox ("Message")
End If
Erreur affichée (PopUp) :
Erreur de Compilation: Sub ou Function non définie
Merci d'avance à qui pourra/voudra m'aider
J'ai besoin svp d'une petite aide toute simple (pour vous!). Moi étant complètement novice en VBA
Ma colonne A est censée n'avoir que des chiffres (nombres entiers à 4 ou 5 caractères uniquement) à chaque ligne...
Lignes qui s'incrémentent automatiquement par le biais d'une autre macro (Insertion d'une ligne en Ligne2 et copie de certaines valeurs en A2, B2 et C2)
Mais il se peut que par erreur un texte, une date (mais sous forme chiffre (nombre entier) ou des chiffres à virgule apparaisse en A2.
Je veux alors qu'Excel vérifie cette conformité et dans le cas où A2 n'est pas un nombre (car c'est là qu'en réalité se trouvera l'erreur) alors qu'il me fasse apparaître une MscgBox
Mon essai :
Sheets("Feuil1").Select
If (Not (IsNumber(Range("A2")))) Then
MsgBox ("Message")
End If
Erreur affichée (PopUp) :
Erreur de Compilation: Sub ou Function non définie
Merci d'avance à qui pourra/voudra m'aider