XL 2019 NB SI ENS VBA

E5kobar

XLDnaute Nouveau
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
 

E5kobar

XLDnaute Nouveau
Re @Staple1600

J'abuse encore sur une question ^^ :

Dans le code transmis (que j'essaye vivement de comprendre), on a :

"si numéro de facture testé est présent dans la plage indiquée alors messbox"Facture déjà dans le suivi factures"
sinon rien


A la place de sinon rien j'aimerais appeler une macro (appelée pour l'exemple "Transfert_From_Master1")

J'essaye de positionner ce "call Transfert_From_Master1" à plusieurs endroit mais j’échoue.


Un gros merci d'avance ;)
 

Pièces jointes

  • doublon.xlsm
    18.5 KB · Affichages: 9

Staple1600

XLDnaute Barbatruc
Re

Comme je suis d'humeur taquine (et que je veux flatter mes oreilles ;))
VB:
Sub macroBouton_II()
Dim rng, x As Range
With Application
  .ScreenUpdating = False
  With ActiveSheet
    Set rng = .Range(.Cells(12, "E"), .Cells(Rows.Count, "E").End(3))
    End With
    Set x = Range("E7")
  If Len(x) And .CountA(rng) > 0 Then
      If Not IsError(Application.Match(x, rng, 0)) Then
      MsgBox "Facture déjà dans le suivi factures", vbCritical, "Erreur"
      x = ""
      Else
      .Run "LikeHell"
      End If
  End If
End With
End Sub
Sub LikeHell(Optional SeeMe As String = "https://www.youtube.com/watch?v=4Uf_rTLqj0o")
MsgBox "Je suis l'autre macro", 64
End Sub
Je te laisse en déduire comment appeler l'autre macro (mais la tienne)

NB: Si tu es curieux et attentif, normalement, tu devrais brancher ton casque et/ou alluler tes HP ;)
 

patricktoulon

XLDnaute Barbatruc
re

@Staple
il faudra que tu m'explique comment on peut avoir le son
VB:
.Run "LikeHell"
      End If
  End If
End With
End Sub
Sub LikeHell(Optional SeeMe As String = "https://www.youtube.com/watch?v=4Uf_rTLqj0o")
MsgBox "Je suis l'autre macro", 64
End Sub
seeMe n'est qu'un string et n'est même pas utilisé dans la sub ???????? o_O
 

Staple1600

XLDnaute Barbatruc
Re

patricktoulon
Je n'ai jamais dit que la macro allait sur youtube
J'ai juste indiqué que selon les retours que j'aurai (notamment du demandeur), je pourrai pensé en sirotant mon café.
"Ah tiens, un demandeur qui fait preuve de curiosité, il a vu l'url
Et hop CTRL+C/CTRL+V dans son browser"

Un bon point donc que d'être curieux et attentif ;)
 

Discussions similaires

Réponses
8
Affichages
615

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal