Echec de la méthode select de la classe range

[mfb]

Bonjour le Forum,
La macro lancée par clic sur cellule génère le bug de type énoncé dans l'objet de ce fil.
Un petit coup d'œil sur le fichier joint vous en dira je pense un peu +
Je reste à votre dispo pour + d'infos
Merci d'avance votre aide
A+
Daniel

 

[jpb388]

Re : Echec de la méthode select de la classe range

Bonjour à tous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
If Not Intersect(Target, Range("E5:AI5,E7:AI7,E9:AI9,E11:AI11,E13:AI13,E15:AI15,E17:AI17,E19:AI19,E21:AI21,E23:AI23,E25:AI25,E27:AI27")) Is Nothing Then
MsgBox "Coucou"
x = Target.Value

If x = 0 Then Exit Sub

Sheets("Fe2").Select
Sheets("Fe2").Range("B" & x & ":V" & x).Select

End If

End Sub

ne pas nommer tes feuilles f1,f2 car = celleule mais fe1,fe2

 

[Paf]

Re : Echec de la méthode select de la classe range

Bonjour

plutôt que: Range("B" & x & ":V" & x).Select

écrire :Sheets("f2").Range("B" & x & ":V" & x).Select ou WorkSheets("F2").Range("B" & x & ":V" & x).Select

A+

Edit : bonjour jpb388,
F2 ou FE2 l'un ou l'autre peuvent être des adresses de cellules

 

[jpb388]

Re : Echec de la méthode select de la classe range

re
bonjour Paf
tout a fait exact
je fais mon mea-culpa
cordialement
jp

 

[mfb]

Re : Echec de la méthode select de la classe range

Re,
C'est tout bon.
Merci à vous deux et
bonne journée.
A+
Daniel