Discussion :

[tamtam64]

Bonjour,

Je souhaite faire une macro qui recupere le format d'une cellule et QUI le copie sur un autre range

En fait l'utilisateur peut modifier la celulle , son format , son positionnement , couleur etc et quand il lance la macro sa copie le formatage

Alors deux choses, j'ai un probleme vu que j'utilise un select issu de l'enregistreur de macro, donc c'est pas tres stable comme methode , et je sais pas trop comment le modifier, (si on se positionne sur la bonne feuille effectivement ca marche bien et ca fait bien ce que je veux )
Donc mon probleme c'est remplacer le select pour utiliser cette methode. Sinon si quelqu'un a une autre methode pour recuperer tout le formatage je suis preneur.
explication:

Ma fonction prend en parametre un range qu'il va parcourir
Mon dictionnaire DicoPerimetres(Key).Format me donne un chifre une sorte de reference et DicoFormat(cettereference) me donne le range dont je veux copier le format.
Tout ca ca marche donc pas de probleme . je preferais quand meme expliquer un peut pour etre au claire.

Merci d'avance au champions qui vont m'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
    'applique un format
Sub Formatage(ByRef AllRange As Range)
    Dim MyRange As Range
    For Each MyRange In AllRange
            'ByVal NumRef As Byte, ByRef MyRange As Range
        Dico_Format((Dico_Perimetres(MyRange.Value).Format)).Copy
        MyRange.Select
        Selection.PasteSpecial Paste:=xlPasteFormats
    Next MyRange
End Sub

[joe.levrai]

Bonjour,

je ne comprend pas l'intérêt d'un dictionnaire


un .Copy suivi d'un PasteSpecial suffit amplement ?

[tamtam64]

Dsl je ne peux pas presenter mon projet en entier mais c'est quelque chose de parametrable au max pour des gens qui ne savent pas forcement coder , donc l'utilite des dictionnaires est réélle.

Par contre ma question est vraiment sur la possibilite de recuperer le format et uniquement le format, car je veux que l'utilisateur puisse modifier un petit range de 5 case et puisse modifier le code couleur d'un tableau de données financieres qui sera envoyé par outlook, donc la presentation est vraiment importante .

En fait mon code marche mais le select me plais pas trop et je voudrais eviter de devoire faire un activate (que j'ai pas mis) puis un select , je me demande si ya une autre methode que ca

[joe.levrai]

tu veux simplement virer le .Select et le Selection ??

Code :

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

MyRange.PasteSpecial Paste:=xlPasteFormats

il serait temps de rationaliser tes écritures et de développer tes acquis, avant de monter des "applications complexes"

[tamtam64]

Je suis en stage! je suis la pour apprendre...

[joe.levrai]

Disons que nous avons déjà eu une discussion à ce sujet, et que tu semblais y indiquer avoir compris comment les éviter :

http://www.developpez.net/forums/d15...er-l-utiliser/


et preuve qu'on est tous là pour apprendre, voir les deux derniers messages de la discussion entre bbil et moi
(personne n'est parfait et personne n'a la connaissance ultime)


la critique était constructive, te lancer à corps perdu dans des fonctionnalités complexes ... pour bloquer sur des virgules de premier niveau, c'est frustrant (je le sais pour avoir commencé comme ça avec VBA, avant de changer mon fusil d'épaule)

prendre le temps de régler ces petites choses, ça t'en fera gagner énormément pour la suite
c'est de l'investissement où le retour est toujours payant