Microsoft 365 renseigner cellule de la même ligne en deux etapes

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Mai 2022

• #2

Bonjour @gilles37 ,

Nous aussi, on bloque :

• sur le fichier joint
• sur l'indigence des explications

A plus...

edit : bonjour @job75

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Mai 2022

• #3

Bonjour gilles37,

Inscrit depuis 2006 vous avez oublié qu'il faut être clair ? Joignez votre fichier.

Edit : salut mapomme.

A+

 

Dernière édition: 22 Mai 2022

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mai 2022

• #4

Bonjour le fil , gilles37, mapomme, job75

Je plussoie aux conseils précédemment soumis.

=>gilles37
J'ai interprété la chose comme ceci
(NB: Le code ci-dessous est juste illustratif -> à tester sur une feuille vierge)
Macro à exécuter plusieurs fois pour voir les changements sur la feuille.

VB:

Sub Brouillard()
Dim col&
Rows(1).Clear
col = Application.RandBetween(3, 17)
Cells(1, col) = "Début"
Cells(1, Columns.Count).End(xlToLeft).Offset(, 1) = "Fin"
End Sub

Interprétation bis

VB:

Sub Brouillard_BIS()
Cells(Rows.Count, 3).End(xlUp)(2) = "Début: " & Now
Cells(Rows.Count, 4).End(xlUp)(2) = "Fin: " & Now + TimeSerial(0, 0, 30)
End Sub

Là on change de ligne à chaque fois.

 

Dernière édition: 22 Mai 2022

Vote positif 0 Vote négatif

gilles37

XLDnaute Occasionnel

• 23 Mai 2022

• #5

Bonjour

Oups, j ai ete trop vite et oubli de joindre le fichier.
Je souhaite que l userforme5 s ouvre afin que la personne puisse choisir ente debut ou fin d astreinte. En fonction, l userform correspondant s ouvre.
La personne declare son debut d astreinte et valide. Cela rempli une partie du tableau. En fin d astreinte il saisie sa fin dans l autre userform ET cela doit renseigner la suite de la ligne afin d avoir debut et fin.
Ce qui serait top, c est que le salarié ne peut declare sa fin si il n a pas fait de debut.
Merci a vous

 

Pièces jointes

• astreinte2022.xlsm

  133.8 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mai 2022

• #6

Bonjour gilles37, le forum,

Votre fichier est inutilement compliqué et très en désordre.

Voyez le fichier joint et le code de l'unique UserForm :

VB:

Option Explicit
Const form$ = "dd/mm/yyyy hh:mm" 'format modifiable
Dim nom$, F As Worksheet, lig& 'mémorise les variables

Private Sub CommandButton1_Click()
F.Cells(lig, 1) = nom
F.Cells(lig, 2) = CDate(Label4)
If Label5 <> "" Then F.Cells(lig, 3) = CDate(Label5)
Unload Me 'ferme l'UserForm
End Sub

Private Sub UserForm_Initialize()
nom = Application.UserName
Label1 = nom
Set F = Feuil1 'CodeName à adapter
F.Protect "toto", UserInterfaceOnly:=True
For lig = 3 To F.[A1].CurrentRegion.Rows.Count
    If F.Cells(lig, 1) = nom And F.Cells(lig, 2) <> "" And F.Cells(lig, 3) = "" Then
        Label4 = Format(F.Cells(lig, 2), form)
        Label5 = Format(Now, form)
        Exit Sub
    End If
Next
Label4 = Format(Now, form)
Label5 = ""
End Sub

Comme vous j'utilise Application.UserName pour repérer l'utilisateur.

Sachez cependant qu'un utilisateur malveillant peut facilement modifier ce nom pour saboter les données d'un autre utilisateur.

A+

 

Pièces jointes

• Astreintes 2022(1).xlsm

  22.8 KB · Affichages: 7

Vote positif 0 Vote négatif

gilles37

XLDnaute Occasionnel

• 23 Mai 2022

• #7

Bonjour Job75

Ce que j'ai appris c'est grâce a vous (toi et les membres du site)
Effectivement, c'est beaucoup plus lite et plus efficace.
Je me rends compte, je me m'étais bien compliqué la tache.

Merci a toi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mai 2022

• #8

job75 à dit:

Sachez cependant qu'un utilisateur malveillant peut facilement modifier ce nom pour saboter les données d'un autre utilisateur.

Cliquez pour agrandir...

Pour éviter qu'un utilisateur connaisse les noms des autres utilisateurs il suffit de masquer avec la propriété Visible à xlSheetVeryHidden la feuille "BDD".

Puis de protégée le VBAProject avec mot de passe, ici toto, seul l'administrateur qui connaît ce mot de passe pourra consulter la feuille "BDD", fichier (2).

 

Pièces jointes

• Astreintes 2022(2).xlsm

  26.3 KB · Affichages: 4

Vote positif 0 Vote négatif

gilles37

XLDnaute Occasionnel

• 24 Mai 2022

• #9

Bonjour Job75

merci.
Je connaissais pour masquer les feuilles
Je vais rajouter un msgbox pour informer que la saisie a été prise en compte. Ca c'est simple

Comment fais tu pour que les bordures de cellule se fassent au fur et a mesure ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mai 2022

• #10

Bonjour gilles37,

gilles37 à dit:

Comment fais tu pour que les bordures de cellule se fassent au fur et a mesure ?

Cliquez pour agrandir...

Sur les colonne A:C j'ai créé une mise en forme conditionnelle (MFC) avec formule =$A1<>""

A+

 

Vote positif 0 Vote négatif

gilles37

XLDnaute Occasionnel

• 24 Mai 2022

• #11

je ne connaissais pas .
On en apprend tous les jours grâce a vous et au forum

 

Vote positif 0 Vote négatif

gilles37

XLDnaute Occasionnel

• 3 Juin 2022

• #12

Bonjour le Forum,

Avec le commandbutton1, je souhaite qu'il valide, ca c'est ok grâce a Job75, mais aussi que le fichier s'enregistre et se ferme ci dessous code en bleu, mais cela ne fonctionne pas

Private Sub CommandButton1_Click()

F.Cells(lig, 1) = Nom
F.Cells(lig, 2) = CDate(Label4)
If Label5 <> "" Then F.Cells(lig, 3) = CDate(Label5)
Unload Me 'ferme l'UserForm

Workbook ("Astreintes 2022(1)(1)"). close true

End Sub

merci pour votre aide

 

Vote positif 0 Vote négatif