Code VBA ou formule pour copier des cellules avec mise forme

Bonjour le forum,

J'ai un classeur Excel composé de plusieurs onglets : Notice, Sortie, Partenaires, Arcachon, Gujan, Pessac.

Dans l'onglet Partenaires, j'ai un ensemble de cellules (DM115:DP134) avec des valeurs et une mise en forme (couleur de remplissage de cellule, qui peut être de couleur différente, pour chacune de ces cellules).

Le contenu des ces cellules est copié dans les autres onglets (sauf Notice et Sortie), dans les cellules (N2:Q21).
Quand j'applique la formule "=DM115" dans la cellule N2, de l'onglet Arcachon, j'ai la valeur, mais je n'ai pas la mise en forme.
Je recherche donc une macro ou une formule, qui me permettrait de copier les cellules avec la mise en forme.
Si quelqu'un pouvait m'aider.
Merci beaucoup

Bonjour,

exemple pour arcachon

Code:

---

1 2 3

Sub ioi() ThisWorkbook.Worksheets("Partenaires").Range("DM115:DP134").Copy ThisWorkbook.Worksheets("Arcachon").Range("N2") End Sub

---

Bonjour joe.levrai,

Merci beaucoup pour ton aide.

A partir d'un bouton de commande, dans l'onglet Arcachon, pour effacer la copie des cellules (N2:Q21) avec la suppression de la couleur du fond et faire une RAZ de la feuille, j'ai écris le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub RAZ_Grille_Arcachon()   Range("C18:I76, N2:Q21").Select Selection.ClearContents Interior.ColorIndex = xlColorIndexNone Range("24:78").EntireRow.Hidden = False Range("C18").Select   End Sub

---

Mais j'ai un message d'erreur : Erreur d'exécution '424' : Objet requis

Pourrais-tu corriger le code pour que ça fonctionne.

Il me semble que ça vient de l'instruction :

Code:

---

1 2	Interior.ColorIndex = xlColorIndexNone

---

Parce que sans cette instruction ça fonctionne très bien. Et je ne suis pas très calé en VBA.

Merci encore pour ton aide

Bonjour,

Interior est une propriété appartenant à un objet, ici c'est l'objet Range (une cellule ou une plage de cellules)

l'erreur t'indique que tu ne fais pas référence à l'objet sur lequel tu manipules cette propriété

d'ailleurs, tu utilises des mauvaises pratiques qui consistent :

- à sélectionner une plage (parfaitement inutile)
- travailler sur l'objet "Selection" (tout autant inutile)
- ne pas mentionner la feuille sur laquelle se situe ta plage
- ne pas factoriser les objets qui reviennent dans ta procédure, au travers d'un Bloc With/End With

Par ailleurs, ClearContents nettoie le contenu uniquement (comme son nom l'indique) ... et vu que tu veux aussi nettoyer la couleur intérieure, utilise plutôt Clear qui efface vraiment tout le formatage

voici un exemple qui corrige ça, faut juste mettre le nom de ta feuille sur la première ligne

Code:

---

1 2 3 4 5 6

Sub RAZ_Grille_Arcachon() With Worksheets("NomDeLaFeuille") .Range("C18:I76, N2:Q21").Clear .Range("24:78").EntireRow.Hidden = False End With End Sub

---

Maintenant, il est également inutile de créer une procédure pour chaque feuille
tu peux créer cette procédure standard (dans un module standard) et l'appeler depuis chaque bouton de tes feuilles.
Là, il devient malin de ne plus mentionner la feuille dans la procédure, car par essence en cliquant sur un bouton tu es sur la feuille active où la procédure doit travailler
D'autres mécaniques peuvent faire appel à un paramètre dans l'appel de la procédure mais ça ne me semble pas nécessaire

Bonjour joe.levrai,

Merci beaucoup pour ton aide et les explications.

Très bonne journée.