Sélection choix multiple

Re : Sélection choix multiple

Je remonte ce post afin de pouvoir bénéficier d'une aide merci.

Re : Sélection choix multiple

Salut,
je rentre tout juste de vacances!...



'1/ajout colonne effectuée et modif en vba/"Feuil2 (Anne Franck (2))" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'si plus d'une cellule selectionnée : sortir
If Selection.Count <> 1 Then Exit Sub

'si selection case défaut vélo : ouvrir l'userform1(dans repertoire Feuilles à gauche)
Set Sel = Range("G7:G500") ' plage au lieu de Set Sel = Range("F7:F500")
'si la cellule appartient aux cellules "défaut"...
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
UserForm1.Show
End If
End Sub

'2/ajustement de la colonne "défaut" apres avoir ajouté des défauts
Columns("G:G").EntireColumn.AutoFit

voir tout ça en piece jointe
Dis moi
Fred

Re : Sélection choix multiple

Nickel comme d'habitude tu es un chef merci 😀