Résultats pour "messagebox qui efface tout seul"

2'254 résultats pour cette recherche

Deux solutions pour afficher un message qui se ferme tout seul après X secondes

Première idée par ReuK (Excel pratique) voir la discussion mais qui apparement ne fonctionne plus sur Excel 2010

Deuxième solution avec un UserForm

message timer

Un classeur qui reprend les deux solutions

Ôter cadre et transparence.

Bonjour,

J'ai créé sur mon excel un bouton auquel j'ai affecté une macro enregistrée qui copie UNE SEULE feuille du classeur dans un nouveau document. La copie marche très bien sauf pour un détail. Quand j'active le bouton, celui se copie et passe au premier plan par rapport à l'autre. Seulement aucune commande de ce genre n'est présente dans la macro donc je n'en comprends pas l'origine, est-ce lié au fait que la macro copie la feuille ou y a-t-il une solution à mon problème ? Voici la macro enregistrée :

Private Sub CommandButton1_Click()

    Sheets("CONTRAT DE LOCATION SIMPLE").Select
    Sheets("CONTRAT DE LOCATION SIMPLE").Copy
    Windows("LOCATIONSF.xlsm").Activate
End Sub

Merci

Imharil

Bonjour

J'ai toute une série de fichiers auxquels j'ai juste fait quelques petites modifs habituelles (contenu des cellules, rien d'autre) , mais qui après enregistrement passent de 250 Ko à plus de 6000 Ko.

Je n'arrive plus à les envoyer en pj dans mes mails.

J'ai essayé de supprimer les éventuelles lignes vides, les colonnes, toutes les petites macros qu'ils comportaient : rien n'y fait.

Quelqu'un saurait-il me dire pourquoi ils sont devenus si volumineux ? un exemple en pj (avant et après)

Merci de votre aide !

12team1-0607-2018.zip (52.77 Ko)
16team2-0809-2018.zip (132.79 Ko)

Bonjour,

j'ai un nbval(DATA!A:A)-1 tout simple dans une cellule, qui ne se met pas a jour tout seul lorsque j'ajoute ou supprime une donnée dans la colonne DATA!A:A. Je dois aller double cliquer dessus pour que la bonne valeur s'affiche.

Quelqu'un sait ce qui peut bloquer cette mise a jour? c'est la premiere fois que je vois ce problème.

Merci d'avance pour votre réponse.

Je peux mettre le fichier en ligne si vous avez besoin de tester.

Cordialement,

Mickaël.

Bonjour à tous,

J'ai un petit souci avec un tableau.

C'est un tableau dont beaucoup de données sont importées d'un autre tableau.

dans mon tableau, quand j'active les macros et que je choisis le dossier que je souhaite importer toutes les infos sont transmises correctement.

mais il y a une seule colonne qui s'écrase a chaque fois.

c'est donc un peu embêtant car toutes les infos que je rentre dans cette colonne sont systématiquement effacées a chaque fois que je mets a jour mon tableau.

y a t'il une solution?

merci beaucoup pour votre aide

Bonjour,

je recherche une solution qui n'existe peut etre pas.

J'ai créé une liste déroulante à choix multiples (cascade). Lorsque je choisi un choix en E3, cela me donne une liste de choix en F3 suivant mon choix effectué en E3. Tous cela fonctionne parfaitement.

j'ai aussi mis un code dans ma feuille, pour que quand je change de choix en E3, cela efface la cellule F3. Tout cela fonctionne ausis parfaitement.

Mon soucis, c'est que j'ai 2000 lignes dans mon tableau, et mon code marche que pour la première ligne. Pour que cela fonctionne sur les autres lignes, je suis obligé de répéter le code. Je voulais savoir si j'étais obligé de recopier mon code et de l'adapter pour 2000 lignes (très long) ou existe t'il un code qui fonctionne sur toute la colonne.

Voici le code que j'ai mis sur ma feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then Range("F3") = ClearContents
If Target.Address = "$E$4" Then Range("F4") = ClearContents
If Target.Address = "$E$5" Then Range("F5") = ClearContents
If Target.Address = "$E$6" Then Range("F6") = ClearContents
If Target.Address = "$E$7" Then Range("F7") = ClearContents
If Target.Address = "$E$8" Then Range("F8") = ClearContents
If Target.Address = "$E$9" Then Range("F9") = ClearContents
If Target.Address = "$E$10" Then Range("F10") = ClearContents
If Target.Address = "$E$11" Then Range("F11") = ClearContents
If Target.Address = "$E$12" Then Range("F12") = ClearContents

End Sub

Je vous remercie par avance pour votre aide, en espérant avoir était assez claire.

Bonjour à tous ,

serait-il possible qu'excel efface une cellule automatiquement.Je vais essayer de m'expliquer.Dans mon tableau j'ai une cellule qui possède une date de retour(Retour marchandise) par exemple je la met à la date 27/09/2019,Or je voudrais que cette cellule s'efface au bout de 2 mois,c'est à dire que lorsque nous serons le 28/11/2019,la cellule sera vide ce qui générera une condition dans une autre cellule.

Est-ce possible,'s'il vous plaît

Merci de votre aide

Bonsoir a tous et toutes, forum bonsoir

Je n'arrive a dessiner des bordures dans mon programme a cause d'une ligne de code

qui m'efface les bordures dès que les dessinent.

Voir svp le fichier ci-joint ou j'ai mis quelques explications.

Merci d'avance pour l'aide apporter, bonne soirée a tous.

Cdlt Ray

Lien vers fichier.

Bonjour à tous,

J'ai récupéré un formulaire de gestion de membres et je l'adapte en fonction de mes besoins. Cependant je cale sur une petite bricole.

Quand je valide une inscription ou que je l'efface, cela me supprime ma formule. J'ai essayer en donnant un range n'incluant pas cette cellule mais cela ne fonctionne pas.

Je joins le fichier pour une meilleure visibilité du problème, si vous avez une solution

Merci

11adherent-test.xlsm (62.61 Ko)

Bonjour à tous,

Je suis actuellement en train de construire un fichier permettant aux employées d'une entreprise de déclarer leurs frais kilométriques en fonction du mois et de l'année, un fichier donc très simple qui demande juste aux utilisateurs de sélectionner l'année et le mois (avec des listes) et qui affiche en fonction les différents jours ouvrés.

J'ai réussi à exactement faire ce que je voulais, tout marchait parfaitement. Seulement lorsque je ferme (après avoir enregistré) le fichier et que je l'ouvre de nouveau, mon fichier n'est plus identique. En effet, la cellule contenant le premier jour ouvré devient #Valeur! et comme tout dépend par le suite de cette première cellule, toutes mes cases deviennent #Valeurs!

Lorsque je colle la formule que j'avais établie dans la cellule, cela fonctionne de nouveau, mais à chaque ouverture c'est la même chose... Ce qui est vraiment embêtant.

Voici la formule qui devient #Valeur à chaque fermeture de fichier, et je ne comprends vraiment pas pourquoi....

=SI(B10="Janvier";SERIE.JOUR.OUVRE(DATE(B9;1;0);1;fériés);SI(B10="Février";SERIE.JOUR.OUVRE(DATE(B9;2;0);1;fériés);SI(B10="Mars";SERIE.JOUR.OUVRE(DATE(B9;3;0);1;fériés);SI(B10="Avril";SERIE.JOUR.OUVRE(DATE(B9;4;0);1;fériés);SI(B10="Mai";SERIE.JOUR.OUVRE(DATE(B9;5;0);1;fériés);SI(B10="Juin";SERIE.JOUR.OUVRE(DATE(B9;6;0);1;fériés);SI(B10="Juillet";SERIE.JOUR.OUVRE(DATE(B9;7;0);1;fériés);SI(B10="Août";SERIE.JOUR.OUVRE(DATE(B9;8;0);1;fériés);SI(B10="Septembre";SERIE.JOUR.OUVRE(DATE(B9;9;0);1;fériés);SI(B10="Octobre";SERIE.JOUR.OUVRE(DATE(B9;10;0);1;fériés);SI(B10="Novembre";SERIE.JOUR.OUVRE(DATE(B9;11;0);1;fériés);SI(B10="Décembre";SERIE.JOUR.OUVRE(DATE(B9;12;0);1;fériés);""))))))))))))

La cellule B10 contient une liste déroulante avec les mois, et la cellule B9 une liste déroulante avec les années.

Merci de votre aide !

Bonjour,

Je vous explique mon problème. J'ai un tableau excel où j'ai créé un planning. Dans ce planning j'ai inséré une mise en forme conditionnelle pour mettre en évidence un certain texte (dans mon tableau il s'agit de mettre en surbrillance des noms selon qu'ils sont absents ou présents). Mon problème est que j'arrive à créer la MFC correctement, mais que lorsque j'enregistre mon document et que je le ré-ouvre, celle ci a disparu. Je ne comprends pas pourquoi...

Avez vous une idée pour résoudre mon problème ?

Merci d'avance !

Cordialement,

Luna

Bonjour,

J'ai besoin des lumières des professionnels d'excel pour résoudre un petit problème !

Je souhaiterai avoir du texte écrit en permanence dans une cellule (pour indiquer quelle type d'information y est attendue), puis lorsque l'on saisit une information ce texte disparait. Jusque là rien de compliqué^^

Là où je bloque, c'est que je voudrais que lorsque l'on efface le contenu de la cellule, mon texte originel se ré-affiche.

Je cherche idéalement une solution sans macro, même si je pense que ce n'est pas possible.

Merci d'avance à tous ceux qui pourront m'apporter de l'aide !

Bonjour à tous,

Alors voila mon petit problème (que je trouve bien bizarre) :

J'ai dans une premiere feuille des informations à rentrer, dont certaines se retranscrivent dans une feuil2, mon souci est donc que quand j'efface certaine données de ma feuil1, cela me supprime carrément la formule dans mon autre feuille.

Savez-vous d'ou cela peut provenir?

Cordialement,

Kris

Salut la communauté

Comme le titre l'indique, j'ai un peu (plutôt beaucoup) de mal à saisir une macro qui effacerait les données d'une plage de tableau quand un de ces critères (une date)

est dépassé. Je joins un fichier pour que ce soit plus clair :

https://www.excel-pratique.com/~files/doc/Chercher_la_macro.xls

Merci aux connaisseurs

bjr,

je suis en train de faire une feuille relativement basique...avec des cases à cocher des formules de calculs... ca tout va bien..8)

certaines cases sont à renseigner par l'utilisateur : cout de l'équipement par exemple..

ms je voudrais créer un bouton qui puisse me " réinitialiser" ces cellules : cad enlever la valeur quà saisi l'utilsateur et remettre une cellule vierge sans valeur....

et là, j'atteins mes limites !!!

je pense pas que ce soit fort compliqué..ms je ne connais pas une seule fonction en vba..dc pour moi c'est insurmontable !!!

merci d'avance !!

Bonjour,

Je souhaiterai un petit coup de main s'il vous plait.

Mon problème est le suivant :

Je travail dans une usine et plus précisément dans l'atelier production. j'ai crée un formulaire pour des demandes d'intervention à l'atelier mécanique.

Mon fichier se compose de la manière suivante : 3 onglets

  • demande_méca
  • Liste_OF
  • Synthèse

Dans l'onglet demande_méca, je souhaiterai remplir les cases jaunes par un messageBox afin de limiter les interactions de mes techniciens sur le fichier et qu'ils le fracassent (c'est déjà arrivé). Pour faire simple je souhaiterai que dès l'ouverture du fichier, les messagesboxes arrivent au fur et à mesure (passage d'un messagebox à l'autre par un bouton suivant).

Une fois arrivé à la dernière case commentaire, j'aimerai faire apparaître un bouton "imprimer". Lorsque l'on clic sur le bouton "imprimer" je souhaiterai que le document s'imprime et pour finir que toute les cases du formulaire viennent remplir le tableau dans l'onglet synthèse.

Merci pour votre coup de main.

Bonne journée à vous.

Cordialement.

Bonjour à tous,

Je reviens une nouvelle fois avec une question plus simple car j'ai vraiment besoin de votre aide.

Auriez un code à me proposer pour cette situation :

Je voudrais en appuyant sur un bouton situé sur mon UserForm que cela m'affiche un MessageBox. Mais pas n'importe quel Messagebox, un MessageBox sous forme de tableau qui prendrait les informations dans un classeur fermé ?

Le classeur fermé contient un exel en tableau et dans ce Messagebox je voudrais récupérer les colonnes que je veux.

Merci de votre intention !

Bonjour à tous,

Une petite question. Est-ce possible de demander à Excel de filtrer sur un ou plusieurs critères d’une même colonne en fonction de ce qui est coché dans une mssgbox ?

Je suis en train de construire une macro (à mon rythme...) mais je ne suis pas finalement sur que ce soit réalisable. Il me faudrait l'avis d'un expert

Je mets en copie mes 2 fichiers pour exemple. Le fichier a été simplifié pour l'exemple.

Fichier avec macro : "Fichier macro 2"

Fichier de base que la macro ouvre : "base"

Merci pour votre retour,

13fichier-macro2.xlsm (21.08 Ko)
12base.xlsx (10.89 Ko)

Bonjour à tous,

Je suis novice dans le domaine des VBA et des macros. Je vous explique ma difficulté, je souhaite créer un planning de réservation de location de voiture, pour cela j'ai créer une macro (image d'un calendrier avec un +) qui ouvre un MessageBox avec toutes les informations que je dois renseigner pour ma réservation, malheureusement je n'arrive pas à y insérer deux calendriers afin d'indiquer mes dates de départ et de retour, auriez-vous des aides à me proposer ?

De plus je n'arrive pas à actionner mon bouton Annuler dans ma MessageBox, auriez-vous la gentillesse de m'aider également ?

Je vous es joint mon fichier, je suis désolée, je ne m'exprime peut-être pas correctement.

Je vous remercie par avance de toute l'aide que vous m'apporterez

Amicalement,

Anthéa

70planningv2.xlsm (335.04 Ko)

Bonjour à tous,

Je suis sur un problème depuis quelques jours et je n'arrive pas à me débloquer. J'ai cherché partout dans le forum mais impossible de trouver un sujet comparable (ou alors je n'arrive pas à adapter mon code).

Voici mon problème : J'aimerais que pour la colonne B, Excel me renvoie un message d'erreur (MessageBox "Numéro dossier déjà existant") si l'utilisateur entre dans une cellule de la colonne B un numéro qui existe déjà dans cette même colonne.

Un exemple sera peut-être plus parlant : Si en B6 je rentre la valeur "12/26" mais qu'elle est déjà présente en B3 alors une messagebox s'affiche, signalant l'erreur. Si la valeur n'existe pas déjà alors rien ne se passe.

Le but de mon code serait de vérifier qu'un numéro de dossier n'existe pas déjà dans ma colonne lorsque l'utilisateur entre une nouvelle valeur dans cette colonne.

Voici le code que j'ai pour l'instant, et qui ne fonctionne pas malheureusement :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Lig As Integer
Dim Col As String
Dim Nbrlig As Long
Dim msg
Dim condition As Integer
Dim Cible As String

If Target.Column = 2 Then
Col = "B"
condition = 0
Cible = Cells.Range("B:B")
Nbrlig = 0
Nbrlig = Cells(65536, Col).End(xlUp).Row
For Lig = 1 To Nbrlig
    If Application.Match(Cible, Worksheet("Feuil1").Range("B:B").Value, 0) Then
    condition = 1
    End If
Next

If condition = 1 Then
msg = MsgBox("SEP déjà existant", vbOKOnly, "Attention")
End If

End If

End Sub

Je vous joint également un document excel.

PS 1 : Je ne sais pas comment définir ma cellule "Cible". Elle représente la cellule où l'utilisateur entre une nouvelle valeur. C'est cette cellule qui devra être comparée avec toutes les autres parmi la colonne B.

PS 2 : ma version de Excel est la 2007

Je vous remercie par avance pour votre aide précieuse !

Cordialement,

7classeur1.xlsx (11.91 Ko)

Recherches récentes

creer facturecreer facture word pdf partir base modeleextraire liste multiple critereextraire liste fonction multiple criterecopier coller entre fichiers nouvellement ouvertworkbooksworkbooks activatetresorerieajout ligneprevisionnel tresorerievba color plage date double conditioncolonne vbadimspin textspinmail graphiquesharepointsciapiprotected