Contenu récent par petchy

  1. P

    Aperçu avant imprim sur USF

    Re : Aperçu avant imprim sur USF Re j'ai trouver se code qui fait un aperçu de plusieurs feuille,mais je n'arrive pas à l'appliquer sur l'usf voila le code Private Sub CommandButton3_Click() Dim I As Integer Dim TopPos As Integer Dim SheetCount As Integer Dim PrintDlg As...
  2. P

    Aperçu avant imprim sur USF

    Re : Aperçu avant imprim sur USF salut merci pour ta solution,c'est parfait encore une question: si je sélectionne mes 2 feuilles comment les afficher dans le meme aperçu ? merci
  3. P

    Aperçu avant imprim sur USF

    Re : Aperçu avant imprim sur USF Re merci pour ta réponse mais j'ai un petit soucis,l'usf ne se ferme pas et je suis obliger de faire un alt ctrl sup,pour fermer pourtant j'ai rajouter un unload me ou un hide mais rien à faire. aurais tu une idée merci
  4. P

    Aperçu avant imprim sur USF

    Bonjour quand j'ouvre mon usf j'ai une listbox qui affiche mes feuilles Private Sub UserForm_Initialize() Application.EnableEvents = False LbClasseurs.Value = ActiveWorkbook.Name Application.EnableEvents = True End Sub ensuit en cochant la ou les feuilles je les imprime Private Sub...
  5. P

    remplacer dans cellule

    Re : remplacer dans cellule Re merci pour ta réponse mais ça ne fonctionne pas j'ai toujours le sigle € dans E53
  6. P

    remplacer dans cellule

    bonjour voila,j'ai un programme en VB6,par lequel j'envoi des données dans une feuille excel. comment faire, à l'ouverture de ma feuille excel si dans la cellule E53 j'ai que sigle "€" alors il me met rien. et si dans la cellule C54 j'ai la phrase "remise de 0%" il me met "pas de remise" merci
  7. P

    rajouter une cellule

    Re : rajouter une cellule salut merci à toi,c'est nickel et c'est super rapide bonne soirée petchy
  8. P

    rajouter une cellule

    bonjour avec se code j'ouvre la boite de dialogue "enregistrer sous" avec la valeur de D26.xls Private Sub CommandButton2_Click() Application.Dialogs(xlDialogSaveAs).Show Range("D26").Value & ".xls" End Sub mais est ce possible de rajouter une cellule exemple : Facture N° "D14" de Mr...
  9. P

    click sur un AddItem de la combobox je vais sur une feuille

    Re : click sur un AddItem de la combobox je vais sur une feuille Re franchement,j'en dit que c'est trop classe ,c'est exactement se que je voulais, tampis je mettrais des conditions pour chaque item un grand merci bonne soirée petchy
  10. P

    click sur un AddItem de la combobox je vais sur une feuille

    Re : click sur un AddItem de la combobox je vais sur une feuille Re merci Etienne2323 pour ta réponse,mais c'est presque ça,en fait se que je voudrais, c'est les additems qui se trouve dans la combo ne correspond pas forcément avec le nom des onglets. si je click sur l'additem "petchy" il...
  11. P

    click sur un AddItem de la combobox je vais sur une feuille

    bonjour sur ma feuille j'ai une combobox et dans cette combobox j'ai une liste. comment faire lors d'un click sur un AddItem de la combobox je vais sur une feuille. exemple liste dans la combo A B C D click sur A je vais sur la feuille Alphabet click sur B je vais sur la feuille...
  12. P

    liste dans combobox

    Re : liste dans combobox bonsoir jeanpierre et job75 merci jeanpierre c'est impec job75 mon control n'est pas dans une form,mais merci quand meme bonne soirée petchy
  13. P

    liste dans combobox

    bonsoir j'ai une combobox sur une feuille comment faire pour intégrer une liste dans la combo qui se trouve dans la colonne A exemple une liste de A3 à A15 merci @ plus petchy
  14. P

    probleme de date

    Re : probleme de date Re oui,les dates provienne bien de ma base Access,mais de se coté la pas de probleme mes dates sont bien dans l'ordre. voila se que je reçois dans ma form Private Sub Form_Activate() fiche.Caption = "Fiche d'inscription pour l'année " & Year(Now) Dim i As Long For...
  15. P

    probleme de date

    Re : probleme de date salut JCGL merci pour ta réponse en, fait je n'importe pas en .txt mais en dur voila mon code Private Sub cmdimprimerexcel_Click() Dim Max As Integer Dim geré As String If nouv = True Then '-- cherche la cle la plus eleve de la table Set rs = New...