Extension de zone de selection VBA

Bonjour Forum,

je cherche à modifier un code VBA

Actuellement la selection ce fait sur la colonne 3 "C" j'aimerai étendre à une autre colonne 5 "E", et savoir si j'en ai besoin un jour sur un couple de colonnes de 1 à 5 "A" à "E"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 And Target.Row > 1 And Target.Count = 1 Then
        With UserForm1
            If IsDate(Target) Then .MonthView1 = Target Else .MonthView1 = Date
            .StartUpPosition = 0
            .Move Target.Offset(1, 1).Left + 40, Target.Offset(1, 1).Top + 200
            .Show vbModeless
        End With
    Else
        UserForm1.Hide
    End If
End Sub

Merci de m'indiquer la marche à suivre.

Leakim

Salut leakim,

ça devrait fonctionner avec ce bout de code

Dim myRange As Range
Set myRange = Range("C:F")
If Not Intersect(Target, myRange) Is Nothing And Target.Row > 1 And Target.Count = 1 Then

Bonjour j'ai été pris sur autre chose et là pas moyen de faire coller le code...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myRange As Range
     Set myRange = Range("G:H")
        If Not Intersect(Target, myRange) Is Nothing And Target.Row > 1 And Target.Count = 1 Then
            With UserForm1
             If IsDate(Target) Then .MonthView1 = Target Else .MonthView1 = Date
                .StartUpPosition = 0
                .Move Target.Offset(1, 1).Left + 1, Target.Offset(1, 1).Top + 200
                .Show vbModeless
             End With
         Else
        UserForm1.Hide
    End If
End Sub

J'ai fait un truc comme çà et pas moyen de faire apparaître mon calendrier lorsque je clique soit dans la colonne G soit dans la colonne H

D'avance merci,

Leakim

perso, je n'utilise pas les USF, donc incapable de t'aider là dessus, par contre, hier, j'ai écrit un code pour un fichier qui avait un USF qui apparaissait à chaque fois qu'on cliquait dans la zone requise

voila le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Load fm_CalendrierCellule
If Not Intersect([F5:F100,D5:D100], Target) Is Nothing Then
fm_CalendrierCellule.Show
End If
End Sub

et voila le fil de discussion

https://forum.excel-pratique.com/excel/modification-du-contenu-de-cellules-dependantes-t39680.html

Merci c'est nickel ! Cette méthode fonctionne.

Je suis preneur d'une correction du code quand même, mais pour t'avouer à quelque point je suis béotien en VBA : C'est quoi USF ???

Leakim

userform