Copie VBA cellule + MFC

Bonjour à tous,

Je fais appel à vous car je coince en VBA...

Je souhaite en effet copier/coller des valeurs d'un classeur 1 à un classeur 2, jusque là c'est ok. Mais les valeurs à copier dans le classeur 1 possèdent des mises en formes conditionnelles qui font que certaines sont barrées (ou plutôt les cellules sont barrées). Or avec mon code, je copie bien toutes les valeurs de mon classeur 1, mais lorsque je les colles dans mon classeur 2, celles qui étaient initialement barrées dans mon 1er classeur, se retrouve non barrées dans mon second...

Voici mon code :

If ThisWorkbook.Sheets("FL").Range("R19") = "Alain" Then
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("P7:Q27").Copy
ThisWorkbook.Sheets("Temporaire").Range("B7:C27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Peut être faut-il copier la mise en forme conditionnelle également ?

Merci d'avance pour votre aide !

Cordialement,

Corsaire

Bonjour

essaie ainsi

If ThisWorkbook.Sheets("FL").Range("R19") = "Alain" Then
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("P7:Q27").Copy  _
ThisWorkbook.Sheets("Temporaire").Range("B7:C27")

Bonjour H2SO4,

Malheureusement j'ai toujours le même problème avec ta proposition de code.

La difficulté vient sans doute du fait que les valeurs ne sont pas barrées elles-mêmes mais c'est la cellule qui l'est ...

Bonjour,

je serais curieux de voir tes classeurs, car chez moi cela fonctionne.

Voici les 2 classeurs en question.

Merci pour ton aide !

bonjour,

je n'avais pas bien compris ce que tu cherchais à faire. voici

Sub Macro1()

If ThisWorkbook.Sheets("FL").Range("R19") = "Alain" Then
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("P7:Q27").Copy ThisWorkbook.Sheets("Temporaire").Range("B7:C27")
For i = 7 To 27
If Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("s" & i) = "oui" Then
ThisWorkbook.Sheets("Temporaire").Range("B" & i & ":C" & i).Font.Strikethrough = True
End If
Next i

End If

End Sub

Bonsoir H2SO4,

Merci pour ton aide, c'est vraiment presque parfait !

Je ne t'avais pas mentionné une chose car ça ne me paraissait pas important, mais j'ai découvert que cette petite chose fait que ton code ne marche pas malheureusement... Dans la colonne où l'on choisit "oui" ou "non", c'est en réalité une liste déroulante de choix. La cellule prend bien la valeur "oui" ou "non" mais visiblement avec ton code, il n'arrive pas à le lire.

Vraiment désolé, je pensais pas que ça poserai un problème...

Si tu as une idée pour contourner le problème, je suis preneur.

Corsaire.