MESSAGE:"l'indice n'appartient pas a la selection"

[BASSDINGUE]

Bonjour le forum

sur la ligne en rouge j'ai un message qui dit que "l'indice n'appartient pas a la selection"
Aquoi cela correspond?

col = Array("aa", "ak", "av", "bg", "z", "bj", "bl")
For n = 0 To Me.Controls.Count - 1
If InStr(Me.Controls(n).Name, "FR") <> 0 Then
For m = 0 To Me.Controls(n).Controls.Count - 1
If Me.Controls(n).Controls(m).Value = True Then
temp = Me.Controls(n).Controls(m).Caption
End If
Next m
MsgBox (n)
L2 = Sheets("table_client").Range("G65536").End(xlUp).Row + 1
With Sheets("table_client")
.Range(col(n) & L2).Value = temp
End With
End If
Next n

Car effectivement si n est le numero de colonne je suis loin du compte

Merci

 

[pierrejean]

Re : MESSAGE:"l'indice n'appartient pas a la selection"

Re

Ce code me rappelle quelque chose !!

Tu aurais du rester sur le fil d'origine
on aurait eu ainsi plus de renseignements

 

[Lii]

Re : MESSAGE:"l'indice n'appartient pas a la selection"

Bonsoir,

En première analyse, avec :

col = Array("aa", "ak", "av", "bg", "z", "bj", "bl")
tu as
col(0)="aa",col(1)="ak"...et col(6)="bl"”.

Donc col(n) n’est défini que pour n =0 à 6 (sept colonnes).


Si Me.Controls.Count – 1 est supérieur à 6 ou si tu as plus de 7 contrôles, ton code produit une erreur quand n est supérieur ou égal à 7, les autres étant quand même traités.

Vérifie cela et teste le code en rajoutant "On Error Resume Next" juste avant la ligne rouge.

 

[BASSDINGUE]

Re : MESSAGE:"l'indice n'appartient pas a la selection"

bonjour pierrejean, lii et le forum

effectivement pierrejean c'est le tien
A tu recu le fichier que je t'ai envoyé?

lii
Avec le message on error resume next cela me donne :139, 157, 161, 164, 190, 195, 200
A quoi cela correspond t-il?

 

[BASSDINGUE]

Re : MESSAGE:"l'indice n'appartient pas a la selection"

pierrejean, lii?
Une idée