Erreur d'exécution '13': incompatibilité de type

Question

Je suis nouveau sur votre forum et j'ai besoin de vous. J'essais d'assimiler les bases du VBA, et pour ce faire, je sius le "Cours VBA gratuit". A la leçon 3, les variables: https://www.excel-pratique.com/fr/vba/variables.php , dans l'exemple pratique je fais un copier/coller du code: Sub variables() 'Déclaration des variables Dim nom As String, prenom As String, age As Integer 'Valeurs des variables nom = Cells(2, 1) prenom = Cells(2, 2) age = Cells(2, 3) 'Boîte de dialogue MsgBox nom & " " & prenom & ", " & age & " ans" End Sub Tous se passe bien! youpi!!! Mais lorsque je copie et colle le code qui devrait me permettre d' afficher dans la boite de dialogue la ligne du tableau correspondant au numéro indiqué dans la cellule F5. 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 le code s'arrête sur la ligne surlignée en vert et une une boite de dialogue me dit: "erreur d'exécution '13': incompatibilité de type". Quelqu'un a-t-il une idée pour de ou peut venir le problème ? Merci a tous ceux qui voudrons bien se pencher sur mon cas...

waard · Answer

C'est la variable numero_ligne qui doit plantée, change cette ligne numero_ligne = Range("F5") + 1 en : numero_ligne = Range("F5").value + 1 ou numero_ligne = Range("F5").row + 1 en fonction de si le numero de ligne se trouve dans la cellule ou s'il faut la reprendre de l'adresse cellule...

MFerrand · Answer

A-priori c'est que la valeur dans la cellule n'est pas un nombre, d'où incompatibilité avec une variable Integer... Vérifie le type de données du contenu de la cellule. Cordialement...