une fenetre pour indiquer le nombre de cellules sectionnées

[pascal21]

bonsoir
je me demandais si il était possible lorsque je selectionne plusieurs cellules, d'avoir une fenetre indiquant le nombre de cellules selctionnées
ou même mieux ,sachant qu'une cellule vaut 15mn,quel est la durée selectionnée
je m'explique: j'ai de la colonne a à la colonne cs des cellules représentant chacune 15 mn
je selectionne une période et grace à un code je clic droit et le chiffre 1 s'inscrit
mais j'ai besoin de savoir en direct quel temps j'ai selectionné (pour éviter les erreurs de saisies
merci de bien voulior m'aider
edit: si je ne vous réponds pas c'est que je suis parti me coucher

 

[Staple1600]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

Bonsoir


Au départ nous étions ici
https://www.excel-downloads.com/thr...ur-une-selection-de-plusieurs-cellules.89270/

Où donc continuer dans ce fil ou le premier ?

 

[pascal21]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

re stapple
le 1er post étant résolu j'ai pensé (peut-être à tort) qu'il s'agissait bien d'un autre sujet, d'où ma décision de créer un nouveau post

 

[Staple1600]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

Bonsoir



Je réponds aussi dans le deuxième post.

edition:
voir code modifié plus haut dans le post
(message de 23h07)

 

[pascal21]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

ok merci de t'interressé à mon problème
je viens de faire un essai ça me marque , et quelque soit le nombre de cellules selectionnées ,"0.25"
n'y aurait-il pas plutot le moyen d'avoir cette fenetre lors de la selection
(pour pouvoir ajouter ou retirer des cellules au cas où il y aurait une erreur)
donc un message avant de faire le clic droit
merci

 

[Staple1600]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

Re


EDITION: et avec cette ligne de code, remplaçant l'autre (celle de ma première réponse?)

MsgBox Format((Target.Rows.Count * Target.Columns.Count * 15) / 60 / 24, "hh:mm")

PS: je suis à la peine ce soir (lol)

 

[ninbihan]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

Bonsoir Pascal, Stapple


Juste une idée comme çà, pourquoi ne pas se servir de statusbar ( en bas de la fenêtre excel à gauche). Voilà juste un essai...

Dis nous ce que tu en penses...

Bonne nuit,

Ninbihan

 

[pascal21]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

bonjour le forum
parfait ninbihan, ça fera l'affaire
le seul bémol est que si je change de feuille laffichage reste au bas avec la dernière info donnée
mais c'est déja bien
moi je voyais plutôt un affichage du genre :lorsque l'on change la dimension des colonnes,un petit chiffre vient renseigner sur la droite de la colonne
ce n'est peut-être pas possible

 

[Staple1600]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

Bonjour



En reprenant le code de Ninbihan

Affiche dans la cellule adjacente à la dernierère cellule sélectionnée
sur la première ligne de la sélection

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Double
Dim d As Double
Dim e As Double
Dim f As Long
Dim g As Integer
c = Target.Count
d = c * 15
e = Int(d / 60)
d = d - (e * 60)
f = Target.Row
g = Target.Columns.Count
Cells(f, Target.Column).Offset(0, g) = e & " h et " & d & " mn"
End Sub

 

[ninbihan]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

Bonjour Pascal, Staple

Pour éviter d'avoir le message pour les autres feuilles tu peux ajouter ceci dans this workbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Feuil1" Then
Application.StatusBar = False
End If
End Sub

Bon dimanche,

Ninbihan

 

[pascal21]

Re : une fenetre pour indiquer le nombre de cellules sectionnées

re
le code donné par stapple fonctionne bien à la nuance prèt que l'indication reste affichée même si on selctionne une autre plage lol!!!!