Controle avec message

Bonjour le forum ,

je voudrais un contrôle sur la colonne RA et RC si le taux n'est pas renseigné rendre impossible la saisie et affiche un message "veuillez renseigner le taux de responsabilité"

Bonjour,

à tester,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column >= 11 And Target.Column <= 13 Then
    If Cells(Target.Row, 10) = "" Then
        MsgBox "Vous devez au préalable choisir un Taux"
        Cells(Target.Row, 10).Activate
    End If
End If
End Sub

Bonsoir

merci beaucoup , il y a un cas si le taux est renseigné et après avoir saisi un nombre on n'a plus la possibilité de le supprimer, alors serait-t-il possible de rajouter à cette macro si le taux est supprimé fait de même le nombre saisi

re,

si j'ai bien compris tu veux modifier la macro existante,

à tester,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RA As Variant
If Target.Count > 1 Then Exit Sub

If Target.Column = 10 Then
    If Target = "" Then Range("K" & Target.Row & ":M" & Target.Row).ClearContents

Else
      ActiveSheet.Unprotect

            If Target = 0 Then
              Cells(Target.Row, 11).Select
              Cells(Target.Row, 12).ClearContents
               Do
               RA = InputBox("Saisissez un nombre RA")
                If Not Val(RA) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RA) > 0
              Cells(Target.Row, 11) = RA
              Cells(Target.Row, 12).Locked = True
              ActiveSheet.Protect
             End If

            If Target = 1 Then
              Cells(Target.Row, 12).Select
              Cells(Target.Row, 11).ClearContents
               Do
               RC = InputBox("Saisissez un nombre RC")
                If Not Val(RC) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RC) > 0
             Cells(Target.Row, 12) = RC
             Cells(Target.Row, 11).Locked = True
             ActiveSheet.Protect
            End If

            If Target <> 0 And Target <> 1 Then
              Cells(Target.Row, 11).Select
               Do
               RA = InputBox("Saisissez un nombre RA")
                If Not Val(RA) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RA) >= 0
             Cells(Target.Row, 11) = RA
               Do
               RC = InputBox("Saisissez un nombre RC")
                If Not Val(RC) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RC) >= 0
             Cells(Target.Row, 12) = RC
            End If

       End If
   End If
End If
End Sub

Bonsoir ,

c'est exactement ça mais il y a un problème avec les deux end if avant end sub un message apparait end if sans bloc if

re,

oui il y a 2 End If de trop à la fin, il faut les enlever.

Je l'ai enlevé mais j'ai toujours un message d'erreur

re,

à tester,

ps/ je n'ai pas modifier le reste du code car je ne sais pas ce qu'il doit faire,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RA As Variant
If Target.Count > 1 Then Exit Sub

If Target.Column = 10 Then
    If Target = "" Then Range("K" & Target.Row & ":M" & Target.Row).ClearContents

Else
      ActiveSheet.Unprotect

            If Target = 0 Then
              Cells(Target.Row, 11).Select
              Cells(Target.Row, 12).ClearContents
               Do
               RA = InputBox("Saisissez un nombre RA")
                If Not Val(RA) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RA) > 0
              Cells(Target.Row, 11) = RA
              Cells(Target.Row, 12).Locked = True
              ActiveSheet.Protect
             End If

            If Target = 1 Then
              Cells(Target.Row, 12).Select
              Cells(Target.Row, 11).ClearContents
               Do
               RC = InputBox("Saisissez un nombre RC")
                If Not Val(RC) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RC) > 0
             Cells(Target.Row, 12) = RC
             Cells(Target.Row, 11).Locked = True
             ActiveSheet.Protect
            End If

            If Target <> 0 And Target <> 1 Then
              Cells(Target.Row, 11).Select
               Do
               RA = InputBox("Saisissez un nombre RA")
                If Not Val(RA) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RA) >= 0
             Cells(Target.Row, 11) = RA
               Do
               RC = InputBox("Saisissez un nombre RC")
                If Not Val(RC) > 0 Then MsgBox "Il faut saisir une valeur numérique"
               Loop Until Val(RC) >= 0
             Cells(Target.Row, 12) = RC
            End If
End If
End Sub

avant quand je renseigné le taux j'avais une fenêtre qui apparait pour saisir le nombre , et maintenant elle apparait quand je saisi dans la colonne k ou L

re,

il faudrait nous donner une description de la façon dont les événements doivent se produire

selon le code que tu as déjà écrit,

il serait peut être mieux d'utiliser un Select Case

If Target.Column = 10 Then

Select Case Target.Value
Case "": 'acion

Case 0: 'acion

Case 1: 'acion

Case Else: 'acion

End Select

Dans la colonne D on saisi une référence si elle dans la feuil 2 la ligne se rempli, mais dans le cas ou elle n'existe pas on doit la remplir manuelement alors il peut y avoir des erreur ce qui peut nous amner a supprimer mais moi je veux supprimé toute en gardant les formules .j'espere que tu compredra mon besoi

Merci beaucoup pour ton aide

re,

j'ai l'impression de plus parler du sujet de ce fil

à savoir:

je voudrais un contrôle sur la colonne RA et RC si le taux n'est pas renseigné rendre impossible la saisie et affiche un message "veuillez renseigner le taux de responsabilité"

i

au sujet de "contrôle sur la colonne RA et RC"

à tester,

i

i

i

i

i20100 a écrit :

i

s.v.p Sébastien,

Merci de supprimer les messages i

Bonjour ,

moi mon contrôle été si je saisi

le taux =0 il me demande de saisir RA

le taux = 100 il me demande de saisir RC

le taux de taux =25 ou 50 ou 75 saisir RA et RC

et maintenant je donne n'importe quelle taux il me demande de saisir RA et RC