Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Garder une valeur dans un textbox

osiris150

XLDnaute Occasionnel
Bonjour à tous,

Je viens solliciter votre aide car je bute sur un problème depuis un moment.
Voilà, j'ai un tableau qui comprend 5 colonnes : code, libellé, N° camion, Poids, client
la colonne C (N° camion) se remplit automatiquement par des N° (via une macro)
Par défaut j'attribue un N° de camion à une agence.
Ensuite via un userform, je visualise le total des poids par camion ainsi que l'agence concerné par ces camions.
Exemple : le camion N°1000 pèse 849 Kgs et correspond à l'agence de Tours, le camion 1100 pèse 400 kgs et correspond à l'agence de Lorient etc...

Maintenant j'ai créé une inputbox afin de pouvoir changer en masse un N° de camion par un autre.
cette imputbox fonctionne parfaitement. Mais j'aimerais que lorsque je change le N° de camion, l'agence d'origine reste dans le textbox correspond au nouveau N° de camion.

Je mets en pièce jointe le fichier, ce sera plus parlant.
Merci par avance pour votre aide
Cdlt
 

Pièces jointes

  • Test.xlsm
    710.1 KB · Affichages: 14
Trier par date Trier par votes

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Osiris, bonjour le forum,

Pour moi c'est la conception de l'UserForm qui ne va pas. Je me demande si en utilisant des ComboBoxes à la place des textboxes, cela ne simplifierait pas le problème.
Je cerne mal aussi tout le code sur l'événement Change et les innombrables Application.EnableEvents qui jonchent ton code.
Je ne peux malheureusement pas te faire une proposition car je ne sais pas où tu veux en venir avec ton code...
 
Vote positif 0 Vote négatif

osiris150

XLDnaute Occasionnel
Bonjour Robert,

merci d'avoir pris le temps de regarder ma demande. Le fichier que j'ai mis en exemple est une version très simplifiée de celle que j'utilise à mon travail. Je ne pouvais pas mettre le fichier complet car il est trop lourd et bourré d'autres macros.
le code sur l'évement change c'est parce que j'ai besoin de voir en temps réel les changements de valeur dans l'userform. Après peut-être que je m'y prends mal mais je ne sais pas faire autrement pour les application.enableEvents c'est parce que là aussi j'ai supprimé pas mal de lignes de macros et du coup tout le code n'est pas présent dans l'exemple car inutile vis à vis de ma requête.

là ou je veux en venir avec mon code c'est juste de pouvoir changer un N° de camion en mettant un numéro qui n'est pas celui par défaut et aussi avoir la possibilité en plus de changer le nom de l'agence affecté à ce nouveau N°.

Les combobox ne seront pas pratique dans l'utilisation que je fais de ce userform. je l'utilise comme un tableau de bord juste pour afficher des informations.

Cordialement
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Bonjour le Fil
Comme Robert je trouve que ton Userform n'est pas optimisé pour permettre une gestion telle que tu la Veux !
Question :
as-tu plusieurs Camions par agence ?
Bonne Journée
Jean marie
 
Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour le fil, bonjour le forum,

Une espèce de proposition car je ne comprends pas pourquoi je le fais...

• dans le composant Module1 j'ai rajouté cette ligne en haut au tout début :
VB: 
Public Ag(1 To 5) As String
Elle crée un tableau de 5 variables publiques (les agences)

• à la fin de l'initialisation de l'UserForm j'ai rajouté ces lignes :
Code: 
Ag(1) = Me.TextBox24.Value
Ag(2) = Me.TextBox25.Value
Ag(3) = Me.TextBox26.Value
Ag(4) = Me.TextBox27.Value
Ag(5) = Me.TextBox33.Value
qui récupèrent dans les variables Ag les valeurs des TextBoxes correspondant aux agences

•dans la marcro test ente le Unload et le Show j'ai rajouté ces lignes :
Code: 
Unload tableaubord
tableaubord.TextBox24.Value = Ag(1)
tableaubord.TextBox25.Value = Ag(2)
tableaubord.TextBox26.Value = Ag(3)
tableaubord.TextBox27.Value = Ag(4)
tableaubord.TextBox33.Value = Ag(5)
tableaubord.Show

Après je n'ai aucune idée de si ça peut convenir ou pas...

Le fichier modifié:
 

Pièces jointes

  • Osiris_ED_V01.xlsm
    705.5 KB · Affichages: 3
Vote positif 0 Vote négatif

osiris150

XLDnaute Occasionnel
Bonjour Robert,

Merci pour cette proposition. Ce n'est pas tout à fait ce que je recherche. Ci-dessous une copie d'écran avec le résultat que j’attends. En espérant que cela soit plus clair. Je suis désolé si je m'explique mal.
Merci
Ecran de départ :

Résultat souhaité :
 

Pièces jointes

  • 1657286356463.png
    111 KB · Affichages: 22
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Résolu(e)
Power Query Regroupement suivant un code
Réponses
2
Affichages
374
combory
C
  • Question
Microsoft 365 Garder valeur cellule en fonction d'une autre dans 2 colonnes
Réponses
5
Affichages
630
osiris150
P
  • Question
Microsoft 365 faire une extraction dans une userform et afficher dans textbox
Réponses
1
Affichages
242
Oneida
L
  • Résolu(e)
Microsoft 365 Ratio dans un TCD
Réponses
4
Affichages
259
Laurent78
L
V
  • Question
XL pour MAC Changer de cellule automatiquement après avoir entré une valeur dans la cellule.
Réponses
7
Affichages
564
TooFatBoy
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
276
NONO14
N
Y
  • Résolu(e)
XL 2013 Récupérer le contenu d'un Tableau dans un autre classeur via Power Query et non toute la feuille...
Réponses
4
Affichages
400
Yvan1
Y
A
  • Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
633
aurelio.ewane
A
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
593
Lyrix
L
  • Résolu(e)
XL 2019 Accepter une virgule (ou un point) dans un textbox
2 3 4
Réponses
53
Affichages
2 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…