Msgbox si condition combinée

Version imprimable

Bonjour à tous,
J'ai développé un outil de planif pour le boulot, j'aimerais que lorsque l'utilisateur renseigne 2 cellules, (1 avec le nombre et 1 avec le type) ,l'utilisateur renseigne en 1er la cellule avec nombre puis le type "CRAPAUD" il faut absolument que le nombre soit modulo de 8.

J'espère avoir été claire.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 If Target.Column = 11 Then If Range("H" & Target.Row).Value <> "" Then If Range("K" & Target.Row).Value = "CRAPAUD" And Range("H" & Target.Row).Value Mod 8 = 0 Then Else MsgBox "ERREUR!!!!" & vbCrLf & "Veuillez vérifier le nombre de crapaud....", vbCritical, "ERREUR!!!!" End If End If End If

16/02/2018, 09h50
joe.levrai

Bonjour,

quelle est la question et le problème ? A première vue ton bloc If/End If tient la route
16/02/2018, 10h36
demichoux

Bonjour joe.levrai,

Une chose importante que je n'aie pas précisée, c'est qu'il y a 3 types ( CRAPAUD, HEB 300 -1 et HEB 300 - 2) qui peuvent être sélectionnés, je souhaiterais avoir le msgbox erreur que quand le type crapaud et sélectionner ainsi que le nombre renseigner n'est pas modulo de 8.

J'ai essayé comme ceci

Si saisie crapaud sans valeur

message plus sélection de la cellule à saisir.

bonne journée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Dim LIGNE As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Range("K" & Target.Row).Value = "CRAPAUD" Then
         If Range("H" & Target.Row).Value = "" Then
        LIGNE = Target.Row
          MsgBox "ERREUR!!!! Le nombre doit étre saisi en premier"
          Cells(LIGNE, 8).Select
          Exit Sub
       End If
           If Range("H" & Target.Row).Value Mod 8 = 0 Then
            Else
            MsgBox "ERREUR!!!!" & vbCrLf & "Veuillez vérifier le nombre de crapaud....", vbCritical, "ERREUR!!!!"
            End If
        End If
 End Sub

16/02/2018, 12h12
Menhir

Citation:

Envoyé par demichoux

J'ai développé un outil de planif pour le boulot, j'aimerais que lorsque l'utilisateur renseigne 2 cellules, (1 avec le nombre et 1 avec le type) ,l'utilisateur renseigne en 1er la cellule avec nombre puis le type "CRAPAUD" il faut absolument que le nombre soit modulo de 8.

A priori, pas besoin de VBA pour ça. Ca peut se gérer avec la validation de données.

En supposant que tes cellules Nombre et Type soient respectivement A1 et B1.

Sélectionne A1 > Ruban Données > Icone Validation de données > Validation de données > Autoriser = Personnaliser
Dans le champ Formule, mets :

Code:

=MOD(A1;8)=0

> Ok

Sélectionne B1 > même chemin que ci-dessus, mais comme formule, tu mets :

Code:

=NON(ESTVIDE(A1))

Ce sera plus simple, plusrapide et plus fiable qu'une macro.

a_diard, je me suis inspiré de ton code, je te remercie beaucoup, je pense même l'utiliser entier pour améliorer mon outil.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 If Target.Column = 11 And Range("K" & Target.Row).Value = "CRAPAUD" Then If Range("H" & Target.Row).Value Mod 8 = 0 Then Else MsgBox "ERREUR!!!!" & vbCrLf & "Veuillez vérifier le nombre de crapaud....", vbCritical, "ERREUR!!!!" End If End If
Je suis désolé Menhir, je n'arrive pas du tout à voir comment cela fonctionne, tout en sachant que ma colonne "type" est une liste de validation de données.