Macro if et or en VBA

Bonjour,

J'ai créé un fichier pour gérer de la billetterie pour un CSE.

Ce fichier comporte plusieurs feuilles.

Je bloque sur une macro VBA.

Je vais essayer d’être clair pour ce que je souhaite obtenir.

Si l'un des prénoms dans les cellules MEMBRES CSE (dans les onglets , cinéma, piscine ou patinoire) apparaît dans la cellule, il note le nombre de place qu'il donne dans la cellule NBRE PLACE, ce nbre de place doit ce déduire dans l'onglet ACCUEIL en B12 pour l'un et en D12 pour l'autre et là je bloque sur le code vba

Une petite aide ne serait pas de refus.

Merci beaucoup

PS: peux pas joindre le fichier, trop volumineux

Salut 28jojo

! Code de tous les dangers !

• pas de fichier !!
• en aveugle !!
• ce prénom doit-il être vérifié comme étant membre et si oui, où ?
• dans ce cas-ci, le code n'intercepte que le nbre de places encodé en colonne "NBRE PLACE" !!
• quid si tu fais une erreur d'encodage du nbre de places ??

Aucune procédure expliquée...

Bref, l'aventure, c'est l'aventure...

Code à coller dans le module VBA de 'TisWorkbook'

Valable si un changement survient dans la colonne "NBRE PLACE" de n'importe quelle feuille excepté 'Accueil'.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
Application.EnableEvents = False
'
With Sh
    If Sh.Name <> "Accueil" And .Cells(1, Target.Column) = "NBRE PLACE" Then
        Sh.[D12] = CInt(Sh.[D12]) - CInt(Target)
        Worksheets("Accueil").[B12] = CInt(Worksheets("Accueil").[B12]) - CInt(Target)
    End If
End With
'
Application.EnableEvents = True
'
End Sub

Conclusion : prochaine fois...

• fichier ;
• explications complètes et précises.

C'est parti pour le fun!

A+

bonsoir et merci d'avoir répondu rapidement .

Comme je le préciser le fichier serait trop volumineux !! 1,72 MO , c'est un fichier excel . xlsm

Comment je peux faire pour le joindre . même avec winzip ça passe pas.

Re-bonsoir,

J'ai réussi à envoyer le fichier.

J'ai mis des commentaires dans les onglets pour faciliter ma demande.

J’espère que se sera plus clair.

Encore merci.