Erreur execution 13

le code si dessous ne s'excécute pas . Le message est : erreur 13 et incompatibilité de type

J'utilise la version 2011 d'Excel 2011 et mon ordinateur est un Mac Pro.

çi dessous le code en question:

Sub variables()

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer, numero_ligne As Integer

'Valeurs des variables

numero_ligne = Range("F5") + 1

nom = Cells(numero_ligne, 1)

prenom = Cells(numero_ligne, 2)

age = Cells(numero_ligne, 3)

'Boîte de dialogue

MsgBox nom & " " & prenom & ", " & age & " ans" End Sub

Bonjour,

Peux-tu envoyer le fichier car avec seulement le code j'ai aucune erreur

Bonjour Robert, bonjour le forum,

Ce message s'affiche parce que ta cellule F5 contient du texte ou, du moins, une valeur non numérique. Peut-être faudrait-il aussi spécifier l'onglet avant : numéro_ligne = Sheets("Feuil1").Range("F5") + 1, par exemple. Vérifie tout ça...

[Édition]

Bonjour Psykopat, nos posts se sont croisés...

Bonjour ThauThème,

Oui en effet, je pensais ça aussi, mais je voulais la confirmation avec le fichier, un petit passage string to integer devrait faire l'affaire

Psykopat a écrit :

Bonjour,

Peux-tu envoyer le fichier car avec seulement le code j'ai aucune erreur

Merci . Comment je t'envoie le fichier (qui est très simple)?

Quand tu fais répondre, juste en bas de "sauvegarder le brouillon aperçu envoyer" tu as parcourir ,

de là tu choisis ton fichier, une fois choisit, clique sur "Ajouter le fichier" et ensuite tu pourras cliquer sur "insérer dans le message"