c’est surtout vos bonnes explications ici, je me régale. C’est juste dommage que mon boulot me laisse pas trop le temps pour m’impliquer plus, mais cela viendra peut-être( la retraite arrive bientôt)
Dis moi juste ce que veut dire le « Mid » et le « Len » STP
Re,
la fonction MID, c’est l’équivalent de la fonction STXT d’Excel
ex: RUBIS en A1 → pour obtenir UBIS → STXT(A1,2,4) → Mid(Range(« A1 »),2,4)
A1= la cellule
2 = Premier caractère à prendre en compte
4 = Nb de caractères à afficher
La fonction LEN est l’équivalent de la fonction Excel NBCAR()
Donne le Nb de caractères dans la cellule (espace compris)
Re,
Non, c’est moi, un oubli et pas testé en supprimant les données
Comme ceci, avec ON ERROR… au départ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim listjours$
On Error Resume Next
listelignes = "/" & Range("S1") & "/"
listeonglets = "/" & Range("S2") & "/"
listejours = ""
If UBound(Split(listelignes, "/" & Target.Row & "/")) > 0 Then
LigneTraitée = Target.Row
nomonglet = Split(listeonglets, "/")(UBound(Split((Split(listelignes, LigneTraitée)(0)), "/")))
For Each c In Range("C" & LigneTraitée & ":AG" & LigneTraitée)
If c <> "" And Cells(LigneTraitée - 4, c.Column) <> "" Then
listejours = listejours & Format(Cells(LigneTraitée - 4, c.Column), "DD") & ", "
End If
Next
listejours = Mid(listejours, 1, Len(listejours) - 2)
Sheets(nomonglet).Range("L2") = "(" & listejours & ")"
End If
End Sub
Re,
Non c’est FFO qui as commencé, moi je t’ai juste rajouter une petite ligne,
De plus, je me fou complétement des sondages et des mérites, je fais cela par passion et amusement
Un très très grand merci à Mmimathy pour son aide toujours aussi efficace et bien à propos
Il mérite tout autant que moi la validation
Désolé j’étais un peu occupé ce matin : Marché tambouille et cet après-midi de sortie
On arrête pas quand on est retraité à regréter sa vie anterieur d’actif
Donc grâce à Mimimathy tout est résolu
Au plaisir de dialoguer ensemble une prochaine fois
Oui un Grand MERCI à vous deux, c’est toujours un plaisir de dialoguer avec vous et c’est très instructif.
Oh je pense que tu l’as bien mérité la retraite et il ne faut jamais avoir de regrets.
Profite bien.
Merci merci et comme dit très justement Mimimathy tu t’es très bien débrouillé sur ce coup là
Tu es entrain de suivre nos traces bravo bravo
Au plaisir une prochaine fois