Discussion :

[DJAMEL2]

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

[unparia]

Bonjour,

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.

Que veux-tu dire exactement ? Que tu ne veux pas écraser les cellules de ta feuille2 qui contiendraient une formule ?

Si oui : va falloir y aller cellule par cellule ! Dans le meilleur des cas : groupe de cellules par groupe de cellules (colonnes ou autres)

Plus j'y pense, plus la philosophie-même de ton mécanisme me laisse perplexe .

[DJAMEL2]

Merci Mr UNPARIA pour votre réponse,

C'est pas perplexe du tout, je fais des mises à jour périodiques pour les plannings que je l'exporte du MSP et Primavera vers des tableaux excel bien structurer, et pour ne pas chaque mise à jour de refaire ces tableaux surtout pour le reste à réaliser, je voudrais de copier les données importés et les collés avec une condition (seuls les cellules de destination n'on pas de formule); Mais le filtre je crois que ça vas marché; Merci pour le conseil.