Aide pour modifier un code visual basic

[melba]

Bonjour,

Pourrais-je obtenir votre aide pour modifier un code que vous m'avez déjà fourni et que j'essaye vainement d'adapter à mes besoins?

Je suis débutante en la matière et ai beaucoup de mal.

Je joins un fichier qui je l'espère sera clair.


Merci par avance

 

[Bebere]

Re : Aide pour modifier un code visual basic

bonjour
Melba ton code changé

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error Resume Next 'sécurité
If IsDate([C8]) Then
  [A10] = "jetons"
  If CDate([C8]) < CDate("01/01/2003") Then
    [D10:G10] = ""
  ElseIf CDate([C8]) >= CDate("01/01/2003") Then
  [D10] = "mettre x si invité xxxxxxxx"
    If UCase([E10].Text) = "X" Then
      [F10] = "cocktails xxxxxxxxxxxxxxxxxxxxxxxxxx"
    Else
      [E10:G10] = ""
    End If
  End If
Else
   [A10:G10] = ""
End If
Application.EnableEvents = True
End Sub

 

[melba]

Re : Aide pour modifier un code visual basic

Bonjour,

Merci encore un énorme merci pour votre contribution à tous et votre patience, le code modifié par Bebere est nickel, j'ai exactement ce que j'attendais.
Je le comprends à peu près : seules les phrases suivantes me posent problème :

Application.EnableEvents = False
On Error Resume Next 'sécurité

End If
Application.EnableEvents = True

Que signifient-elles?

@+

 

[Bebere]

Re : Aide pour modifier un code visual basic

bonjour Melba,le forum
curseur sur le mot(ex:EnableEvents) appui touche F1 appel aide
après lecture tu nous reviens si tu as besoin d'une explication