Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

Il y a 63 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

erreur d'execution 13

 
n°19321
Besextyl
Profil : Jeune recrue
Posté le 01-07-2008 à 10:22:05  profilanswer
 

Bonjour, je suis un amateur en vba (pas au sens grec du terme mais un vrai debutant!), je veux faire une petite macro qui recupere certaines informations dans toutes les feuilles de mon classeur et les mets dans une meme feuille de synthese. Voilà mon code:
 
Sub Recup_info_index()
 
Dim xWs As Worksheet
 
For Each xWs In worksheets
 
    For j = 4 To 28
        For k = 3 To 9
            For i = 4 To 14 Step 2
                Worksheets("Synthese" ).Cells(j, k) = Worksheets(xWs).Cells(2, i)
            Next
        Next k
    Next j
Next xWs
 
End Sub
 
et donc erreur execution type 13 ligne...
 
A l'aide s'il vous plait......
D'avance merci.

n°19322
pyrof
Profil : Jeune recrue
Posté le 01-07-2008 à 14:15:49  profilanswer
 

Bonjour
 
Je ne comprends pas bien tes différents For
 

Sub Recup_info_index()
For Each Ws In Worksheets
    xWs = Ws.Name
    If wWs <> "Synthese" Then
        ligne = ligne + 1
        col = 2
            For i = 4 To 14 Step 2
                col = col + 1
                Worksheets("Synthese" ).Cells(ligne, col) = Worksheets(xWs).Cells(2, i)
            Next
    End If
Next
End Sub


 
 
 


Aller à :
Ajouter une réponse