Erreur VBA

Résolu
Mikel.d Messages postés 199 Date d'inscription dimanche 6 janvier 2013 Statut Membre Dernière intervention 26 juin 2024 - 22 mars 2024 à 13:03
Mikel.d Messages postés 199 Date d'inscription dimanche 6 janvier 2013 Statut Membre Dernière intervention 26 juin 2024 - 23 mars 2024 à 10:23

Bonjour,

Il y a bien longtemps que je n'ai plus pratiqué le VBA Excel ! Dans ce petit bout de code:
1     For i = 0 To 13
2     ActiveSheet.Range("$A$8:$RR$3461").AutoFilter Field:=3, Criteria1:="R" & i
3     Range("CJ" & i & ":RR" & i).Select     
4    Selection.Copy
5    Sheets("Feuil1").Select
6    Range("B" & i).Select
7    ActiveSheet.Paste
8   Next i

Je bloque sur une erreur en ligne 6 ???




   
       
       
       
       
       


Windows / Chrome 123.0.0.0

1 réponse

yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 Ambassadeur 1 551
22 mars 2024 à 14:30

bonjour,

la ligne 0 n'existe pas.

For i = 0 To 13
    ' ...
    Range("B" & i).Select
Next i
1
Mikel.d Messages postés 199 Date d'inscription dimanche 6 janvier 2013 Statut Membre Dernière intervention 26 juin 2024
23 mars 2024 à 10:23

Merci pour ta réponse ... 
Effectivement, en partant de i=1 ça fonctionne mieux !
Cordialement, Mikel

0