Discussion :

[Sergio33600]

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 (DM115P134) 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

[joe.levrai]

Bonjour,

exemple pour arcachon

Code :

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

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

[Sergio33600]

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 :

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

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 :

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

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

[joe.levrai]

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 :

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

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

[Sergio33600]

Bonjour joe.levrai,

Merci beaucoup pour ton aide et les explications.

Très bonne journée.