Discussion :

[juju05]

Bonjour,

Je souhaite renseigner une feuille depuis une autre feuille. Les colonnes D à G de ma feuille cible doivent être fusionnées par ligne.

Pour celà, j'ai codé:

Code :

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

1
2
3
4
5
6
With Worksheets("Feuil1").Range("E" & k & ":G" & k)
                  .MergeCells = False
                  .MergeCells = True
                  .HorizontalAlignment = xlCenter
                  .VerticalAlignment = xlCenter
           End With

Après exécution, mes cellules ne sont pas fusionnées. Pourquoi ?

[Invité]

bonjour,
test avec .MergeCells =true

[78chris]

Bonjour

Sachant que la fusion de cellules est une des plaies d'Excel, ne serait-il pas plus judicieux de centrer sur les trois colonnes (centrer sur plusieurs colonnes), : résultat visuel identique sans les inconvénients des fusions ?

[gnain]

Code :

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

Worksheets("Feuil1").Range("E" & k & ":G" & k).Merge

[juju05]

Le centrage sur plusieurs colonnes me paraît être une bonne idée mais l'instruction que j'ai trouvé sur le web ne fonctionne pas:

Code :

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

1
2
3
4
With Worksheets("Feuil1").Range("E" & k & ":G" & k)
                .HorizontalAlignment = xlCenterAcrossSelection
                .VerticalAlignment = xlCenter
           End With

[78chris]

Re


Il faut adresser les cellules pas le range

Code :

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

1
2
3
4
5
 
    With Worksheets("Feuil1").Range("E" & k & ":G" & k).Cells
                .VerticalAlignment = xlCenter
                .HorizontalAlignment = xlCenterAcrossSelection
    End With

J'ai inversé les 2 lignes car il arrive, très occasionnellement, que le centrage vertical impacte l'autre (en général sur des fichiers issus d'une ancienne version)

[juju05]

Adresser les cellules ne change rien. Lorsque je regarde le format de cellule dans l'onglet alignement, je l'ai toujours centré.

Je ne sais plus quoi faire

[78chris]

RE

Chez moi cela fonctionne avec le code que j'ai posté mais mes cellules n'étaient pas fusionnées au préalable...