• Initiateur de la discussion Initiateur de la discussion lauret
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lauret

Guest
bonjour à tous

je souhaiterais trouver une solution pour alimenter la partie historique des etapes
je souhaite qu'il me garde a la difference des autre case les divers etapes enregistré dans le projet.
merci d'avance pour votre réponse [file name=creation2.zip size=26225]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/creation2.zip[/file]
 

Pièces jointes

bonjour

j'ai regardé ton classeur mais je n'ai pas compris ou doivent etre stockées et récupérées les informations sur l'historique des étapes


l'exempe joint stocke donc ces informations en commentaire , dans les cellules de la colonne E

'-------------------------
If Cells(lignesuivante, 5).Comment Is Nothing Then
Cells(lignesuivante, 5).AddComment
Cells(lignesuivante, 5).Comment.Text Text:=Cells(lignesuivante, 5) & Chr(10) & ''
Else
Histo = Cells(lignesuivante, 5).Comment.Text
Cells(lignesuivante, 5).Comment.Text Text:=Histo & Cells(lignesuivante, 5) & Chr(10) & ''
End If
'-------------------------



ensuite lorsque tu selectionnes un identifiant , l'historique des etapes est extrait du commentaire associé

'-------------------------------------
j = 1
If Not c.Offset(0, 2).Comment Is Nothing Then
Cible = c.Offset(0, 2).Comment.Text 'recuperation données commentaire

For i = 1 To Len(Cible)
If Mid(Cible, i, 1) = Chr(10) Then
Histo = Mid(Cible, j, i - j)
ListBox1.AddItem Histo
j = j + Len(Histo) + 1
End If
Next i
End If
'-------------------------------------



Remarque 1
j'ai remplacé le Texbox par une Listbox , pour l'affichage de l'historique

Remarque 2
je n'ai pas regardré en détail ta procédure initiale , mais il me semble qu'il manques des infos , nottament pour prendre en compte l'étape 'immatriculé'
If OptionButton8 Then Cells(lignesuivante, 5) = 'immatriculé'



bonne journée
MichelXld [file name=creationSMP_V02.zip size=23955]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/creationSMP_V02.zip[/file]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
Réponses
2
Affichages
1 K
T
Réponses
3
Affichages
1 K
P
Réponses
9
Affichages
2 K
philest
P
Réponses
2
Affichages
1 K
S
  • Question Question
Réponses
0
Affichages
2 K
Sébastien
S
Réponses
3
Affichages
1 K
H
B
  • Question Question
Réponses
6
Affichages
2 K
B
Réponses
2
Affichages
1 K
Réponses
2
Affichages
1 K
bebere
B
Y
Réponses
6
Affichages
2 K
R
  • Question Question
Réponses
2
Affichages
3 K
Roger
R
Retour