Erreur d'execution 13 : incomptabilite de type

btrends Messages postés 9 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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!

5 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  2. Utilisateur anonyme
     
    Bonsoir

    Essaie en ajoutant End If avant End Sub, normalement s'il y a un if il y a un end if
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,
    If Cells(i, E).Value = "Hong Kong" Then N = N + 1
    pas besoin de end if
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    Le probleme est la non affectation des variables E et M.
    0