Ecrire 2 macro avec Worksheet_Change

Bonjour,

Je voudrais faire fonctionner les deux macro suivante sur une seule feuille Excel. Actuellement chacune fonctionne bien séparément. Les macros ont le même nom mais je ne sais pas les renommer, en faisant Worksheet_Change2 cela ne fonctionne pas

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$H$4" Then Exit Sub

If Target = "" Then Exit Sub

lig = Application.Match([H4], [B:B], 0)

If Not IsNumeric(lig) Then MsgBox "inexistant": Exit Sub

Rows(lig).Select

If MsgBox("Souhaitez-vous Valider ?", vbExclamation + vbYesNo, "Inscrire OK") = vbNo Then [H4] = "": Exit Sub

Application.EnableEvents = False

Cells(lig, 1) = "OK": [H4] = ""

Application.EnableEvents = True

End Sub

______________________________________________________________________________________________________

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Target.Column = 1 And Target.Value = "ok" Then Range("L" & Target.Row) = Range("L" & Target.Row) + 1

End Sub

Merci de votre aide

Salut Yves,

Ainsi, sans doute..

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Selection.Count = 1 And Not Intersect(Target, Range("H4")) Is Nothing Then
    If Target <> "" Then
        iRow = Application.Match([H4], Columns(2), 0)
        [H4] = ""
        If IsNumeric(iRow) Then
            If MsgBox("Souhaitez-vous Valider ?", vbExclamation + vbYesNo, "Inscrire OK") = vbYes Then _
                Cells(iRow, 1) = "OK": _
                Range("L" & iRow) = Range("L" & iRow) + 1
        Else
            MsgBox "Inexistant !"
        End If
    End If
    [H4].Select
End If
'
Application.EnableEvents = True

End Sub

Bonne année !

A+

Bonjour

Je vous présente mes meilleurs vœux pour 2021.

Je me présente , je m'appelle Yves retraité, j'ai appris Excel sur le tas comme ont dit et je me débrouille sur les fonctions de bases. Je viens d'essayer votre proposition et elle fonctionne bien, Merci beaucoup.

Je suis bénévoles dans une association caritative et ce fichier nous sert à suivre les bénéficiaires de l'aide alimentaire, forte demande en cette période.

J'aurais encore une demande pour le même fichier.

Chaque bénéficiaire paye à chaque passage une participation, mais parfois il est ne possède pas d'argent et nous lui faisons crédit.

J'aimerais connaitre ce que le bénéficiaire doit dans la colonne O en en fonction de ce qu'il a payer en colonne N et ce qu'il paye par passage dans les colonne P à AO. Voir modèle en fichier joint

Merci de votre aide

Salut Yves,

respect pour ton engagement envers les plus faibles ! -

- j'ai ajouté des MFC couleurs dans [O:O] : vert = solde positif, rouge = solde négatif ;
- cette formule en [O12] à étirer vers le bas

=N12-SOMME(P12:AO12)

A+

Désolé, ce n'est pas ce que je recherche.

Voir fichier

J'aimerais:
Monsieur X a fait 6 passage avec les participations payées il doit 11€, O12 doit afficher 11€
Monsieur Y a fait 3 passage et ne doit rien la case O13 doit restée vide
Monsieur Z a fait 4 passage et doit 6€, O 14 doit afficher 6€
Nota :le bénéficiaire n'est pas obligé de venir à la date prévu ou peut ne venir pendant plusieurs semaine