Fusionner puis afficher le texte au milieu? Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
FrancisZheng
Membre habitué
Membre habitué
Messages : 58
Inscrit le : 29 octobre 2015
Version d'Excel : 2007 FR

Message par FrancisZheng » 4 novembre 2015, 16:05

Je voudrais fusionner de Cells(a,b) à Cells(c,d)
C'est-à-dire fusionner de ligne a à ligne c et de colonne b à colonne d puis afficher "texte" au milieu de cet ensemble de cellules .
Sub test()
Dim a, b, c, d As Integer
a = 1
b = 3
c = 5
d = 7
'...
End Sub
Merci d'avance :mrgreen:
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 2
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 4 novembre 2015, 22:25

Bonsoir

A vérifier
Sub test()
Dim a As Long, b As Integer, c As Long, d As Integer

  a = 1
  b = 3
  c = 5
  d = 7
  With Range(Cells(a, b), Cells(c, d))
    .Merge
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
  End With
  Cells(a, b) = "texte"
End Sub
Image
F
FrancisZheng
Membre habitué
Membre habitué
Messages : 58
Inscrit le : 29 octobre 2015
Version d'Excel : 2007 FR

Message par FrancisZheng » 5 novembre 2015, 08:30

C'est parfait:) Merci. Problème résolu
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message