Fusionner deux cellules excelRésolu

Question

Bonjour à tous, mon probleme est le suivant: depuis vba je veux copier une ligne entiere comportant deux cellules fusionner et des bordures. Comme je ne sais pas comment "inserer les cellules copiées" (ce qui me permettrai de conserver toute la mise en forme) je procede comme ca:

  n = Range("f25")
  i = 0
  Do
  i = i + 1
  Rows(32).Insert
  Loop Until i = n

Le soucis c'est que les cellules E32 et F32 ne sont plus fusionnées, qq'un sait-il soit :
_ comment fusionner a nouveau ces cellules 
_ comment copier la ligne et l'inserer

jrivet · Accepted Answer

Salut,
Si tu utilise Directement Excel, je te conseille (lorsque tu ne sait pas comment faire) d'utiliser l'enregistreur de macro d'excel. il te permet de savoir comment faire les actions utilisateur depuis le code.

Je ne savais pas faire ce que tu demandes, et l'enregistreur m'a donné ceci.
=> le code suivant copie la colonne G et l'insère entre J et K

    Columns("G:G").Select
    Selection.Copy
    Columns("K:K").Select
    Selection.Insert Shift:=xlToRight

Voila, cet outil est tout de même sympa pour se sortir de petit problème.

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

NB: j'ai oublier de te dire que cela copie aussi la mise en pages et les cellules fusionnées

@+: Ju£i?n
Pensez: Réponse acceptée

xavtry · Answer

Merci, j'avais completement oublier cet outils, ca va bien me servir je sens.

Encore merci et @+

Fusionner deux cellules excel

3 réponses

Votre réponse