Modification de code

Bonjour à tous

Pouvez-vous avoir l'amabilité de me dire où dans ce code ci-dessous je peux supprimer le fait que mes coches soient sur 250 lignes.

Je souhaiterai avoir les coches uniquement sur C,D et E en ligne 7.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim isect, Z$, plage

Dim Flig&, ig&

Flig = Cells(Rows.Count, 1).End(xlUp).Row

plage = "B3:D" & Flig

If Target.Count = 1 Then

Z = Target.Value

Lig = Target.Row

Set isect = Application.Intersect(Target, Range(plage))

If Not isect Is Nothing Then

Range("B" & Lig & ":D" & Lig).ClearContents

Target.Value = IIf(Z = "", "ü", "")

End If

End If

End Sub

Par avance merci

José

Bonsoir José,

Dans ton code VBA, tu as :

Flig = Cells(Rows.Count, 1).End(xlUp).Row                 ' Flig = 250, si c'est la dernière ligne utilisée
plage = "B3:D" & Flig                                     ' plage = "B3:D250"
'...
Set isect = Application.Intersect(Target, Range(plage))   ' Range(plage) => Range("B3:D250")
'...

(à toi de corriger pour que ce soit uniquement sur la ligne 7 ! vérifie aussi les colonnes ! )

dhany

Merci beaucoup

José