saisie condisionnel

[akramenergie]

Bonjour mes amis
dans la feuil1 de mon fichier j'ai des numéro de lot fermer ou ouver.
fermer c'est avec la couleur rouge ouvert c'est sans couleur
je voudrais que lorsque je saisie dans la deuxieme feuil un numéro de lot qui est férmer un message d'erreur s'affiche qui interdi la saisie de ce lot
Merci

 

[Guest]

Re : saisie condisionnel

Bonjour,

Voici une procédure parmi d'autres possibles, à mettre dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Text = vbNullString Then Exit Sub
    Dim c As Range
    Set c = Feuil1.Range("A:A").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        If c.Interior.ColorIndex = 3 Then
            MsgBox "Lot non ouvert: " & Target.Text, vbCritical, "Erreur saisie"
            Application.EnableEvents = False
            Target.ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

A+

 

[akramenergie]

Re : saisie condisionnel

le code doit étre mis dans quel feuille la premiere ou la deuxieme la ou je saisie les lot

 

[akramenergie]

Re : saisie condisionnel

je sais pas quoi faire avec le code cité au dessus je suis q'un débutant en macro excel???😕

 

[jeanpierre]

Re : saisie condisionnel

Bonjour akramenergie,

Clic droit sur l'onglet de la feuille où tu saisis, et Visualiser le code et tu colles le code...

Tu analyses ensuite.

Bon après-midi.

Jean-Pierre