boucle pour copier/coller

  • Initiateur de la discussion Initiateur de la discussion greg0852
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

greg0852

XLDnaute Nouveau
bonjour à tous,
J'ai une macro que je me sers pour faire un copier/coller de valeurs dans les cellules désignées.
Mon problème est que ma macro ne fonctionne que pour une seule cellule, et donc je dois la répéter à peu prés 6000 fois, puisque ma plage de cellule va de D4 à BM150.
Donc j'essaie désespérément de faire une boucle, mais sans succés.
Auriez-vous une idée de comment je pourrais m'y prendre. merci d'avance
Voici ma macro de base :

Code:
Sheets("Janv").Select
    Range("D4").Select
        If [D4] > 0 Then
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        End If
 
Re : boucle pour copier/coller

Re

modifie ainsi :
Code:
Dim c As Range
For Each c In Sheets("Janv").Range("D4:BM150")
    If c.Value > 0 Then
    With c
        .Copy
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteValues
        End With
    End If
Next c

@+
 
Re : boucle pour copier/coller

Bonjour greg0852, Bonjour et bonne année Pierrot93,
J'avais fait ça, peut être plus rapide:
Code:
Sub Test()
For Each C In Sheets("Janv").Range("D4:BM150")
    If C > 0 Then C.Value = C
Next C
End Sub
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
321
Réponses
10
Affichages
551
Réponses
2
Affichages
286
Réponses
17
Affichages
1 K
Retour