Discussion :

[BenoitL77]

Bonjour,
J'ai un problème avec cette macro.
Quand j'ouvre le fichier j'ai des messages d'erreur et la macro s'arrête sur la ligne 5.
Cette ligne de code a pour but de définir la position du mot "fin" en A, ce qui permet ensuite de définir une zone dans laquelle s'applique le If en ligne 7 à 10.

J'ai pu identifier différents cas, selon la configuration du fichier à l'ouverture :
Cas 1:
cellule sélectionnée ailleurs qu'en A et colonne A masquée:

erreur d'exécution 1004:
Le focus ne peut être déplacé sur le contrôle car celui ci est invisible, non activé, ou d'un type n'acceptant pas le focus.

-->Il n'arrive pas à aller en A si la colonne est masquée?

cas 2 :
colonne A affichée et cellule sélectionnée en A ou pas :

erreur d'exécution 1004:
la méthode 'sheet' de l'objet'_global' a échoué

Dans ces 2 cas, c'est toujours sur la ligne 5 que ça plante.

cas3:
cellule sélectionnée en A et colonne A masquée:
pas d'erreur et la macro fait son job !

J'ai également inhibé les lignes 12 à 16, pour tester si le pb pouvait venir de là, mais sans résultat.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'code de la feuille "selection". à chaque clic dans un case :
 
Dim fin As Range
Set fin = Sheets("selection").Range("A15:A60").Cells.Find(what:="fin")  'trouver dans quelle cellule de A est le mot fin
'MsgBox (fin.row)
If (Target.Column = 4 Or Target.Column = 7) And Target.Row >= 13 And Target.Row <= fin.Row Then  'si clic dans la zone définie (par la position de fin) : ajuster la hauteur 
Target.EntireRow.AutoFit
Else: Rows("13:" & fin.Row).RowHeight = 15      'clic ailleurs que dans la zone, toutes les lignes à hauteur 15
End If
 
'si clic dans la zone définie : pas de saisie semi auto, pour éviter saisie d'un mauvais code
If Target.Column = 2 And Target.Row >= 13 And Target.Row <= fin.Row Then
Application.EnableAutoComplete = False
Else: Application.EnableAutoComplete = True     'clic ailleurs que dans la zone, réactiver saisie auto
End If
End Sub

Une idée, une piste, voir une solution?
Merci d'avance
Benoit

[Menhir]

Quand j'ouvre le fichier j'ai des messages d'erreur et la macro s'arrête sur la ligne 5.

Quel est le message d'erreur ?

cellule sélectionnée ailleurs qu'en A et colonne A masquée:

Comment la cellule sélectionnée pourrait être en dehors de la colonne A étant donné que la recherche se limite à la colonne A ?

erreur d'exécution 1004:
Le focus ne peut être déplacé sur le contrôle car celui ci est invisible, non activé, ou d'un type n'acceptant pas le focus.

La méthode Find ne fait pas de focus.
Es-tu sûr que le débugage désigne la ligne 5 quand ce message d'erreur apparait ?

colonne A affichée et cellule sélectionnée en A ou pas :
erreur d'exécution 1004:
la méthode 'sheet' de l'objet'_global' a échoué

Quel est le classeur actif quand cette ligne de code est exécutée ?
Ce classeur contient-il réellement un onglet nommé "selection" ?
Essaye de mettre devant ton Sheets un Workbook désignant son classeur.

[BenoitL77]

Bonjour Menhir,
Merci pour ton retour rapide.
J'ai ajouté un thisworkbook devant mon sheets, et...ça marche !

Code :

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

1
2
Dim fin As Range
Set fin = ThisWorkbook.Sheets("Selection").Range("A15:A60").Cells.Find(what:="fin")

Encore un petit écueil de franchis grâce à toi!

Je trouve étrange qu'il faille préciser le fichier de travail, sachant que cette macro est le code de la feuille "Selection". Il devrait savoir dans quel fichier il se trouve non?

Bonne journée

[Menhir]

Je trouve étrange qu'il faille préciser le fichier de travail, sachant que cette macro est le code de la feuille "Selection". Il devrait savoir dans quel fichier il se trouve non?

Le classeur par défaut est le classeur actif (ActiveWorkbook) et non le classeur contenant la macro (ThisWorkbook), ce qui, personnellement, me semble tout à fait logique.