Discussion :

[demichoux]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

Bonjour,

quelle est la question et le problème ? A première vue ton bloc If/End If tient la route

[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.

[a_diard]

J'ai essayé comme ceci

Si saisie crapaud sans valeur

message plus sélection de la cellule à saisir.

bonne journée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOD(A1;8)=0

> Ok

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NON(ESTVIDE(A1))

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

[demichoux]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.