Discussion :

[Peerl]

Bonjour la team,

J'ai un code qui effectue la copie des données d'une feuille 1 à une autre feuille 2.
la feuille 2 peut avoir des cellules avec des formules.
J'aimerai que la fonction vérifie si la cellule dans la feuille 2 a une formule, elle ne fait rien ( elle colle pas la donnée dans cette cellule) et passe à la cellule suivante!

est ce que c'est possible ?
la partie du code qui copie la valeur de 1 à 2 :

Code :

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

1
2
3
4
5
  If Not id Is Nothing Then
 
                            .Cells(i, j).Copy Destination:=f2.Cells(id.Row, .Cells(1, j))
 
                        End If

Merci pour votre aide

[MarcelG]

Bonjour Peerl Bonjour le Forum,

Tu peux utiliser la propriété HasFormula.

[Peerl]

Bonjour,
Après avoir ouvert le sujet j'ai continuée mes petites recherches entre temps et j'ai trouvé qu'on pouvait utilsier : HasFormula
et effectivement je vois que tu as confirmé cela et donc pour l'instant le code fonctionne sans soucis après un test rapide à voir!

Edit :

Code :

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

1
2
3
4
5
 If Not id Is Nothing Then
                       If f2.Cells(id.Row, .Cells(1, j)).HasFormula = False Then
                           .Cells(i, j).Copy Destination:=f2.Cells(id.Row, .Cells(1, j))
                       End If
                     End If

Merci

[MarcelG]

Salut Peerl,

Dans le 1er post, tu écris

si la cellule dans la feuille 2 a une formule, elle ne fait rien

Tu n'as pas reporté l'ensemble de ton code, mais la prudence indiquerait de bien définir l'objet Cells en l'argumentant.

2 remarques par ailleurs:

Personnellement, la propriété retournant une valeur booléenne, je préfère l'écriture

Code :

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

.Hasformula = False

Pour plus de clarté, sur tout code, il faut veiller à une indentation la plus rigoureuse qui soit.
Autrement dit, respecter un retrait homogène pour tout bloc (If, Do, With....)

[Peerl]

Effectivement MarcelG, il fallait indiqué la feuille là ou la condition s'applique je viens de modifier mon message précédent (code) avec le .Hasformula= false

Merci