Discussion :

[frolland46]

Bonjour à tous,
J'ai développé un programme sur Excel 2003. Tout fonctione bien, alors je transmet ce système à mon frère qui a la version 2007 et un message d'erreur de syntaxe apparaît. voici le code pertinent:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If ActiveCell.Row > 15 Then Exit Sub
If ActiveCell.Column > 15 Then Exit Sub
If Selection.Columns.Count = 1 Then Range("R1").Formula = 2 'Sélection Verticale
If Selection.Columns.Count > 1 Then Range("R1").Formula = 1 'Sélection Horizontale
If Selection.Count = 1 Then Range("R1").FormulaR1C1 = 0 'Sélection unique
 
End Sub

Le message n'indique pas l'erreur comme tel.
Quelle est la ligne en faute et par quoi la remplacer pour qu'elle soit compatible.
Ce code sert à déterminer si la sélection de plusieurs cellules contigues est verticale ou horizontale.

Merci de votre aide

[Thierry_94]

Bonjour,
J'ai pris ce code tel quel dans Excel 2007 et je n'ai aucun problème ... il fonctionne parfaitement !
Quelle est exactement l'erreur de syntaxe signalée ?
A+
Thierry