Régler le:

[maval]

Bonjour,

J'ai un formulaire avec une listbox et j'aimerai que lorsque je sélectionne un nom, je puisse ajouter a l'aide du bouton nommer "Régler le:" la date et l'heure dans la colonne "F" en fonction du nom. J'avais mis un code mais sa ne fonction pas avec le listbox?

Private Sub CommandButton9_Click()
     Dim L As Long
    With Sheets(Ws)
        L = .Range("A65000").End(xlUp).Row
   .Cells(L, ).Value = "Régler le " & Format(Now, "dd:mm:yyyy") & " à " & Format(Now, "hh:mm:ss")
  End With
End Sub

Merci de votre aide

Cordialement

Maval

 

[tototiti2008]

Re : Régler le:

Bonjour maval,

peut-être

Private Sub CommandButton9_Click()
Dim Ligne As Long
    Ligne = ListBox1.ListIndex
    If Ligne = -1 Then Exit Sub
    With Sheets("Accueil")
        .Range("F" & Ligne + 5).Value = "Réglé le " & Format(Now, "DD/MM/YYYY") & " à " & Format(Now, "HH:MM:SS")
    End With
End Sub

 

[maval]

Re : Régler le:

Bonjour Tototiti2008,

Excellent merci beaucoup. Il te serait possible de me dire comment ajouter a la colonne "G" en plus du code que tu viens de me faire le symbole ü en police "Wingdings"
Merci et bonne journée

Max

 

[tototiti2008]

Re : Régler le:

Re,

Si tu as compris comment j'ai écrit "Réglé le..." dans la ligne, il devrait être assez facile d'écrire "ü" dans cette même ligne
Il te suffit de mettre la colonne G en police Wingdings

 

[maval]

Re : Régler le:

Re,

J'ai fait un deuxième ligne en mettant ceci:

.Range("G" & Ligne + 5).Value = "ü"

On dirait que cela fonctionne

Merci encore

@

Max

 

[tototiti2008]

Re : Régler le:

Re,

Merci d'avoir essayé 🙂

 

[maval]

Re : Régler le:

Re bonjour

Suite au code que Tototiti ma réaliser et que je remercie au passage j'ai du faire une modification après avoir mon erreur j'ai du ajouter un calendrier et un textbox pour pouvoir mettre la date voulue jusqu'ici tous va bien sauf que sa ne copie pas a l'endroit voulu.
Après modification du code de Tototiti j'ai fait ceci qui est peut être pas bon?

Private Sub CommandButton13_Click()
Dim Ligne As Long
    Ligne = ListBox1.ListIndex
    If Ligne = -1 Then Exit Sub
    With Sheets("Feuil1")
    
        '.Range("U" & Ligne + 4).Value = "Réglé le " & Format(Now, "DD/MM/YYYY") '& " à " & Format(Now, "HH:MM:SS")
        .Range("S" & Ligne + 4).Value = "ü"
        .Range("U" & Ligne + 4).Value = "Réglé le : " & "" & TextBox14
    End With
End Sub

Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

Par avance merci pour votre aide.

Cordialement

Maval

 

[laetitia90]

Re : Régler le:

bonjour tous 🙂🙂dans ton cas ??

 .Range("S" & ListBox1.List(ListBox1.ListCount - 1, 1)).Value = "ü"
 .Range("U" & ListBox1.List(ListBox1.ListCount - 1, 1)).Value = "Réglé le : " & "" & TextBox14

 

[tototiti2008]

Re : Régler le:

Bonjour laetitia,
Re,

Désolé mais dans ton dernier fichier, chez moi rien n'apparaît dans la Listbox (contrairement à ce qu'affiche l'image), donc je ne peut pas sélectionner un élément de celle-ci, et donc pas lui faire écrire "Réglé le " quelque part...

 

[laetitia90]

Re : Régler le:

re,

toto🙂 j'ai enlever cette ligne pour que cela marche
If Ligne = -1 Then Exit Sub
ecrire la condition autrement je pense ??

 

[laetitia90]

Re : Régler le:

re,effectivement souci dans textbox9 je rentrais le code en entier donc une seule selection dans la listbox
desole fait trop vite pas tout tester sorry

 

[maval]

Re : Régler le:

Bonjour Lætitia, Tototiti,

Non sa fait toujours pareil sa ne copie pas a l'endroit voulu.

@+

Max

 

[laetitia90]

Re : Régler le:

re,
en l'ecrivant comme cela??

Private Sub CommandButton13_Click()
  If ListBox1.ListIndex = -1 Then Exit Sub
  With Sheets("Feuil1")
 .Range("S" & ListBox1.List(ListBox1.ListIndex, 1)).Value = "ü"
 .Range("U" & ListBox1.List(ListBox1.ListIndex, 1)).Value = "Réglé le : " & "" & TextBox14
  End With
End Sub

 

[maval]

Re : Régler le:

Re Lætitia

Oui je te remercie sa fonctionne Nickel

Bonne journée

Max