aide sur un complement de fonction

[tinet]

Voici mon problème.
je suis en train de construire un petit fichier de planification de travail sur une journée, qui calcule quart d'heure par quart d'heure les tâches de la journée.
J'ai créé deux macro.
La première fusionne plusieurs cellules afin de permettre d'insérer un texte (tâches à effectuer)
la deuxième macro, elle annule la fusion.
jusque-là tout fonctionne.

Mon problème est que chaque cellule comporte une valeur pour permettre de calculer les heures, lors de la fusion des cellules la valeur de chaque cellule est supprimée pour ne garder que la valeur de la cellule de gauche .
j'ai besoin de trouver une solution sur la deuxième macro quand j'annule la fusion des cellules, pour que je puisse retrouver systématiquement dans chaque cellule la valeur de calcul des heures.
Je ne sais pas si j'étais suffisamment clair.
je vous mets en copie mon fichier

Merci de votre aide Vincent 🙂

 

[kjin]

Re : aide sur un complement de fonction

Bonjour et bienvenue,

je vous mets en copie mon fichier

Il n'est manifestement pas passé
Fichier xls ou zip 48ko max
A+
kjin

 

[tinet]

Re : aide sur un complement de fonction

Bonjour,

Voici le fichier

 

[tinet]

Re : aide sur un complement de fonction

Bonjour,

je ne suis pas un habitué, je viens de rajouter le fichier

 

[Lebonetletruand]

Re : aide sur un complement de fonction

Bonjour Tinet,

Si tu rajoutes ceci à la fin de Macro 1, ça semble fonctionner

For Each Cell In Selection
Selection.FormulaR1C1 = "0"
Next

Tiens moi au courant sinon

A+

 

[tinet]

Re : aide sur un complement de fonction

Bonjour Lebonetletruand,

je te remercie beaucoup, cela marche parfaitement.

Si je me permets j'aurais éventuellement une autre question.
J'avais trouvé sur un autre fichier mis en ligne sur Internet une fonction, qui permettait de de rajouter automatiquement sur la plage des cellules fusionnées un début d'heures et une fin d'heures avec le résultat.
si cela t'intéresse de jeter un oeil, je peux t'envoyer le fichier pour mieux comprendre

 

[Lebonetletruand]

Re : aide sur un complement de fonction

Disons que je ne suis pas expert (loin de là), mais si tu le mets en ligne, de vrais experts de ce site pourront s'y coller aussi.

Je veux bien jeter un oeil mais mes connaissances sont vraiment limitées.

 

[tinet]

Re : aide sur un complement de fonction

Merci,

Voici le modèle.
Ce qui m'intéresse c'est uniquement la partie qui apparaît de la cellule fusionnée, où apparaît le début d'heures et de fin avec le total.

Merci à tous ceux qui peuvent m'aider à ce sujet😛

 

[kjin]

Re : aide sur un complement de fonction

Bonjour,
Une autre façon de saisir les valeurs en sélectionnant une cellule ou une plage de cellules à la souris
A+
kjin

 

[tinet]

Re : aide sur un complement de fonction

Merci Kjin,

c'est super quand on connaît l'informatique.

 

[tinet]

Re : aide sur un complement de fonction

Kjin,

la fonction est superbe, mais j'ai un petit problème maintenant avec le fichier
je ne peux pas modifier ni le nom ni les heures la personne
le curseur me ramène systématiquement sur le menu déroulant
aurais-tu une idée pour régler ce problème merci

 

[kjin]

Re : aide sur un complement de fonction

Re,
Il est vrai...et j'en profite aussi pour faire une autre modif
Rempaces la macro événementielle par celle-ci (fais un copier/coller)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Z As String, Y As Integer
On Error Resume Next
If Not Intersect(Target, Range("E12:BR20")) Is Nothing And Target.Rows.Count = 1 Then 'adapter la plage
    Z = Range("B6")
    Y = Target.Count > 1
    If Y Then
        If ActiveCell <> 0 Then
            Selection.UnMerge
            Selection = 0
            Selection.Font.ColorIndex = 2
            Bordures
        Else
            Application.DisplayAlerts = False
            Selection.Merge
            Application.DisplayAlerts = True
            Selection = Z
            Selection.Font.ColorIndex = 1
            Bordures
        End If
    End If
    If Not Y Then
        If Target <> 0 Then
            Target = 0
            Target.Font.ColorIndex = 2
            Else
            Target = Z
            Target.Font.ColorIndex = 1
        End If
    End If
Range("B6").Activate
End If

End Sub

A+
kjin

 

[tinet]

Re : aide sur un complement de fonction

Kjin,

Merci, je réglerai le problème pour ajouter les lignes et copier le champ.
car la fonction ne permettent pas de de faire un copier coller
et comment peux-tu procéder dans la formule si l'on veut colorier les plages horaires de travail en couleur.

J'avais trouvé également dans un fichier la possibilité de faire apparaître dans le champ le temps de la tâche (fichier mis à disposition un peu plus haut)

Tinet.

 

[tinet]

Re : aide sur un complement de fonction

aide.

Merci à vous

 

[kjin]

Re : aide sur un complement de fonction

Bonjour,
Un tableau vertical serait sans doute plus lisible mais bon...
A+
kjin