XL 2016 Remplacement valeur cellule

[pierrof]

Bonjour à tous,

Je souhaite suivre le nombre d'heure de formation de "joueurs", pour cela je dispose d'un tableau de suivi de formations.
Sur ce tableau j'aimerais que la valeur "x" indiquant que le joueur à participé à la formation, prenne la valeur en heure de la formation, or cette valeur et dans le texte de l'en-tête de la colonne et peut être entre parenthèse ou pas. le tableau peux être de dimensions différentes...

Je laisse un fichier exemple pour plus de clarté.

Merci d'avance pour votre aide.

Cordialement

 

[JHA]

Bonjour à tous,

Une solution par formule et une ligne supplémentaire à masquer

JHA

 

[Robert]

Bonjour Pierrof, bonjour le forum,

Pourquoi ne pas recréer un tableau ou de simples formules pourraient s'appliquer plutôt que de demander de travailler sur un tableau visiblement mal conçu ?

 

[sylvanu]

Bonjour Pierrof,
Un essai en PJ avec :

Private Sub CommandButton1_Click()
    Dim DL%, L%, C%
    Application.ScreenUpdating = False
    DL = Range("B65500").End(xlUp).Row
    C = 3
    While Cells(5, C) <> ""
        tablo = Split(Cells(5, C), " ")
        For L = 6 To Range("B65500").End(xlUp).Row
            If Cells(L, C) = "x" Then
                Cells(L, C) = Replace(tablo(UBound(tablo) - 1) & " H", "(", "")
            End If
        Next L
        C = C + 1
    Wend
End Sub

 

[JHA]

Bonjour à tous
Bonjour Robert, Sylvanu

A essayer par formule

JHA

 

[pierrof]

Bonjour à tous,

Merci de vos retours ça fonctionne correctement toutes vos propositions.

@Robert, oui j'aurais aimé avoir des tableaux "propre" mais je n'ai pas eu de chance....

J'en profite pour vous demander comment peut-on faire pour lancer la procédure en VBA sur toutes feuilles du classeur?

Merci encore

Cordialement

 

[Robert]

Bonjour le fil, bonjour le forum,

Pour tous les onglets.
1. remplace le code du bouton par celui-ci :

Private Sub CommandButton1_Click()
Module1.Macro1
End Sub

2. Dans le modue standard Module1 la procédure :

Sub Macro1()
Dim DL%, L%, C%
Dim O As Worksheet
Dim tablo As Variant

Application.ScreenUpdating = False
For Each O In Sheets
    DL = O.Range("B65500").End(xlUp).Row
    C = 3
    While O.Cells(5, C) <> ""
        tablo = Split(O.Cells(5, C), " ")
        For L = 6 To O.Range("B65500").End(xlUp).Row
            If O.Cells(L, C) = "x" Then
                O.Cells(L, C) = Replace(tablo(UBound(tablo) - 1) & " H", "(", "")
            End If
        Next L
        C = C + 1
    Wend
Next O
End Sub