Résultats de la recherche

  1. A

    exportation d'une date avec 1année en moins

    Bonjour, J'ai 2texboxdate :texboxdate1 et textboxdate2 (dans lesquels je saisies des dates:) ) J'ai un optionbutton1 Et 2 autres textboxdate: texteboxdate3 et textboxdate4 Je souhaiterai que lorsque je le option button est vrai (donc selectionné) que la date saisie dans texboxdate1...
  2. A

    % combobox

    Bonjour, Ne trouvant toujours pas la solution pour faire apparaitre les % dans une combobox je joint mon fichier Excel. Ma combobox est lié à une source où j'ai saisi manuellement les pourcentage mais quand je clique dans la combobox sur un pourcentage le chiffre apparait par exemple comme sa...
  3. A

    Suppression contenu feuille

    Bonjour, Je souhaite à l'aide d'un bouton effacer le contenu et la mise en forme de 2 feuilles nommés "statistiques" et "traitement" et fermer mon programme ne sauvegardant. J'ai donc fait la formule suivante: Private Sub CommandButton4_Click() Sheets("Statistiques").select Cells.Delete...
  4. A

    Calcul avec une boucle

    Bonjour, J'ai 2 feuilles:"Statistiques" et "traitement" Je souhaite qu'un bouton permette de multiplier les colonnes B et C de la feuille "traitement" et envoi le résultat dans la cellule C10 de la feuille "Statistiques". En gros que le bouton face le calcul suivant: B1*C1 + B2*C2+ B3*C3...
  5. A

    % dans combobox

    Bonjour, J'ai une combobox comportant des % (50%, 20%..)dans une userform. Quand je selectionne 50% par exemple il apparait dans la combobox 0.5 et pas 50%. Est il possible de faire apparaitre 50% au lieu de 0.5 Merci d'avance pour vos réponse. Cdt
  6. A

    nombre de cellule non vide

    Bonjour, Quel formule permettrait de compter le nombre de cellule non vide dans la collone A de la feuille traitement? Merci d'avance Sa parrait tout bête mais je ne sait pas comment faire
  7. A

    triangle vert sur chiffre

    -------------------------------------------------------------------------------- Bonjour, J'effectue de la saisie dans une userforme et quand je valide sa enregistre tous dans une autre feuille. Cependant les cases comportant des chiffres ont en haut à gauche un triangle vert, et si par...
  8. A

    Recherche pour statistiques

    Bonjour,j'ai crée un petit programme permettant d'effectuer de la saisie administrative. Je vous présente rapidement son fonctionnement pour m'aider à resoudre mon problème. Je peux effectuer de la saisie à partir d'une userform et quand je valide tous s'enregistre dans la feuille saisie...
  9. A

    masque de saisie date dans textbox

    Bonjour, Je souhaite que __/__/_____ apparaisse dans la textbox et que je n'est qu'a saisir la date comme ceci:12032008 et la date apparaitra come sa:12/03/2008, les chiffres remplace les _. Est-ce possible? Merci de votre aide.
  10. A

    Systéme de recherche vba

    Bonjour, J'ai une userform1 qui me permet d'effectuer de la saisie et lorsque je clique sur le bouton OK cela enregistre toutes les données sur une seul ligne sur une autre feuille "Suivie".(A1:agence,B2:affectataire,B3:prénom,B4:nom...) Je souhaiterai créer un bouton me permettant de...
  11. A

    d'où vient l'erreur

    Bonjour, J'ai ce code derrier le bouton OK d'une userform qui contient 2 textboxdate, et je veux que en cliquant sur ce bouton OK, que le logiciel vérifie d'abord que la date qui apparait dans la 1éer textbodate soit inférieur a la 2ème texboxdate, si ce n'est pas le cas un message d'erreur...
  12. A

    Fermer un ficheir totalement

    Bonjour, Je souhaite juste créer un bouton pour fermer mon classeur sans sauvegarder ainsi que Excel en lui même. J'ai don fait le code suivant ThisWorkbook.Close savechanges:=False Application.Quit Cela me ferme bien mon classeur cependant Excel reste ouvert(excel ouvert mais sans...
  13. A

    point de suspension

    J'ai une userform qui apparait lors du chargement de mon application et sur laquel il y a marqué "chargement en cour..." Je souhaiterais que les 3 point de suspension bouge c'est à dire qu'il s'allumme un à un Est- ce possible? Merci d'avance
  14. A

    Option sur code vba déjà créé

    Bonjour, J’ai crée à un petit logiciel à l’aide de divers forums cependant je souhaiterais ajouter quelque options décritent ci-dessous. Après avoir cliqué sur le bouton GO je souhaiterai que si les dates ne sont pas saisi sous le format suivant : jj-mm-aaaa, que un message d'erreur...
  15. A

    montrer un chargement

    Bonjour, Voila mon code vba: Private Sub CommandButtonOK_Click() Application.ScreenUpdating = False 'Effacer texte + présentation dans la feuille données Sheets("Données").Select Cells.ClearContents Cells.NumberFormat = "General" Cells.Interior.ColorIndex =...
  16. A

    masque de saisie vba

    Bonjour, Voici le code que j'ai en ce moment pour des textboxdate dans une userform: 'Après la saisie de la date de début Private Sub TextBoxDate1_AfterUpdate() If Not IsDate(TextBoxDate1) Then MsgBox "Le texte saisi n'est pas une date ou est mal saisi", vbExclamation...
  17. A

    saut de page automatique

    Bonjour, Je pense que je vais poser un problème pas évidant a résoudre, car sa fait un moment que je cherche la solution mais bon je sui débutant donc peut être que c’est normale. J'ai créé un programme sous Excel avec Vba (avec l'aide de nombreuses personnes sur internet grâce aux forums et...
  18. A

    Impression d'une selection

    Bonjour, Je souhaiterai à l’aide d’un code Vba faire imprimer la sélection suivante : de la cellule A1 à la dernière cellule non vide de la colonne I. Merci d’avance pour votre aide.
  19. A

    code pour enregistrer

    Bonjour, Je souhaiterais que lorsque je clique sur un bouton sous Excel qu'apparaisse la même fenêtre que si je faissais Fichier->Enregistrer sous, avec comme nom de fichier à enregistrer: Etat de décision du (Textboxdate1) au (textboxdate2) J'ai fait la formule suivante cependant elle...
  20. A

    Reduire un code vba

    Bonjour, est il possible de reduire cette formule vba qui consiste à enlever SEULEMENT les bordures: Private Sub CommandButton1_Click() Sheets("Feuil1").Select Cells.Select Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone...