Microsoft 365 Calendrier

[Niks]

Bonjour,

pour commencer je débute dans les vba et macro et je n'ai pas de notion de code.
J'ai fait ce calendrier avec l'aide d'un tuto sur Youtube, il me permet d'inscrire une date automatiquement dans une cellule quand je la choisi dans le calendrier.
Regarde la pièce jointe 1105916

J'aimerais l'améliorer en ayant la possibilité de choisir une deuxième cellule sans modifier la première.
la logique voudrait que la commande soit (si la cellule "b6" est déjà rempli alors tu utilise la cellule b7) mais le soucis c'est que partout ou je passe sur le net je ne trouve rien qui s'adapte à ma situation.

voici ma commande en VBA sur laquelle je voudrait rajouter cette option :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
    If Not Intersect(Target, Range("K4:Q9")) Is Nothing Then
        Range("D2").Value = Target.Value
      
    End If

End Sub

j'espère avoir été assez clair dans ma demande est que j'ai bien expliquer, je vous remercie d'avance

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu
If Not Intersect(Target, Range("K4:Q9")) Is Nothing Then
if len(range("D2").value))=0 then
Range("D2").Value = Target.Value
else
Range("D3").Value = Target.Value
endif
End If
J'espère que cela répond à ton problème
A+ François

 

[Niks]

Bonjour est merci pour cette réponse
je vous transmet du coup le fichier (pas du tout penser la première fois) car du coup j'ais un soucis avec la ligne:
if len(range("D2").value))=0 then

Je vous remercie

 

[fanfan38]

et moi j'aurai vu que j'avais une parenthèse de trop... lol

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("K4:Q9")) Is Nothing Then
    If Len(Range("D2").Value) = 0 Then
        Range("D2").Value = Target.Value
    Else
        Range("D3").Value = Target.Value
    End If
  End If
End Sub

A+ François

 

[Niks]

Merci beaucoup cela fonctionne nickel
en effet une simple parenthèse qui ne me saute pas encore au yeux mais bon ça viendra

merci

 

[patricktoulon]

re
Bonjour
ouais sauf que si tu veux changer en cas d'erreur ou autres ben tu est obligé d'aller vider la cellule voulue en "D"
donc si tu sélectionnais une des deux cells en "D"(vide ou pas vide) avant d'utiliser le calendrier
afin de pouvoir jouir du calendrier tout le temps sur tes deux cells
ça serait pas mieux ?

Dim oldcell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 4 Then Set oldcell = Target: Exit Sub
    If Not Intersect(Target, Range("K4:Q9")) Is Nothing And Not oldcell Is Nothing Then oldcell = Target.Value
End Sub

 

[patricktoulon]

je dirais même plus précis
vide ou pas vide tu sélectionne celle que tu veux en D23 et tu choisi dans ton calendrier
si par erreur tu choisissais les deux cells en même temps c'est la D2 qui prime

Dim oldcell As Range 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D2:D3")) Is Nothing Then Set oldcell = Target(1): Exit Sub
    If Not Intersect(Target, Range("K4:Q9")) Is Nothing And Not oldcell Is Nothing Then oldcell = Target.Value
End Sub

 

[Niks]

Merci pour vos réponse
les 2 solution me vont parfaitement merci pour tout.