SplitColumn pose problème

Bonjour à tous,

Sub blabla()
   With ActiveWindow
      .FreezePanes = False
      .SplitColumn = 0
      .SplitRow = 0
''     ActiveSheet.Rows("1:" & pLig - 1).EntireRow.Hidden = True
      .SplitColumn = 1
      .SplitRow = 6
      .FreezePanes = True
   End With
End Sub

Depuis peu, .SplitColumn bloque le déroulement du code.

Le souci semble provenir des mises à jour Excel et Windows car, le souci survient aussi sur plusieurs machines et sur les anciens fichiers.

Est-ce quelque chose qui vous parle ?

Merci à l'avance de votre temps.

R

Bonjour

A tester

On Error GoTo ErrorHandler
With ActiveWindow
   .FreezePanes = False
   .SplitColumn = 0
   .SplitRow = 0
   .SplitColumn = 1
   .SplitRow = 6
   .FreezePanes = True
End With
Exit Sub

ErrorHandler:
MsgBox "Erreur : " & Err.Description

si cela convient passez le sujet en résolu

Bonjour à tous,

Merci pour la suggestion.

Malheureusement, cela ne fonctionne pas plus.

Il n'y a plus d'erreur, mais aucun traitement non plus.

R

bonjour

Peux tu envoyer le code complet

Bonjour,

Je suis vraiment gêné, j'ai confondu .SplitColumn et .ScrollColumn.

.SplitColumn et .SplitRow ont fonctionné durant un an. Possiblement, une mise à jour Windows Ou Excel a engendré le souci.

En changeant pour .ScrollColumn et .ScrollRow, tout est revenu fonctionnel.

Désolé de ma confusion.

R