Erreur "subscript out of range" [Résolu]
znort25x12
- Messages postés
- 6
- Date d'inscription
- lundi 25 mars 2013
- Dernière intervention
- 22 janvier 2014
- Messages postés
- 6
- Date d'inscription
- lundi 25 mars 2013
- Dernière intervention
- 22 janvier 2014
A voir également:
- Vba subscript out of range
- Vba excel subscript out of range error 9 - Meilleures réponses
- Visual basic subscript out of range - Meilleures réponses
- Runtime error 9: subscript out of range ✓ - Forum - Visual Basic 6
- Il me dit: vector subscript out of range!!! ✓ - Forum - C++ & C++ .NET
- Runtime error 9 Subscript out of range ✓ - Forum - Visual Basic 6
- Subscript out of range ??? SVP vous pouvez me dire pourquoi? ✓ - Forum - Visual Basic
- Problème index out of range avec des List<T> ✓ - Forum - C# / .NET
11 réponses
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
Il est vraisemblable que l'une de tes feuilles porte un nom différent de celui utilisé
Par ailleurs : la notation Range("sCS") est assez étrange.
si sCS est le nom que tu as donné à une plage, ce serait Range(sCS)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Il est vraisemblable que l'une de tes feuilles porte un nom différent de celui utilisé
Par ailleurs : la notation Range("sCS") est assez étrange.
si sCS est le nom que tu as donné à une plage, ce serait Range(sCS)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
- Messages postés
- 6
- Date d'inscription
- lundi 25 mars 2013
- Dernière intervention
- 22 janvier 2014
Merci Ucfoutu,
Effectivement, ma feuille "IBD UK transports" devait s'appeler "IBD Transporten". Mais une fois corrigée, j'ai maintenant un nouveau message au même endroit qui indique:
Object does not support this property or method.
J'ai déjà utilisé ce bout de code à maintes reprises et je ne vois pas où 4a pêche.
Effectivement, ma feuille "IBD UK transports" devait s'appeler "IBD Transporten". Mais une fois corrigée, j'ai maintenant un nouveau message au même endroit qui indique:
Object does not support this property or method.
J'ai déjà utilisé ce bout de code à maintes reprises et je ne vois pas où 4a pêche.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
"Mais une fois corrigée, j'ai maintenant un nouveau message au même endroit qui indique:
Object does not support this property or method."
J'attends ta réaction à mon autre observation ! (il y avait DEUX remarques dans mon message précédent ...)
Pour répondre, s'i_l te plait : n'utilise pas le tag "Commentaires", mais le tag "Répondre". Sinon on ne s'y retrouvera plus, dans le fil de cette discussion.
Object does not support this property or method."
J'attends ta réaction à mon autre observation ! (il y avait DEUX remarques dans mon message précédent ...)
Pour répondre, s'i_l te plait : n'utilise pas le tag "Commentaires", mais le tag "Répondre". Sinon on ne s'y retrouvera plus, dans le fil de cette discussion.
- Messages postés
- 6
- Date d'inscription
- lundi 25 mars 2013
- Dernière intervention
- 22 janvier 2014
- Messages postés
- 24136
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Bonjour ucfoutu.
Exemple... si on crée une plage nommée : "Test"
Ce code permettra de la selectionner.
Maintenant la question est de savoir si cette plage "sCS" existe bien.....
eventuellement il pourrait passer par un code de ce genre
Attention aux majuscules/minuscules.. la plage nommée doit être orthographiées correctement!
Par ailleurs : la notation Range("sCS") est assez étrange.Il me semble bien qu'il peut utiliser cette notation pour faire appel à une plage nommée.
Exemple... si on crée une plage nommée : "Test"
Range("Test").Select
Ce code permettra de la selectionner.
Maintenant la question est de savoir si cette plage "sCS" existe bien.....
eventuellement il pourrait passer par un code de ce genre
Sub toto()
If TestPlageNommees("Test") = True Then
Range("Test").Select
End If
End Sub
Function TestPlageNommees(plageName As String) As Boolean
Dim PlageNommees As Name
For Each PlageNommees In ActiveWorkbook.Names
If PlageNommees.Name = plageName Then T = True
Next PlageNommees
If T = True Then
TestPlageNommees = True
Else
TestPlageNommees = False
End If
End Function
Attention aux majuscules/minuscules.. la plage nommée doit être orthographiées correctement!
- Messages postés
- 6
- Date d'inscription
- lundi 25 mars 2013
- Dernière intervention
- 22 janvier 2014
- Messages postés
- 24136
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Le tout est de savoir comment tu as déclaré cette plage ...
Via du code (vba) ou dans excel en utilisant les espaces de noms sur les cellules...
et puis... SCS <> Scs <> sCS.... attention !
Si tu as utilisé du code pour déclarer cette plage..montre le nous.
Via du code (vba) ou dans excel en utilisant les espaces de noms sur les cellules...
et puis... SCS <> Scs <> sCS.... attention !
Si tu as utilisé du code pour déclarer cette plage..montre le nous.
- Messages postés
- 6
- Date d'inscription
- lundi 25 mars 2013
- Dernière intervention
- 22 janvier 2014
j'ai nommé la cellule sous excel.
Ensuite, le non Scs change de cellule suivant le résultat trouvé. Le résultat est cherché avec le code suivant (dans un autre module qui renvoie ensuite au module de création de l'email)
Sheets("DATA").Activate
Dim sFind
Dim nSearch5 As String
nSearch5 = Range("SalesTransportUK").Value
Set sFind = Sheets("DATA").Columns(20).Find(nSearch5, LookIn:=xlValues, MatchCase:=False)
If Not sFind Is Nothing Then
Range(sFind.Address).Name = "sCS"
Range("sCS").Select
Ensuite, le non Scs change de cellule suivant le résultat trouvé. Le résultat est cherché avec le code suivant (dans un autre module qui renvoie ensuite au module de création de l'email)
Sheets("DATA").Activate
Dim sFind
Dim nSearch5 As String
nSearch5 = Range("SalesTransportUK").Value
Set sFind = Sheets("DATA").Columns(20).Find(nSearch5, LookIn:=xlValues, MatchCase:=False)
If Not sFind Is Nothing Then
Range(sFind.Address).Name = "sCS"
Range("sCS").Select
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Statut
Salut
Apparemment, il y a un _ final (à la fin de la dernière ligne) qui ne devrait pas être là.
Pour ce qui est des Range, je ne trouve pas cela choquant.
Avant d'insérer les Ranges dans ta chaine de caractères, affiche leur contenu dans la fenêtre de debug avant, exemple :
Cela permettra de savoir si c'est la structure ou le contenu qui pose problème.
Apparemment, il y a un _ final (à la fin de la dernière ligne) qui ne devrait pas être là.
Pour ce qui est des Range, je ne trouve pas cela choquant.
Avant d'insérer les Ranges dans ta chaine de caractères, affiche leur contenu dans la fenêtre de debug avant, exemple :
Debug.Print Sheets("IBD Transporten").Range("R37").Value
Faire de même avec tous tes ranges.
Cela permettra de savoir si c'est la structure ou le contenu qui pose problème.
- Messages postés
- 6
- Date d'inscription
- lundi 25 mars 2013
- Dernière intervention
- 22 janvier 2014
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.