message box si

V

VIARD

XLDnaute Impliqué

• 21 Novembre 2018

• #2

Bonjour Judoka et à tous

Tu mets ceci dans le code de ta Feuille.

VB:

Option Explicit
'===================
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Application.Intersect(T, Range("I2:I7")) Is Nothing Then
    MsgBox "M ou A Interdit"
End If
End Sub
'===================

A+ Jean-Paul

 

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 21 Novembre 2018

• #3

merci de t'a reponse mais ca ne marche pas car j'ai du mal m'expliquer
en gros
SI H1=N et I2=M alors msgbox "interdit"
si H1=N et i3=M alors msgbox"interdit"
jusqu'a i7
merci

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 22 Novembre 2018

• #4

Bonjour Judoka

Bon dans l'affaire j'ai choisi une autre solution.
Tu mets cette formule en "J2" et tu tires vers le bas jusqu'à "J7".

'=SI(ET(H$1="N";I2="M");"Interdit";"")
autrement je ne vois pas.

A+ Jean-Paul

 

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 23 Novembre 2018

• #5

Oui c’est ça mais en vba pour avoir la msgbox

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 23 Novembre 2018

• #6

Bonjour Judoka et à tous

Voilà, ton fichier modifier normalement c'est bon.
Il n'y a pas d'autre solution qu'une "Fonction"
à toi de voir.

A+
Jean-Paul

 

Pièces jointes

• Judoka_1.xlsm

  14.2 KB · Affichages: 30

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 25 Novembre 2018

• #7

super ca marche mais j'ai besoin de l'affecter sur une plage

Option Explicit
'=================
Function Nuit_matin(Etat)
If Range("c5:nc5").Value = "N" And Etat = "M" Or Etat = "m" Or Etat = "A" Or Etat = "a" Or Etat = "j" Or Etat = "J" Then
MsgBox "INTERDIT"

End If
End Function

et pour la cellule
=Nuit_matin(c6:nc6)
en gros si j'ai fait une nuit le lendemain je peux pas faire de M ou J ou A
merci

 

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 29 Novembre 2018

• #8

super ca marche mais j'ai besoin de l'affecter sur une plage

Option Explicit
'=================
Function Nuit_matin(Etat)
If Range("c5:nc5").Value = "N" And Etat = "M" Or Etat = "m" Or Etat = "A" Or Etat = "a" Or Etat = "j" Or Etat = "J" Then
MsgBox "INTERDIT"

End If
End Function

et pour la cellule
=Nuit_matin(c6:nc6)
en gros si j'ai fait une nuit le lendemain je peux pas faire de M ou J ou A
merci

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 29 Novembre 2018

• #9

Bonjour Judoka et à tous

J’ai effectué plusieurs manips.
Tout d’abord pour la compréhension, les définitions ne sont pas claires.
Je suppose :

M = matin
N = nuit
A = après-midi
J = journée
R = repos (ça c’est moi qui l’ajoute)
Vide = rien

Mon constat : pour une équipe, c’est une ligne entière et une seule.
Donc il suffit de regarder l’état de la cellule précédente pour valider une réponse.
Dans ces conditions :

N = choix rien ou repos
M =
A =
J =

A la suite de ceci :
‘==============
Sub Nuit_Matin_3
Dim Adr$, Etat$
Dim Col%, Lg%

Adr = ActiveCell.Address
Col = Range(Adr).Column
Lg = Range(Adr).Row
'-----------------
Etat = Cells(Lg, Col - 1).Value 'cellule précédente
Select Case Etat
Case "": MsgBox "Choix --> M, N, A, J"
Case "M": MsgBox "Choix --> N, A, J"
Case "N": MsgBox "Choix --> R"
Case "A": MsgBox "Choix --> M"
Case "J": MsgBox "Choix --> M, N, A"
End Select
'-----------------
End Sub
‘=============
D’autre part je ne vois pas l’intérêt de la première ligne,
Sinon d'y mettre une date.

A+ Jean-Paul

 

Pièces jointes

• Judoka_3.xlsm

  18.2 KB · Affichages: 22

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 5 Décembre 2018

• #10

j'ai essayé de faire un fichier excel plus clair je suis désolé de mal m'exprimer sur mes besoin donc j'ai fait un schema c'est plus simple
encore mille merci pour le temps passé

 

Pièces jointes

• Copie de Judoka_3.xlsm

  20.2 KB · Affichages: 14

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 5 Décembre 2018

• #11

Bonsoir Judoka

J'ai fait un nouveau fichier, je le déposerai demain.

Amicalement

Jean-Paul

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 6 Décembre 2018

• #12

Bonjour Judoka et à tous


Voici le fichier.
Tu y trouveras 3 feuilles
Sur la première j’ai légèrement retouché la fonction « Case ».
Sur la 2ième c’est une autre façon, je me suis inspiré d’un document paru sur le site avec de petites modif.
Sur la 3ième c’est identique à la 2 en plus simple, je pense que cette version est plus adaptée.

Amicalement
Jean-Paul

 

Pièces jointes

• Judoka_4.xlsm

  54.1 KB · Affichages: 17

Vote positif 0 Vote négatif

J

judoka0209

XLDnaute Occasionnel

• 7 Décembre 2018

• #13

merci

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 15 Décembre 2018

• #14

Bonjour Judoka et à tous

Voici une autre version.
Bonnes Fêtes à tous

A+ Jean-Paul

 

Pièces jointes

• Judoka_5.xlsm

  72.1 KB · Affichages: 13

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 24 Décembre 2018

• #15

Bonjour Judoka et à toutes et tous

Dernière version.
J'ai automatisé l'affichage des mois.
Bon réveillon à tous

A+ Jean-Paul

 

Pièces jointes

• Judoka_6.xlsm

  76.1 KB · Affichages: 16

Vote positif 0 Vote négatif