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 -
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!
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!
A voir également:
- Erreur d'execution 13 : incomptabilite de type
- Fifa 13 - Télécharger - Jeux vidéo
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur upes 1025 - Forum Téléviseurs
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question