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

 

[E5kobar]

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 😉

 

[Staple1600]

Bonjour le fil,

Re
Staple1600
On oublie le code de l'autre macro

"Cochon qui s'en dédit!"
Faudrait savoir, mon petit bonhomme 😉

 

[Staple1600]

Re

Comme je suis d'humeur taquine (et que je veux flatter mes oreilles 😉)

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 😉

 

[E5kobar]

Hahaha merci!

 

[Staple1600]

Re
E5kobar
Alors tu as branché ton casque ou pas?
(et accessoirement le code proposé fonctionne-t-il une fois adapté sur ton PC?)
😉

 

[E5kobar]

Re Staple1600 tout fonctionne, impeccable!

Par contre j'ai branché mon casque/augmenté le son, mais rien ne se passe... 🙂

 

[E5kobar]

si je ne dis pas de betise on aurait dû avoir le son

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

en OFF?

 

[Staple1600]

Re

Je viens de retester l'URL
Et chez moi j'ai bien le son 😉

Sinon, la macro elle tourne comme tu veux?

 

[patricktoulon]

re

@Staple
il faudra que tu m'explique comment on peut avoir le son

.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 ???????? 😵

 

[Staple1600]

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 😉

 

[patricktoulon]

c'est ce que j'ai fait ce matin
du coup j'en ai laisser passer quelque une 😉

 

[Staple1600]

Re

Donc tu as bien eu le son, non ? (à défaut d'avoine)

(désolé, j'ai pas pu résister 😉)

 

[patricktoulon]

re
a oui j'ai bouffé du pink floyd pendant 1 heure 😛