Discussion :

[maxval18]

Bonjour

Je recherche a modifier mon code, j'aimerai que lorsque je copie vers une autre feuille il ya que le texte et les chiffres des cellules concerner qui se copie mais pas les formules ou les MFC

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton4_Click()
[F4:F37].Interior.ColorIndex = 15 'Remise des cellule "F4:F37" en gris avant de les copier
With Sheets(21)
    Sheets(20).Range("D4:AP53").Copy .Range("D4:AP53")
    Sheets(20).Range("D4:AP53").Copy
    .Range("D4:AP53").PasteSpecial xlPasteColumnWidths
 
End With
 Sheets("Imprim_Point").Select
   'Range("A1").Select
 End Sub

Je vous remercie de votre aide

Cordialement

Max

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton4_Click()
[F4:F37].Interior.ColorIndex = 15 'Remise des cellule "F4:F37" en gris avant de les copier
With Sheets(21)
    Sheets(20).Range("D4:AP53").Copy .Range("D4:AP53")
    Sheets(20).Range("D4:AP53").Copy
    .Range("D4:AP53").PasteSpecial xlPasteColumnWidths
    .Range("D4:AP53").PasteSpecial xlPasteValues
End With
 Sheets("Imprim_Point").Select
   'Range("A1").Select
 End Sub

[maxval18]

Bonjour Daniel

Et merci d'avoir répondu.
Mais je n'ai plus de formule qui se copie mais toujours les formules MFC

Y a t-il une un code qui empêche la copie du MFC?

Merci et bonne journée

Max

[Daniel.C]

Au temps pour moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton4_Click()
[F4:F37].Interior.ColorIndex = 15 'Remise des cellule "F4:F37" en gris avant de les copier
With Sheets(21)
    Sheets(20).Range("D4:AP53").Copy
    .Range("D4:AP53").PasteSpecial xlPasteColumnWidths
    .Range("D4:AP53").PasteSpecial xlPasteValues
End With
 Sheets("Imprim_Point").Select
   'Range("A1").Select
 End Sub

[maxval18]

Daniel

Nickel je te remercie beaucoup
juste une dernière petite chose j'ai sur une feuille une MFC qui fonctionne mais j'aimerai lui apporter une modif si tu as le temps bien sur !

je joint mon exemple qui seras plus parlant

Merci d'avance

Max

[Daniel.C]

Utilise la formule :

Code :

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

=NBVAL($K4:$V4)>0