A l'attention de FFO

Re,

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

1 « J'aime »

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)

OK, c’est noté et compris.

Par contre j’ai une petite erreur. Lorsque je veux effacer les chiffres dans cette ligne il m’indique une erreur.
Ci-joint les captures écrans:


Est ce que c’est moi qui est fait une erreur ?

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

1 « J'aime »

Re,

Impeccable, Merci tout pleins à vous deux.

Maintenant je fais comment pour cocher « résolu » ?

Si je coche chez toi FFO va bouder et si je coche chez lui c’est toi qui boude ! :hear_no_evil: :rofl:

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

Re,

c’est trop tard Mimimathy, j’avais déjà coché. :speak_no_evil:

Tu lui file la moitié OK ! :rofl: :rofl:

Merci en tout cas et bon dimanche

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

Bonjour FFO,

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.

Je te dis à très bientôt.

Amicalement Rubis

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

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.