XL 2019 NB SI ENS VBA

[E5kobar]

Bonjour le fil,

L'onglet dans lequel je travaille s'appelle "Master1"

J'ai dans ma plage de E14 à E des numéros de factures.

En E7 j'indique un nouveau numéro de facture.

SI valeur de E7 est présente de E14 à E alors message box "Facture en cours" + Exit Sub
Si pas présent Exit Sub

Si vous avez la solution je suis preneur 🙂

Un gros merci d'avance,

Pierre

 

[Staple1600]

Bonjour le fil, E5Kobar

E5Kobar
Quel est le rapport entre le titre de ta question et ta question ?!?

 

[E5kobar]

Bonjour Staple1600,

Je pensais peut être maladroitement à utiliser l'équivalent de la formule NB SI ENS excel en VBA pour pouvoir résoudre ma problématique? Je me trompe?

Pierre

 

[Staple1600]

Re

Donc pour répondre à la question présente dans le message#1 (et non le titre) 😉

Private Sub Worksheet_Change(ByVal T As Range)
Dim rng
Set rng = Range(Cells(14, "E"), Cells(Rows.Count, "E").End(3))
If T.Address = "$E$7" And Len(T) Then
If Not IsError(Application.Match(T, rng, 0)) Then
MsgBox "Veuillez saisir un autre numéro, svp", vbCritical, "Numéro de facture déjà existant!"
T = ""
End If
End If
End Sub

NB: code VBA à mettre dans le Code de la feuille concernée (donc pas dans un Module standard)

 

[E5kobar]

Merciiiii!

C'est top!

 

[E5kobar]

Rebonjour,

J'ai une problématique avec ce code. En effet, vu qu'il se situe dans le code de la feuille, le code est tout le temps actif.

Conséquence => ça me fait planter une autre macro.

J'aimerais pouvoir lancer ce code à la demande en lançant par exemple un "Call" de celui ci, dans un autre code.

Est ce possible?

Merci d'avance pour votre aide,

 

[Staple1600]

Re

Sans fichier exemple, sans voir le code de l'autre macro...
je te laisse finir ma phrase 😉

 

[E5kobar]

Ok 😀, on oubli l'autre macro et le fichier source 🙂

Est ce possible de mettre l'équivalent de ce code dans un module? et de le déclencher via un bouton?

Pierre

 

[Staple1600]

Re

Non ma phrase (si je l'avais fini) eut été:
"Sans fichier exemple, sans voir le code de l'autre macro, pas évident. Il serait peut-être temps pour le demandeur de joindre un fichier Excel exemple, afin que nous les répondeurs puissions y voir plus clair"

 

[patricktoulon]

J'ai une problématique avec ce code. En effet, vu qu'il se situe dans le code de la feuille, le code est tout le temps actif.

?????????
tant que tu change pas E7 le code devrait rien faire

 

[E5kobar]

Re,

En PJ la problématique exposée

En espérant être plus clair que je n'ai été.

Pierre

 

[Staple1600]

Re,

E5Kobar
Très drôle...😱 🙄
Le code que je t'ai proposé n'est pas dans ta pièce jointe
Ni le code de l'autre macro

 

[E5kobar]

Re
Staple1600
On oublie le code de l'autre macro
le code que tu m'as proposé fonctionne parfaitement, cependant j'ai besoin de passer par un bouton cf exemple en PJ.
En considérant l'exemple en PJ, Est ce possible?

Pierre

 

[Staple1600]

Re

C'est possible et relativement simple
Il suffit de mettre les mains dans le cambouis (ce qui ne semble pas être ton fort 😉)

Sub macroBouton()
Dim rng, x As Range
With ActiveSheet
Set rng = .Range(.Cells(12, "E"), .Cells(Rows.Count, "E").End(3))
End With
Set x = Range("E7")
If Len(x) Then
If Not IsError(Application.Match(x, rng, 0)) Then
MsgBox "Facture déjà dans le suivi factures", vbCritical, "Erreur"
x = ""
End If
End If
End Sub

Code à affecter à ton bouton.

 

[E5kobar]

C'est parfait!

Désolé pour mon faible niveau haha 😉

Merci encore!