Discussion :

[skillipo]

Bonjour

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
     Set sht = wbk.ActiveSheet
 
       ' Mise En Forme des Entetes
 
 
        Range("I6:K6").MergeCells = False ' Then Range("I6:K6").MergeCells = False
        Range("I7:K7").Select
        Selection.Copy
        Range("I6:K6").Select
        ActiveSheet.Paste

mon probleme c'est que la premiere fois que j'importe le document ca marche mais apres ca me fait des erreurs.

je voudrais faire un test du style

Code :

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

1
2
 
 if  Range("I6:K6").MergeCells = True' Then Range("I6:K6").MergeCells = False

mais ca fonctionne pas mieux .

vos idees seront les bienvenu

Merci

[Singular]

Code :

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

1
2
3
4
5
6
7
8
With Range("I6:K6")
  if .MergeCells = True Then
      .UnMerge
      Range("I7:K7").Copy
      .PasteSpecial
      .Merge  ' Peut-être?
  End If
End With