Calcul dans TextBox4

Bonjour,

Supprimez la macro " Private Sub TextBox4_Change()" et modifiez celle liée à la date

Private Sub CmB_Jour_Change()
    If CmB_Jour.ListIndex <> -1 Then
        Col = CmB_Jour.ListIndex + 3
        TextBox4.Value = Sheets("feuil1").Cells(125, Col)
        If Ligne <> 0 Then
            If Ws.Cells(Ligne, Col) = 1 Then
                ChkB_Point = True
                ChkB_Point.ForeColor = vbBlue
            ElseIf Ws.Cells(Ligne, Col) = "" Then
                ChkB_Point = False
                ChkB_Point.ForeColor = vbRed
            Else
            End If
        End If

    End If
End Sub

Cdlt

Merci Arturo

Je vais regarder dans la journée mais je pense que ça va être bon

Desole Arturo, ça ne marche pas.

Le Private Sub CmB Jour Change sert à calculer le nb de présences dans la colonne C sur tous les mois de l'année pour chaque Adhérent et le total d'adhérents, en fonction de chaque jour choisi sont sur la ligne 125 et sa colonne qui suit

Merci encore pour te consacrer à mon problème

Cordialement

Peut-être qu'on ne s'est pas bien compris,

Lorsqu'on sélectionne un date dans la combobox "CmB Jour Change", il me semble avoir compris qu'il fallait renvoyer dans la "TextBox4", le nombre d'adhérents pour cette journée, cette valeur étant trouvée sur la ligne 125, c'est ce que fait la ligne que j'ai ajouté. et c'est bien ce que vous aviez demandé, non!

Oui c'est bien ça mais je n'obtient pas dans TextBox4 le résultat qui concerne la date choisi sur la colonne concernée.

Pouvez-vous me remettre le fichier avec la modification que vous avez fait

Ok mais pour l'instant je vais couper internet, on m'installe la fibre. Soit ce soir ou demain matin.

Merci beaucoup

J'ai eu le temps à vous l'envoyer

Pourtant, voici avec la vidéo

Re

Oui ça fonctionne, mais si tu mets la date par exemple le 16/12 et que tu choisi un prénom, la ça ne va plus

Private Sub ComboBox1_Change()
     Dim Ligne As Long
     Dim AA As Long

     If Me.ComboBox1.ListIndex <> -1 Then
        Ligne = Me.ComboBox1.ListIndex + 2
        For AA = 1 To 4
           Me.Controls("TextBox" & AA) = Ws.Cells(Ligne, AA)
        Next AA
        If Ws.Cells(Ligne, Col) = 1 Then
            ChkB_Point = True
            ChkB_Point.ForeColor = vbBlue
        ElseIf Ws.Cells(Ligne, Col) = "" Then
            ChkB_Point = False
            ChkB_Point.ForeColor = vbRed
        Else
        End If
        Sheets("Feuil1").Range("A" & Ligne & ":BK" & Ligne).Select
     End If
    TextBox4.Value = Sheets("feuil1").Cells(125, Col)
End Sub

Merci Arturo,

Je n'ai plus internet, ma box à lâcher. Je vais enregistrer le fichier sur mon téléphone et le mettre dans l'ordinateur demain. Je donnerais une réponse si c'est bon.

Merci beaucoup

Formidable, c'est exactement ce que je voulais.

tu es très fort

Merci beaucoup

Cordialement