macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donnée

[ordaz75]

Bonjour

Je travail sur un fichier a but professionnel.

Je suis bloqué sur une macro. J'aimerais dans mon fichier lorsque je rentre des immatriculations dans mon onglet "SAISI" (colonne vert) qu'une boite de dialogue me notifie que l'immatriculation saisie figure dans l'onglet "VEHICULE RECONVERSION". Un message du style "véhicule en reconversion" m'avertirait.

ci joint fichier

Merci d'avance

 

[Robert]

Re : macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donné

Bonsoir Ordaz, bonsoir le forum,

Peut-être comme ça avec la macro événementielle Change appliquée au composant Feuil1(SAISIE) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OS As Object 'déclare la variable OS (Onglet Source)
Dim PL As Range 'déclare la variable PL (Plage)
Dim R As Range 'déclare la variable R (Recherche)

Set OS = Sheets("VH-reconv") 'définit l'onglet source OS
Set PL = Range("C4:C56") 'définit la plage PL
'si le changement a leiu ailleurs que dan sla plage Pl, sort de la procédure
If Application.Intersect(Target, PL) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
'définit la recherche R (recherche la valeur entière de la cellule éditée dans la colonne 1 (=A) de l'onglet OS
Set R = OS.Columns(1).Find(Target.Value, , xlValues, xlWhole)
'si il exite au moint une occurrence trouvé, message
If Not R Is Nothing Then MsgBox "véhicule en reconversion"
End Sub

 

[Papou-net]

Re : macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donné

Bonsoir ordaz75,

Voici ton fichier modifié. Une procédure événementielle vérifie si le n° existe dans la feuille VH-reconv et affiche un message.

Bonne soirée.

Cordialement.

Edit: oups, j'ai rafraîchi avant de poster mais tu m'as encore battu sur le fil. Salut à toi Robert.

 

[Robert]

Re : macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donné

Bonsoir le fil, bonsoir le forum,

Je rectifie le code de Papou-Net que je préfère au mien mais qui n'a pas utilisé la bonne colonne :
Remplacer :

If Not Intersect(Feuil1.Range("A4:A" & Rows.Count), Target) Is Nothing Then

Par :

If Not Intersect(Feuil1.Range("C4:C" & Rows.Count), Target) Is Nothing Then

 

[ordaz75]

Re : macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donné

merci de vos réponses
C'est exactement cela que je voulais

bonne soirée !!!

 

[Papou-net]

Re : macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donné

RE

Suite à la lecture de ton code, mon cher Robert, à mon tour de rectifier le mien. En effet j'ai oublié de tester si Target englobait plusieurs cellules ce qui, dans l'affirmative, produit une erreur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Feuil1.Range("C4:C" & Rows.Count), Target) Is Nothing Then
  Set num = Feuil5.Columns(1).SpecialCells(xlCellTypeConstants).Find(Target.Value, LookIn:=xlValues)
  If Not num Is Nothing Then MsgBox "véhicule en reconversion"
End If
End Sub

Cordialement.

 

[ordaz75]

Re : macro qui ouvre une boite de dialogue ou notification lorsque je saisi une donné

Très bien, je rectifier cela sur mon fichier alors.
Merci