Discussion :

[Runsh63]

Bonjour,

J'ai tapé du code pour copier / coller certaines cellules en fonction de leur contenu. Au moment de l'exécution de cette macro, le message "Dépassement de capacité" apparaît. Je n'ai aucune idée du pourquoi donc de la façon de parer à ce problème. Pourriez-vous m'aider à résoudre ce souci SVP ? Merci d'avance ! Ci-dessous le code que j'ai tapé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub TraitementDonnées()
 
Application.ScreenUpdating = False
 
'Déclaration et dimension des variables
 
Dim LR1 As Long
 
'Chercher les données utiles et les copier dans l'onglet "Données intermédiaires"
 
    With Sheets("ALE")
 
        For LR1 = .Cells(.Rows.Count, 10).End(xlUp).Row To 1 Step -1
            If .Cells(LR1, 1).Value <> "Total" And .Cells(LR1, 10).Value <> "Exc*" Or .Cells(LR1, 10).Value <> "" Then
                .Cells(LR1, 1).Copy Sheets("Données intermédiaires").Range("A" & .Cells.Count).End(xlUp).Offset(1, 0)
                .Cells(LR1, 10).Copy Sheets("Données intermédiaires").Range("B" & .Cells.Count).End(xlUp).Offset(1, 0)
            End If
        Next LR1
 
    End With
 
Application.ScreenUpdating = True
Application.CutCopyMode = False
 
End Sub

Excusez-moi, je viens de trouver mon erreur...

[Daniel.C]

Bonjour,

Tu as mis par mégarde :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells.Count

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Rows.Count

Le nombre de cellules d'une feuille est si grand avec XL2007 que la MS a dû inventer une nouvelle méthode pour les compter : "CountLarge"