Discussion :

[capi81]

Salut le forum

Merci de m'aider à corriger l'erreur sur mon code.

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
Sub Copie_Agences()
    Dim I As Long
    Dim arrCellules As Variant
    Dim Feuille As Worksheet
 
    'Plage des cellules à copier
    arrCellules = Array("A5:B34")
 
    For Each Feuille In Worksheets
        If Feuille.Name <> "Analyse des comptes" And Feuille.Name <> "PM DR" Then
            For I = 0 To UBound(arrCellules)
                Sheets("Analyse des comptes").Range(arrCellules(I)).Copy Feuille.Range(arrCellules(I)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            Next
        End If
    Next
End Sub

L'erreur est apparue quand j'ai ajouté ce code :

Code :

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

PasteSpecial Paste:=xlPasteValuesAndNumberFormats

merci d'avance

[Marc-L]

Bonjour, bonjour !

La boucle est inutile et elle ralentit l'exécution de la procédure ‼

Copier directement la plage de cellules comme indiqué dans l'aide VBA de la méthode Range.Copy.
La ligne PasteSpecial est indépendante, là aussi en consultant son aide …

Et puis rien qu'en activant le Générateur de macros puis en effectuant manuellement l'opération,
la solution est livrée sur un plateau !

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

[capi81]

Salut Marc

Merci pour vos conseils.
Je vais essayé de le mettre en pratique.

Merci