dn35
XLDnaute Occasionnel
Re- tout le monde
Toujours sur mon essai de consignes informatisées, je suis confrontée à un nouveau problème ; j'ai retourné la question dans tous les sens mais encore une fois la solution doit être si simple que ... je ne la vois pas ! 😡
Ce fichier concerne 2 ateliers qui utilisent le même ordinateur (Dieu du budget serré quand tu nous tiens ! 😉) ; ce fichier nous permettra de faire passer des consignes à nos opérateurs et de les modifier en temps réel mais également il leur servira de support pour nous transmettre leurs remarques et leurs commentaires. J'ai donc, sur chaque UF de consignes, une zone dite de commentaire qu'ils peuvent aller remplir puis valider à l'aide du bouton auquel le code si dessous est associé :
et dans un module :
Mon problème, c'est que les commentaires sont sensés s'inscrire dans des lignes les unes en dessous des autres mais au contraire chaque commentaire s'inscrit à la place du précédent... avez vous une idée de ce qui cloche dans mon code ?
Merci d'avance à tous
Laure
Toujours sur mon essai de consignes informatisées, je suis confrontée à un nouveau problème ; j'ai retourné la question dans tous les sens mais encore une fois la solution doit être si simple que ... je ne la vois pas ! 😡
Ce fichier concerne 2 ateliers qui utilisent le même ordinateur (Dieu du budget serré quand tu nous tiens ! 😉) ; ce fichier nous permettra de faire passer des consignes à nos opérateurs et de les modifier en temps réel mais également il leur servira de support pour nous transmettre leurs remarques et leurs commentaires. J'ai donc, sur chaque UF de consignes, une zone dite de commentaire qu'ils peuvent aller remplir puis valider à l'aide du bouton auquel le code si dessous est associé :
Code:
Private Sub butvalidcomment1_Click()
Dim L1 As Integer
If Visabox1.Value = "" Then
MsgBox "veuillez entrer un nom ou des initiales", vbDefaultButton1, "ATTENTION"
Exit Sub
Else
With Sheets("Commentaires opérateurs")
DerLi
L1 = ActiveCell.Row
.Cells(L1, 1).Value = Datebox1.Value
.Cells(L1, 2).Value = "Broyage"
.Cells(L1, 3).Value = Visabox1.Value
.Cells(L1, 4).Value = commentbox1.Value
End With
End If
Visabox1.Value = ""
commentbox1.Value = ""
End Sub
Code:
Sub DerLi()
Dim u As Integer
u = 2
Do While True
If Cells(u, 2).Value <> "" Then
u = u + 1
Else
Cells(u, 1).Select
Exit Do
End If
Loop
End SubMon problème, c'est que les commentaires sont sensés s'inscrire dans des lignes les unes en dessous des autres mais au contraire chaque commentaire s'inscrit à la place du précédent... avez vous une idée de ce qui cloche dans mon code ?
Merci d'avance à tous
Laure
