besoin d'aide

[tinet]

😀Bonjour à tous,

J'ai construit un petit fichier de planification, qui a déjà été modifié par certains d'entre vous en apportant des améliorations.
n'ayant malheureusement très peu de connaissances en programmation, je vous soumets mes problèmes😕

le fichier rentre automatiquement le texte situé en b8 quand on sélectionne plusieurs cellule.
premier problème
si je protège ma feuille, la fonction ne marche plus sur la fusion des cellules
deuxième problème
j'ai besoin d'avoir la valeur en heures de la plage sélectionnée (qui correspond à soit....)
Troisième problème
j'ai rajouté en B8 une liste dynamique qui permet de rajouter le texte que l'on veut. si je réponds par oui ça marche
par contre si je réponds par non ça ne marche pas.

Je vous mets en copie de fichiers pour mieux comprendre.
Merci à tous les programmateurs.🙂

 

[tbft]

Re : besoin d'aide

Bonsoir

Réponse rapide à la premiere question: Déprotége au début de la macro et reprotége juste avant de quitter la macro..
Pour le reste il me faut plus de temps...

 

[tbft]

Re : besoin d'aide

Reponse à la deuxieme question

j'ai ajoute les lignes deb fin et delta

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("Fill Color").Visible = True
Dim Z As Range, Y As Integer
On Error Resume Next
If Not Intersect(Target, Range("f11:Bw20")) Is Nothing And Target.Rows.Count = 1 Then 'adapter la plage
    Set Z = Range("B8")
    Y = Target.Count > 1
    If Y Then
        If ActiveCell <> 0 Then
            Selection.UnMerge
            Selection = 0
            Selection.Font.ColorIndex = 2
            Selection.Interior.ColorIndex = xlNone
            Bordures
            Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=f$8=""s"""
    Selection.FormatConditions(1).Interior.Pattern = xlGray16
        Else
            x1 = Selection.Cells(1, 1).Column - 5
            x2 = x1 + Selection.Columns.Count
            x1 = Format((x1 * 0.25 / 24) + 0.25, "h""h""mm")
            x2 = Format((x2 * 0.25 / 24) + 0.25, "h""h""mm")
            deb = Replace(x1, "h", ":") + ":00"
            deb = CDate(deb)
            fin = Replace(x2, "h", ":") + ":00"
            fin = CDate(fin)
            delta = fin - deb
            delta = Format(delta, "h""h""mm")
            Application.DisplayAlerts = False
            Selection.Merge
            Application.DisplayAlerts = True
            Selection = Z.Value & " (" & x1 & " à " & x2 & " soit " & delta & ")"
            Selection.Font.ColorIndex = 1
            Selection.Interior.ColorIndex = Z.Interior.ColorIndex
            Bordures
        End If
    End If
    If Not Y Then
        If Target <> 0 Then
            Target = 0
            Target.Font.ColorIndex = 2
            Target.Interior.ColorIndex = xlNone
            Else
'            x1 = Target.Column - 5
'            x2 = Format(((x1 + 1) * 0.25 / 24) + 0.25, "h""h""mm")
'            x1 = Format((x1 * 0.25 / 24) + 0.25, "h""h""mm")
            Target = Z.Value '& " (" & x1 & "-" & x2 & ")"
            Target.Font.ColorIndex = 1
            Target.Interior.ColorIndex = Z.Interior.ColorIndex
        End If
    End If
Z.Activate
End If

J'ai pas regarder la 3.....

 

[tinet]

Re : besoin d'aide

Bonjour tbft,

Merci c'est super
a+🙂

 

[tbft]

Re : besoin d'aide

Je viens de regarder la 3ieme.

Je ne cromprends pas ou est le probleme!!!!
Peux tu m'éclairer?

 

[tinet]

Re : besoin d'aide

Rajoute un mot directement dans la case B8.
Du type "je range la reception"
Une fenêtre s'ouvre et te demande si tu veux le rajouter à la liste
Si tu répond "oui" ok pas de problème
Si tu répond "non" sa modifie la case B8

A+

 

[tbft]

Re : besoin d'aide

Re,

Je viens de faire un essai.
Il y free que je remplace par toto.
Je répond non à la question : la valeur devient free....
Que devrait elle devenir???

 

[tinet]

Re : besoin d'aide

Oui si tu accepte la valeur par entrée, en répondant par oui ou par non
il n'y a effectivement aucun problème

maintenant tu modifies en B8 puis tu sélectionnes un un champ avec la souris en glissant
la tu réponds non et voila il modifie la case B8.
Je ne sais pas comment régler ce problème

 

[tbft]

Re : besoin d'aide

Bonjour

Serait il possible de mettre à disposition la dernière version stp???
Je ne la trouve plus....

 

[tinet]

Re : besoin d'aide

Bonjour,

Voici le fichier il à déjà évolué.

Merci 😱
a+