Autres [RESOLU] Déclaration de variable

[un internaute]

Bonjour le forum
option explicit et moi ça fait deux!!!
Je n'avais pas pris l'habitude de le faire et quelques fois ça bug mais j'y arrive mais là je n'y arrive pas ou faut pas le mettre

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("H4:H15"), Target) Is Nothing And Target.Count = 1 Then
      Target = Int(Range("E" & Target.Row) - Sheets("Année 2016").Range("E16"))
      Cancel = True
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("E4:E15"), Target) Is Nothing And Target.Count = 1 Then
    If IsNumeric(Target) And Target <> "" Then
      Application.EnableEvents = False
      Target.Formula = "=" & Target & "+'Année 2016'!E16"
      Application.EnableEvents = True
    End If
    Cancel = True
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)         'Lancer la macro DeplacerCommentaires.Cliquer sur cellule d'origine des commentaires => OK puis cellule de Destination => OK
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, [A2:A16], [F2:F16]) Is Nothing Then Exit Sub   'Jouer sur [[A2:A16], [F2:F16] pour la plage des commentaires à déplacer
  If Not Target.Comment Is Nothing Then
Cancel = True
End If
End Sub

 

[TooFatBoy]

Bonjour,

Option Explicit est ici inutile. Tu peux donc le supprimer, mais ça ne changera rien.
Ton problème vient du "Cancel = True", alors que la procédure n'utilise pas de variable "Cancel".

Dans quel but as-tu mis cette ligne d'instruction :

If Not Target.Comment Is Nothing Then Cancel = True

edit : Bonjour mapomme

 

[mapomme]

Bonjour @un internaute ,

Mettre ou ne pas mettre Option Explicit est de la responsabilité ou de la préférence de l'utilisateur.

Je ne vois pas en quoi, si le code est bien écrit et pensé, ce qui ferait qu'il ne fonctionnerait pas avec ou sans l'Option Explicit.

Personnellement je tape toujours comme un débutant et je préfère mettre l'option pour éviter les fautes de frappe dans mes variables (avec une petite tendance à une très légère dyslexie).

nota : bonjour @TooFatBoy .

 

[un internaute]

Merci à tous
La ligne de code ne sert plus je crois
Mis en commentaires on verra bien
Bonne fin de journée

 

[TooFatBoy]

La ligne de code ne sert plus je crois
Mis en commentaires on verra bien

Donc la procédure devient ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)         'Lancer la macro DeplacerCommentaires.Cliquer sur cellule d'origine des commentaires => OK puis cellule de Destination => OK
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, [A2:A16], [F2:F16]) Is Nothing Then Exit Sub   'Jouer sur [[A2:A16], [F2:F16] pour la plage des commentaires à déplacer
End Sub

Pas très utile... Autant la supprimer.

 

[un internaute]

Bonjour TooFatBoy
J'ai fait on verra si ça bug
Merci à toi
Bonne journée