Besoin d'aide VBA

Fermé
zizou97 Messages postés 2 Date d'inscription vendredi 9 juillet 2010 Statut Membre Dernière intervention 9 juillet 2010 - 9 juil. 2010 à 08:51
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 9 juil. 2010 à 09:40
Bonjour,
J'aurais besoin d'un petit coup de main svp

Voici mon code sur VBA:

Sub quota()
Dim i, k As Integer
nbligne1 = Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Rows.Count
nbligne3 = Workbooks("Ecoles2008").Sheets("Feuil3").UsedRange.Rows.Count
For i = 1 To nbligne1
For k = 1 To nbligne3
If Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Cells(i, 1) Like Workbooks("Ecoles2008").Sheets("Feuil3").UsedRange.Cells(k, 2) Then Workbooks("Ecoles2008").Sheets("Feuil3").UsedRange.Cells(k, 5) = Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Cells(i, 70) + Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Cells(i, 70)
Next k
Next i
End Sub


quand j'essaie d'exécuter une erreur s'affiche :

"erreur d'exécution 9 : l'indice n'appartient pas à la sélection"

Est-ce que quelqu'un a une idée?

merci

2 réponses

zizou97 Messages postés 2 Date d'inscription vendredi 9 juillet 2010 Statut Membre Dernière intervention 9 juillet 2010
9 juil. 2010 à 09:28
en fait c'est bon j'ai trouvé le problème : le nom de la feuille n'était pas correct
0
bonjour
j ai une personne qui n arrete pas de m onvoyer des message
je voudrai trouver son nom d apres son num de telephone.
quelqun peu maider?
merci
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 juil. 2010 à 09:40
Quel est le rapport de ce post avec la question posée ?
0