Erreur d'exécution 9 - l'indice n'appartient pas a la selection
vluciano
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
lorsque je lance ma macro j'ai cette erreur, qui correspond ( d'apres ce que j'ai compris) a un probleme d'indice.
cependant je ne comprends pas d'ou vient le pb
#Dim der As Long
#Dim som() As Long
#der = Range("N9").End(xlToRight).Column
#ReDim som(der) As Long 'creer une var tableau pour le nombre de box potentielles
#Erase som
#Sheets("BBD").Activate
#Dim b As Long
#Dim sup As Long
#b = 0
'remplir le tableau avec les sommes
#For colonne = 14 To der 'colonne par box
#sup = 0
#For lignesdates = debut To fin 'lignes dates
#sup = sup + Cells(lignesdates, colonne)
#Next lignesdates
#If sup <> 0 Then
#som(b) = sup
#b = b + 1
#Else
#End If
#Next
#ReDim Preserve som(b) As Long
lorsque je lance ma macro j'ai cette erreur, qui correspond ( d'apres ce que j'ai compris) a un probleme d'indice.
cependant je ne comprends pas d'ou vient le pb
#Dim der As Long
#Dim som() As Long
#der = Range("N9").End(xlToRight).Column
#ReDim som(der) As Long 'creer une var tableau pour le nombre de box potentielles
#Erase som
#Sheets("BBD").Activate
#Dim b As Long
#Dim sup As Long
#b = 0
'remplir le tableau avec les sommes
#For colonne = 14 To der 'colonne par box
#sup = 0
#For lignesdates = debut To fin 'lignes dates
#sup = sup + Cells(lignesdates, colonne)
#Next lignesdates
#If sup <> 0 Then
#som(b) = sup
#b = b + 1
#Else
#End If
#Next
#ReDim Preserve som(b) As Long
A voir également:
- Erreur d'exécution 9 - l'indice n'appartient pas a la selection
- Indice téléphonique - Guide
- A qui appartient ce numéro - Guide
- A qui appartient ce numéro de gsm belgique ✓ - Forum Opérateurs & Réseaux mobiles
- Erreur 0x80070643 - Accueil - Windows
- Erreur t32 ✓ - Forum Livebox
#Dim somgrilles As Long
#somgrilles = 0
#Dim lo As Long
#For lo = 0 To b
#somgrilles = somgrilles + Ceil(som(lo) / 13)
#Next lo
c'est quoi ce truc: Ceil(som(lo) / 13) !!!!
Ce code est dans la meme procedure que le pressent ou pas????