Microsoft 365 lancer un code de la feuille active et afficher le MsgBox sur la feuille active sans activer l'autre feuille

Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Bonsoir à toutes et à tous,

Je cherche à faire ce qui suit :
Contexte
Je suis sur la feuille "Lancement_code_ici" (feuille active d'où je clique sur mon bouton "MsgBox Rappels du jour"
- sans activer la feuille "RdV_transfert", le code s'éxécute et le MsgBox s'affiche en restant sur la feuille active et le code se termine sans activer la feuille "RdV_transfert"

Je n'ai pas réussi à l'instant à le faire.
Pourriez-vous m'aider ?
Je joins je fichier test et je continue à chercher.

Un grand merci par avance,
lionel :)
 

Pièces jointes

  • forum_test.xlsm
    47.3 KB · Affichages: 8
Solution
fanch55
Salut à tous,
Code :
VB: 
Sub cherche()
Dim Col As Range, Msg As String
Dim T   As String: T = String(20, "-")
Const Dlm = ":   "
    
    Set Col = Worksheets("Rdv_transfert").Columns("h:h").Find( _
              "à confirmer", , xlValues, xlPart, xlByRows, xlNext)
    If Not Col Is Nothing Then
        Set Col = Col.Parent.Rows(Col.Row).Columns
        Msg = "Réseau" & vbTab & vbTab & Dlm & Col("E") & vbLf & _
              "Agent " & vbTab & vbTab & Dlm & Col("F") & vbLf & _
              "Date RdV" & vbTab & Dlm & Col("B") & vbLf & _
              "Date Appel" & vbTab & Dlm & Col("C") & vbLf & _
              "Intervalle" & vbTab & vbTab & Dlm & Abs(DateDiff("d", Col("B"), Col("C"))) & vbLf & vbLf & _
              "ENVOI ? = OUI...
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
patricktoulon à dit:
changez pour vous ce qui est en rouge
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 20, 0)
Qx = IIf(Qx = 6.01, (4 / 3), 1)
End Sub
Cliquez pour agrandir...
Ah zut, cette partie de #118 n'y était pas quand j'ai écrit #119, et du coup moi j'ai mis 1 et 1 au lieu de 0 et 1 comme tu indiques.
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Re Patrick, Marcel :)
pour moi c'est bon :
1643292324591.png

enclume toi-même lol :)
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
oui j'avais essayé mais c'est une fausse piste je le savais déjà
chez moi c'est bien 1.33333 soit le coeff points/pixel avec un dpi de 100
et c'est tout a fait normal car offsetwidth et offsetheight renvoient des mesures en pixel
sauf que bien sur chez moi en dpi 120 le coeff est de 1.66666667
sauf que le webbrowser même si il est dans le userform restitue comme une fenêtre IE et a donc sa propre résolution qui est basé sur un de DPI de 100
je peux l’affirmer car çà fait longtemps que je travaille avec les webbrowser et si j'applique le coeff de mon dpi dans un webbrowser ou IE pour dimensionner un element je suis obligé de réduire de 1.20 pour avoir un visuel identique
si tu te ballade dans DVP ou même ici tu trouvera mes fonction range to table html j'evoque a divers endroit cette particularité

bon ben si c'est bon pour tout les deux ca devrait l'etre pour tous

voilà alors lionel tu va l'utiliser mon msgboxW
nombre de lignes limité a ce que peut afficher la hauteur d'ecran
largeur pareil
couleur modifiable a souhait
et on a les VbButton des msgbox classique
bref c'est plus que ce que tu avais demandé
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
patricktoulon à dit:
oui j'avais essayé mais c'est une fausse piste je le savais déjà
chez moi c'est bien 1.33333 soit le coeff points/pixel avec un dpi de 100
et c'est tout a fait normal car offsetwidth et offsetheight renvoient des mesures en pixel
sauf que bien sur chez moi en dpi 120 le coeff est de 1.66666667
sauf que le webbrowser même si il est dans le userform restitue comme une fenêtre IE et a donc sa propre résolution qui est basé sur un de DPI de 100
je peux l’affirmer car çà fait longtemps que je travaille avec les webbrowser et si j'applique le coeff de mon dpi dans un webbrowser ou IE pour dimensionner un element je suis obligé de réduire de 1.20 pour avoir un visuel identique
Cliquez pour agrandir...
Ce ne sont pas les DPI qui sont à 125 ou 100, mais le coefficient de zoom.
Ne pas confondre le coefficient de zoom et la résolution. ;)

En tout cas, merci pour ces précisions.👍
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
patricktoulon à dit:
oui j'avais essayé mais c'est une fausse piste je le savais déjà
chez moi c'est bien 1.33333 soit le coeff points/pixel avec un dpi de 100
et c'est tout a fait normal car offsetwidth et offsetheight renvoient des mesures en pixel
sauf que bien sur chez moi en dpi 120 le coeff est de 1.66666667
sauf que le webbrowser même si il est dans le userform restitue comme une fenêtre IE et a donc sa propre résolution qui est basé sur un de DPI de 100
je peux l’affirmer car çà fait longtemps que je travaille avec les webbrowser et si j'applique le coeff de mon dpi dans un webbrowser ou IE pour dimensionner un element je suis obligé de réduire de 1.20 pour avoir un visuel identique
si tu te ballade dans DVP ou même ici tu trouvera mes fonction range to table html j'evoque a divers endroit cette particularité

bon ben si c'est bon pour tout les deux ca devrait l'etre pour tous

voilà alors lionel tu va l'utiliser mon msgboxW
nombre de lignes limité a ce que peut afficher la hauteur d'ecran
largeur pareil
couleur modifiable a souhait
et on a les VbButton des msgbox classique
bref c'est plus que ce que tu avais demandé
Cliquez pour agrandir...
Merci Patrick :)
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
je l'ai dis tout a l'heure tu met le moins a ce qui te convient dans le initialyse
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 20, 0)
Qx = IIf(Qx = 6.01, (4 / 3), 1)
End Sub
avec divers retours peut être qu'un jour je trouverais la logique ;)😅
pour le moment on fait comme ça
[edit]
j'ai trouvé une partie de la logique
en fait dans mon calcul je ne prends pas en compte le margin du

body
table
TR
[edit]
le margin auto qui est appliqué quand pas de css est de 4 points environ
car la table n'est pas en bordercollapse
avec 20 en dur comme j'avais mis plus il y avait de ligne moins c'etait bon
donc la formule pour rectifier la hauteur est
4 fois le nombre de ligne(TR) = ce que l'on doit enlever en hauteur
j'ai testé
avec -20 et beaucoup plus de ligne
1643299603757.png


avec la nouvelle formule et le meme message
1643299681406.png



pour vous c'est le rouge à changer
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 4, 0)' remplacez le zero par (1 à 4)
Qx = IIf(Qx = 6.01, (4 / 3), 1)'on est bon comme ça chez vous et chez moi
End Sub
la multiplication je la fait dans la création
nouveau fichier joint
 

Pièces jointes

  • test msgbox superkool V°2 patricktoulon pour usine a gaz.xlsm
    69.2 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
patricktoulon à dit:
re
je l'ai dis tout a l'heure tu met le moins a ce qui te convient dans le initialyse
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 20, 0)
Qx = IIf(Qx = 6.01, (4 / 3), 1)
End Sub
avec divers retours peut être qu'un jour je trouverais la logique ;)😅
pour le moment on fait comme ça
[edit]
j'ai trouvé une partie de la logique
en fait dans mon calcul je ne prends pas en compte le margin du

body
table
TR
[edit]
le margin auto qui est appliqué quand pas de css est de 4 points environ
car la table n'est pas en bordercollapse
avec 20 en dur comme j'avais mis plus il y avait de ligne moins c'etait bon
donc la formule pour rectifier la hauteur est
4 fois le nombre de ligne(TR) = ce que l'on doit enlever en hauteur
j'ai testé
avec -20 et beaucoup plus de ligne
Regarde la pièce jointe 1128914

avec la nouvelle formule et le meme message
Regarde la pièce jointe 1128916


pour vous c'est le rouge à changer
Private Sub UserForm_Initialize()
Qx = Val(Trim(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1)))
moins = IIf(Qx = 6.01, 4, 0)' remplacez le zero par (1 à 4)
Qx = IIf(Qx = 6.01, (4 / 3), 1)'on est bon comme ça chez vous et chez moi
End Sub
la multiplication je la fait dans la création
nouveau fichier joint
Cliquez pour agrandir...
Nickel pour moi :)
 
Vote positif 0 Vote négatif

Discussions similaires

Fredox
  • Question
Microsoft 365 [Résolu] | Ribbon | Afficher/Masquer le Ruban selon la feuille active
Réponses
9
Affichages
605
patricktoulon
patricktoulon
N
  • Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
87
NONO14
N
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
325
Nel'
N
AlCapone
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
112
AlCapone
AlCapone
M
  • Question
Microsoft 365 Envoi (mail) d'une seule feuille de calcul (active) en pdf
Réponses
7
Affichages
995
patricktoulon
patricktoulon
J
  • Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
435
Julien_B
J
Usine à gaz
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
1 K
TooFatBoy
TooFatBoy
T
  • Question
Microsoft 365 vba : nom de tableau si feuille non active
Réponses
13
Affichages
553
thenesol
T
Nicolas JACQUIN
  • Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
1 K
Tartine
T
O
  • Question
XL 2010 Besoin d'aide Excel pour Expert - récupérer données sur une autres feuille
Réponses
8
Affichages
399
AtTheOne
AtTheOne

Membres actuellement en ligne

3 membres et 74 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 644
Messages
2 111 528
Membres
111 189
dernier inscrit
Laurent.