Vba

[Kat31]

Bonjour,
Débutante dans le langage VBA
Je vous explique:
Je saisie des dates dans ma colonne A "02/10/2015" par exemple
et je voudrais afficher un message d'alerte si je saisie une date ne correspondant pas au mois d'octobre.
Merci de m'aider !!!!

 

[ERIC S]

Re : Vba

Bonjour

pourquoi du vba ?

c'est juste pour octobre ou il y aura des critères qui vont bouger (nov, déc,..)
le mieux serait de joindre un fichier

 

[Kat31]

Re : Vba

Voici mon fichier, c'est dans la feuille "vente"
C'est pour passer mon bts et ma prof m'a dit d'automatiser encore plus mon tableau
donc j'ai pensé à cette solution peut être que en voyant mon tableau vous comprendrez mieux.

 

[ERIC S]

Re : Vba

Re
tu saisis toujours en G2 ?

Nota : les taux de tva ont changé .......

 

[Kat31]

Re : Vba

mon G2 veut dire que les cellules jaunes sont des cellules où j'ai saisie des montants ou du texte.
Oui les taux on changé je sais mais dans mon cas mon entreprise calcul sa TVA collectée d'octobre 2013

 

[JCGL]

Re : Vba

Bonjour à tous,

Bienvenue sur XLD

Une alerte par MeFC et une Boite de Message si un Mois est différent de A

A+ à tous

 

[Kat31]

Re : Vba

Merci beaucoup pour votre aide !!

 

[Kat31]

Re : Vba

Une dernière chose pouvez vous m'expliquez un peu ce que le langage VBA que vous m'avez mit veut dire car je connais la signification que de la moitié et si on me demande je serai pas expliquer; Merci

 

[ERIC S]

Re : Vba

Re à tous

dans les mise en forme conditionnelles on ne passe pas par le vba
voir exemple avec MFC (mise en forme) et validation

 

[JCGL]

Re : Vba

Bonjour à tous,

Une dernière chose pouvez vous m'expliquez un peu ce que le langage VBA que vous m'avez mit veut dire car je connais la signification que de la moitié et si on me demande je serai pas expliquer; Merci

Private Sub Worksheet_Change(ByVal Target As Range) ' A chaque changement sur la feuille
Dim Lig& 'Déclaration des variables
For Lig = 5 To 71 'Pour les lignes 5 à 71
'Si le mois de Ax est différent de 10 alors faire apparaitre le message
If Month(Range("A" & Lig)) <> 10 Then MsgBox "Attention en " & Range("A" & Lig).Address, vbCritical, "Mois différent"
Next Lig ' Ligne suivante 
End Sub

Il serait judicieux de modifier le <> 10 qui est en dur par ....
Je te laisse trouver.

A+ à tous