Code sur la leçon des variables ne fonctionne pas
Bonjour,
Débutant dans les cours de VBA dispensés par Excel-Pratique, je suis confronté dès le cours sur les conditions à une difficulté que je ne parviens pas a résoudre. Ainsi, par un copier/coller, j'ai reporté dans le module de VBA le code présenté dans le cours. Malgré cela en utilisant la touche F8 celle-ci s'arrête à la ligne avant celle du MsgBox et n'exécute donc pas le code mais indique :
"Erreur d'exécution '13'
Incompatibilité de type
Avec 3 de 4 boutons actifs "Fin" / Debogage / Aide"
L'aide et le débogage ne me sont d'aucun secours pour la bonne raison que je ne suis pas assez connaissant en la matière pour comprendre les explications fournies.
Il ne peut s'agir d'une mauvaise retranscription du code de la leçon puisqu'en final j'ai utilisé le copier/coller.
C'est la première fois que j'ai recours à ce Forum aussi si je ne m'adresse pas au bon endroit dites-moi ce que je dois faire.
Merci de m'avoir lu et merci de l'aide que vous pourriez me donner.
L'africain
Voici le texte de la leçon
Sub variables()
If IsNumeric(Range("F5")) Then
Dim nom As String, prenom As String, age As Integer, numero_ligne As Integer
numero_ligne = Range("F5") + 1
nom = Cells(numero_ligne, 1)
prenom = Cells(numero_ligne, 2)
age = Cells(numero_ligne, 3)
MsgBox nom & " " & prenom & ", " & age & " ans"
Else 'SI CONDITION FAUSSE
MsgBox "L'entrée " & Range("F5") & " n'est pas valide !"
Range("F5").ClearContents
End If
End Sub
Bonsoir,
C'est que ta cellule C6 ne contient pas un nombre ?
Bonsoir,
Avant tout merci d'avoir répondu aussi vite.
La cellule C6 contenait bien le nombre 43 .
J'ai tout recommencé et tout revérifié scrupuleusement et maintenant cela fonctionne.
Désolé pour le dérangement mais j'ai passé beaucoup de temps sur
cette difficulté sans en trouver la solution et à bout de ressources j'ai fait appel au Forum.
Encore Merci
L'Africain