Résultats de la recherche

  1. T

    [RESOLU par Tentative et mapomme] : Angoisse avec type de calcul

    Re : Angoisse avec type de calcul Bonsoir, Comme je suis vieux ... je décompose ... 8- )) Une tentative en pièce jointe. Tentative
  2. T

    [Résolu]Sauvegarde automatique

    Re : Sauvegarde automatique Bonjour, ThisWorkbook.SaveAs "d:\factures clients\" & Range("g2").Value & ".xlsx" Bon, tu tentes "d'enregistrer sous" un document qui contient des macros (.xlsm) sous un format qui ne supporte pas les macros (.xlsx). Je crois que ce n'ai pas la bonne méthode...
  3. T

    [Résolu]Sauvegarde automatique

    Re : Sauvegarde automatique Bonjour, Peut-être le backslash : ThisWorkbook.SaveAs "d:\factures clients\" & Range("g2").Value & ".xlsx" Tentative
  4. T

    Macro pied de page: mise en forme d'un nombre

    Re : Macro pied de page: mise en forme d'un nombre Bonjour, Une variante du code de Modeste : With Sheets(x).PageSetup 'pied de page .LeftFooter = "&""Calibri""" & "&9&K63666A" & Sheets(1).Range("A1") & Chr(10) & "&""Calibri""" & "&9&K63666ARPM 0" & Format(Sheets(1).Range("A2")...
  5. T

    Enregistrement sur clé USB

    Re : Enregistrement sur clé USB Joyeux temps des Fêtes MaPomme! Sur ma machine, j'ai le message : " Désolé ... Nous ne trouvons pas .......XLSTART\mapomme.xlam. Peut-être l'avez-vous déplacé, renommé ou supprimé? Édit : Si j'exécute la macro manuellement, ça fonctionne ... désolé du...
  6. T

    Macro pied de page: mise en forme d'un nombre

    Re : Macro pied de page: mise en forme d'un nombre Bonjour, Si le nombre en B1 est toujours de 9 chiffres ... Une tentative de tricherie ... With Sheets(x).PageSetup 'pied de page .LeftFooter = "&""Calibri""" & "&9&K63666A" & Sheets(1).Range("A1") & Chr(10) &...
  7. T

    Noêl bientôt

    Re : Noêl bientôt Bonjour, Joyeux Noël à toi aussi Clochard. As-tu un place pour dormir ce soir 8- )))) Tentative ... de blague
  8. T

    Résolu : Calcul d'une longue operation

    Re : Calcul d'une longue operation Bonjour, Quelque chose comme ceci : TextBox2.Text = Val(((TextBox1.Text - 30000) / 10) * 3) + 2500 Tentative
  9. T

    conditions ET et OU

    Re : conditions ET et OU Bonjour, Une tentative En A4 ... =SI(A1<>"";SI(OU(A2<>"";A3<>"");"<";"");"") Tentative
  10. T

    Importation à partir d'un serveur Outlook

    Re : Importation à partir d'un serveur Outlook Bonjour, Selon le besoin, ton administrateur réseau va te fournir une copie au format désiré. Tentative
  11. T

    modifier le verrouillage des cellules par une macro

    Re : modifier le verrouillage des cellules par une macro Bonjour Papou-Net, Une petite coquille, pour verrouiller .... locked= true 8- )) Tentative
  12. T

    XL 2013 [Résolu]macro pour rechercher valeur dans une colonne et mettre en couleur la cellul

    Re : macro pour rechercher valeur dans une colonne et mettre en couleur la cellule Bonjour, Une tentative : Sub Recherche() For Each Cell In Range("G4:g20") If Cell = Range("J1").Value Then Cell.Interior.Color = RGB(250, 250, 100) Next Cell End Sub Tentative
  13. T

    Calcul prorata dans USF

    Re : Calcul prorata dans USF Bonjour, J'espère me rapprocher de ton espérance ... Je n'ai pas bien compris si on doit toujours écraser la même ligne ou s'il est nécessaire d'ajouter le nouveau résultat sur la ligne suivante. Pour l'instant, c'est la première option. Tentative
  14. T

    Calcul prorata dans USF

    Re : Calcul prorata dans USF Bonjour, Une tentative sur le calcul dans le UserForm. Il ne faut pas saisir de données dans DDDD. Tentative
  15. T

    Calcul prorata dans USF

    Re : Calcul prorata dans USF Bonjour, Pour bien comprendre, est-ce possible d'avoir un exemple concret en formule ? Tentative
  16. T

    Action Ckeckbox uniquement lorsque actionnée par l'utilisateur

    Re : Action Ckeckbox uniquement lorsque actionnée par l'utilisateur Bonjour, Peut-être comme ceci, c'est le click de la souris : Il rester à adapter le nom du checkbox et le code à y inscrire Private Sub CheckBox1_Click() ' code ici End Sub Tentative
  17. T

    Souligner un Label

    Re : Souligner un Label Bonjour, Si c'est label dans la feuille, effectivement le code de DoubleZero fonctionne bien. Tentative
  18. T

    Souligner un Label

    Re : Souligner un Label Bonjour, Si tu parles d'un label dans un userform ... il faut enlever Activesheet. Private Sub Label2_Click() Label2.Font.Underline = xlUnderlineStyleSingle End Sub Tentative
  19. T

    [RESOLU] comment ôter le message de sécurité quand clic sur lien hypertexte

    Re : comment ôter le message de sécurité quand clic sur lien hypertexte Bonjour, Peut-être les emplacements approuvés ?? Centre de gestion de la confidentialité ... Paramètre du centre ..... Emplacements approuvés Tentative
  20. T

    Excel : Générer PDF en VBA

    Re : Excel : Générer PDF en VBA Bonjour, Merci Modeste geedee, ça fonctionne bien. Tentative