Bonjour Blogueurs,

Merci de m'assister sur le problème dont je voudrais copier de la feuil1 à feuil2 mais avec une condition: c'est de garder les cellules de destination de la feuil2 qui contient des formules sans collage, j'ai essayé avec cette boucle mais le collage se fait entièrement sans la condition de formule.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub calculation_On()
wrkSheet5.Columns(2).ClearContents
     derLig = wrkSheet5.Range("b" & Rows.Count).End(xlUp).Row
 
     For b = 1 To derLig
     If wrkSheet5.Cells(b, 1).HasFormula = True Then
 
     Else
       wrkSheet4.Range("a3:a500").Copy wrkSheet5.Range("b3:b500")
     End If
     Next     
 
End Sub