Résultats de la recherche

  1. K

    Userform 2 ne répond plus lorsque lancé par userform1 (RÉSOLU!!)

    Bonjour le forum, j'abandonne, je jette la serviette, après presque 2 heures de tentatives je reviens vous voir pour de l'aide!! Mon problème : J'utilise 2 userform pour entrer des dates dans mon formulaire. Mes 2 userforms fonctionnent lorsque utilisés séparément. Par contre, à la...
  2. K

    si..si..si me donne "FAUX" et me laisse perplexe...

    Premièrement, bonjour à vous tous, ça fait un bail que je ne suis pas venu par ici et je suis heureux de voir le forum encore actif! Mon problème est concernant une formule assez complexe qui me donne un résultat "FAUX" et que je ne comprend pas pourquoi! Voici la dite formule ...
  3. K

    formulaire word

    Bonjour, j'ai un formulaire sous word qui fonctionne très bien mis à part un détail. Dans les zones texte (qui sont dans des tableaux) Lorsque je remplis la zone texte et que ça prend plus d'une ligne, tout le reste de ma mise en page décale d'une ligne. Comment faire pour que ma mise en page...
  4. K

    substituer caractères

    Bonjour le forum, J'ai une inputbox qui demande d'entrer une donnée pour ensuite créer un lien avec google maps. Voici, l'utilisateur inscris "89 rue des pins" et je voudrais que ceci soit automatiquement transformé en "89+rue+des+pins" Est-ce possible?
  5. K

    copier/coller des fichiers à partir de VBA?

    Copier c:\dossier1\monfichier.txt vers c:\dossier2\monfichier.txt c'est possible à partir de VBA?
  6. K

    modèle de feuille excel

    Bonjour à vous tous, j'ai créer un fichier excel dans lequel les feuilles sont standardisées. Comme il s'agit d'une gestion de dossier, il faut effacer et ajouter périodiquement des feuilles. J'ai donc créer un modèle de feuille permettant facilement l'ajout d'une feuille avec la bonne mise en...
  7. K

    Range find

    Bonjour le forum, j'ai un petit pépin avec range find. Voici mon code Private Sub Worksheet_Activate() Dim ws As Worksheet Dim x As String Dim rng As Range Dim rngFind As Range For Each ws In ActiveWorkbook.Worksheets z = ws.Name Set rng = Sheets(z).Range("C3") Set rngFind =...
  8. K

    variable = target?

    Bonjour le forum, lorsque je double clique sur une cellule, mon userform apparait grâce à une formule que j'ai trouvé sur le forum : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.Count > 1 Then Exit Sub If Not...
  9. K

    Casse tête calendrier

    Bonjour à vous, il y a longtemps que je n'ai pas travailler avec Excel, je suis donc un peu rouillé! Je tente d'expliquer du mieux que je peux mon questionnement. Voilà, je veux faire un bouton qui fait l'une des 3 options suivantes. 1- Inscrire un élément récurent sur tout le mois...
  10. K

    formule conditionnelle qui me rend fou!

    Bonjour le forum, j'ai la formule suivante Sub Worksheet_Activate() Range("A3:D100").Delete For n = Sheets("Feuil1").Range("D65536").End(xlUp).Row To 4 Step -1 If Date - Sheets("Feuil1").Range("D" & n) <= 7 Then If Sheets("Feuil1").Range("D" & n) >= -7 Then Sheets("Version...
  11. K

    actualisation automatique requete web

    Bonjour à vous tous! J'ai un calendrier que j'ai adapté à mes besoins. Petite fonction intéressante que j'ai ajouté c'est la pensée du jour. Excel va chercher de l'info sur le web et à l'ouverture, une petite pensée pour orienter la journée :cool: Mon problème, excel me demande tjrs si...
  12. K

    requete web avec connection lente

    Bonjour xldnautes, Voici, j'ai modifié un calendrier que j'ai trouvé sur le net pour qu'entre autres, il affiche une pensée du jour. À la maison, ça fonctionne très bien car le "query" de la page internet contenant cette pensée se fait rapidement avec ma connexion. Au travail par contre...
  13. K

    un autre nettoyage macro

    Bonjour le forum, Ce serait sympa si quelqu'un pourrait regarder mes codes et faire un nettoyage. Ce qui m'irrite le plus, c'est lorsque la feuille dossier actifs est sélectionnée, cliquez la et vous verrez! Je vous laisse le lien, c'est un téléchargement direct avec tout ce que vous...
  14. K

    Vos exploits

    Décrivez votre plus beau projet avec Excel, cet ammas de codes que vous avez créer et dont vous êtes particulièrement fiers... :)
  15. K

    est-ce possible? (position de l'écran)

    Bonjour forum, J'ai une macro qui sélectionne une cellule à la ligne 90, où sont situés les codes et les données pour faire fonctionner toutes les équations. J'ai une macro pour inscrire une date qui appelle un calendrier où on peut cliquer pour inscrire la date. Pour que ce calendrier...
  16. K

    Bonne formulation, question simple

    Bonjour, Pourriez-vous me dire quelle serait la bonne formulation pour : .Range("A" & n:"D" & n) n étant une valeur non stable?
  17. K

    Encore des dates!

    Re bonjour fameux forum, me revoici avec une nouvelle question. Notez que je cherche une piste de solution et non une solution, j'essais d'apprendre :) Voilà, un membre du forum m'a fournit un bout de code pour trier des dates. Je m'en sert pou ce processus mais j'aimerais lui donner une...
  18. K

    Calcul de date

    Bonjour, je fais un classeur qui me sert de base de données. Dans la colonne D, j'ai une série de dates qui ne servent plus au bout de 3 mois. Je voudrais donc me créer une macro qui s'exécute au lancement du classeur et qui vérifie ma colonne D pour voir si j'ai des dates qui ont été...
  19. K

    Pouvez-vous m'aider à comprendre svp?

    Bonjour, j'ai une série de macros (afin de protéger 2 feuilles de toutes modifications) qui se mettent en boucle lorsque la valeur est fausse (n'égal pas 4550) Private Sub Worksheet_Activate() Sheets("Nom").Unprotect Sheets("Chambre").Unprotect Dim Valeur_Chercher Dim usename As String...
  20. K

    Valeure d'une cellule avec VBA

    Bonjour, je croyais avoir résolu mon problème mais j'ai une nouvelle embuche! Avec cette formule : Private Sub CommandButton1_Click() Dim x As Long Dim Periode As Long x = [COUNTA(B3:B63)+2 ] Periode = ActiveSheet.Range("D1").Value Range("A1:F" & x).Select...