Erreur d'execution 13 : incomptabilite de type
Bonjour a tous,
je vous remercie d'avance de prendre de votre temps pour me repondre car je ne suis qu'un jeune novice en la matière!
Voila, apres avoir navigue de forums en forums a la recherche d'une solution, apres avoir lu des "tutoriels", je ne trouve toujours pas mon erreur dans mon programme en VBA.
Auriez-vous la gentillesse de me filer un coup de main?
Le voici,
Option Explicit
Private Sub procNombrederesidents()
Worksheets("Potential list").Activate
Dim i As Integer
Dim N As Integer
Dim E As String
Dim M As String
N = 0
For i = 1 To 1400
If Cells(i, E).Value = "Hong Kong" Then N = N + 1
Next i
Cells(1, M).Value = N
End Sub
Merci beaucoup!
je vous remercie d'avance de prendre de votre temps pour me repondre car je ne suis qu'un jeune novice en la matière!
Voila, apres avoir navigue de forums en forums a la recherche d'une solution, apres avoir lu des "tutoriels", je ne trouve toujours pas mon erreur dans mon programme en VBA.
Auriez-vous la gentillesse de me filer un coup de main?
Le voici,
Option Explicit
Private Sub procNombrederesidents()
Worksheets("Potential list").Activate
Dim i As Integer
Dim N As Integer
Dim E As String
Dim M As String
N = 0
For i = 1 To 1400
If Cells(i, E).Value = "Hong Kong" Then N = N + 1
Next i
Cells(1, M).Value = N
End Sub
Merci beaucoup!
5 réponses
-
Bonjour,
Dim M As String c'est bien, mais il faut lui donner une valeur de colonne en lettre pour:
Cells(1, M).Value = N
de meme pour E pour
Cells(i, E)
Bonne suite -
Bonsoir
Essaie en ajoutant End If avant End Sub, normalement s'il y a un if il y a un end if -
Bonjour,
If Cells(i, E).Value = "Hong Kong" Then N = N + 1
pas besoin de end if -
Une solution ici > https://support.microsoft.com/fr-fr/help/821292
-
Re,
Le probleme est la non affectation des variables E et M.
