VBA : Copier l'"interior" d'une cellule dans une autreRésolu

Question

Salut à tous,
J'aimerai copier les propriétés d'une cellule dans une autre.
Pour cela, voici mon code :
For i = 3 To 9
    With Cells(i, currentColumn)
        .Font = Cells(i, 1).Font
        .Interior = Cells(i, 1).Interior
        .HorizontalAlignment = Cells(i, 1).HorizontalAlignment
        .BorderAround Weight:=Cells(i, 1).Borders(xlEdgeBottom).Weight
    End With
Next i

Bien entendu, ca ne marche pas-> Lorsque je veux copier l'interior, il me dit que l'object de supporte pas la méthode suivante. Cependant, dans un premier temps, ca avait marché. Quelqu'un saurait me dire pourquoi?
Et surtout, comment faire ce que je veux, au plus simple (Eviter d'écrire une ligne pour chaque propriété)?

Merci beaucoup
@+. Hermios

ucfoutu · Accepted Answer

La méthode copy (et son paramètre destination) copie tout (valeur + mise en forme). A voir dans ton aide VBA.
Mon pseudo, c'est (à peine) moi-même.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bonjour,
il me dit que l'object de supporte pas la méthode suivante. Cependant, dans un premier temps, ca avait marché. Quelqu'un saurait me dire pourquoi?
nous te le dirons quand nous aurons vu avec quel code mystérieux "cela marchait" !

Et surtout, comment faire ce que je veux, au plus simple (Eviter d'écrire une ligne pour chaque propriété)? 
inévitable ! (et raison de mon étonnemnt en 1) !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Hermios · Answer

Salut ucfoutu
J'aime pas ton pseudo, il me fait penser que je suis mal barré ;)
Plus sérieusement, le code pour lequel ca a marché... est exactement le même! Ceci explique cela (ou plutôt, n'explique rien du tout en fait!).
Se pourrait il que ce soit une histoire de format défini ou pas?
Sinon, est il simplement possible de copier toute la celle, contenu+format, puis je changerai le contenu plus tard?

Merci de ta réponse rapide en tout cas :)


@+. Hermios

Hermios · Answer

Parfait, ca marche!
J'ai encore un bug sur la copie, mais si je peux pas le résoudre, j'ouvrirai un autre point. Merci beaucoup de ton aide en tout cas.


@+. Hermios

VBA : Copier l'"interior" d'une cellule dans une autre

4 réponses

Votre réponse

Discussions similaires