Résultats de la recherche

  1. L

    Réactiver procédures évènementielles

    Bonjour, Je n'arrive pas à réactiver les procédures évènementielles automatiquement après les avoir bloquées : J'ai créé un bouton pour les bloquer à la main temporairement (action sur le bouton et le message sur selectionchange s'arrête Le truc, c'est que je souhaite les réactiver...
  2. L

    Passer les feuilles en revue

    Bonsoir, J'ai écrit une commande qui passe toutes les feuilles d'un classeur en revue et qui à chaque fois déclenche une action à l'activation Exemple : Sub test() Dim i As Byte For i = 1 To Sheets.Count Worksheets(i).Activate Range("b1").Select Next i End Sub J'aimerais...
  3. L

    activer les feuilles d'un classuer consécutivement

    Bon, je tourne en rond pour trouver la meilleure façon de procéder sur mon nv chantier... Je voudrais essayer un truc en activant chaque feuille d'un classeur sauf la 1ere du s'appelle "client" Peut-on écrire cela? Ouvre le classeur X et active chacune des feuilles dedans sauf la 1ere (qui...
  4. L

    chercher une formule

    Salut, Comment faire pour aller chercher les formules qui sont dans un range? J'écris ligne= activesheet.range("a65000").end(xlup).row source=activesheet.range("a:d"&ligne).formula dest= activesheet.range("a:d"&ligne+1) dest.formula=source Mais ce n'est pas comme cela qu'il faut...
  5. L

    Déploiement de valeurs

    Bonsoir, Je m'attaque à un nouveau chantier : je dois créer des feuilles de route en fonction d'un listing contenant des infos qui s'actualisent régulièrement. Il s'agit de faire l'opération inverse d'une synthèse et je ne sais quelle statégie adopter : - Le listing est dans un classeur...
  6. L

    Ne pas fermer un USF

    SAlut à vous, J'ai besoin de votre aide: J'ai une commande qui va chercher les valeurs de Textboxes dans un USF. Je l'ai programmée sur un UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) J'y ai ajouté un test qui affiche un message d'alerte ("est ce qu'on valide?") si un...
  7. L

    Extraire une date d'uns chaine en vba

    Salut à vous, Je cherche à extraire une date au format jj/mm/aaaa d'une chaine de caractère qui contient du texte (voyez l'exemple) J'y arrive très bien - un peu artisanalement peut-être- par un calcul mais il faut que je l'écrire proprement en vba (avec une référance à un range). Il...
  8. L

    Recherche en VBA

    Bonsoir, J'ai tjs les mêmes problèmes pour aller au bout des choses sans aide... Un sujet traité 100 fois, j'ai bcp étudié, mais je ne m'en sort pas: Je souhaite récupérer dans une feuille à part toutes les infos relatives à un type de dépense et les arranger de façon transposée : dans mon...
  9. L

    BLoquer worksheet_SelectionChange(ByVal Target As Range)

    Bonsoir, Est-il possible de bloquer temporairement l'exécution des scripts contenus dans une macro de type Private Sub Worksheet_SelectionChange(ByVal Target As Range). Cette excécution interfère en effet avec l'éxécution de commandes contenues dans d'autres macros et j'aurais aimé...
  10. L

    Scale pour chartobject

    Salut, Je bataille ferme mais sans jamais y arriver.... Je souhaite forcer l'échelle de mes graphes quels que soient leur nom : J'ai écrit: Sub graph() Dim c As ChartObjects For Each c In ActiveSheet With c.ChartArea.Axes(xlValue) .MinimumScale = 20...
  11. L

    déplacer un chartobject

    Salut, J'utilise souvent un petit code qui me permet de faire suivre les boutons de commande sur mes feuilles: With ActiveSheet Ligne = ActiveWindow.VisibleRange.Row Colonne = ActiveWindow.VisibleRange.Column .Shapes("AutoShape 2").Top = Rows(Ligne).Top + 70...
  12. L

    Ne plus jamais faire apparaitre un message

    Bonjour, Peut-on générer une commande pour définitivement désactiver l'apparition d'un message dans une feuille ? J'imagine 3 actions après un question genre : Oui-> action 1 Non-> action 2 Ne plus montrer ce message -> le message n'apparaitra plus pour cette feuille mais pourrait le...
  13. L

    Balayage alternatif de cellules dans plage

    Bonsoir, Je souhaite balayer chacune des cellules d'un range A4:Axxx pour générer une action à l'issue de chaque examen. Il est indispensable de s'arrêter à l'issue de cette action car, en fonction du résultat, je fais l'examen suivant. Là où je suis en train de m'énerver, c'est que je ne...
  14. L

    Pop Up conditionnel

    Bonsoir, J'affiche un pop up sur une macro qui traite des infos onglets après onglets. Comment faire faire afficher la réalisation de celle ci et dire "1/x feuilles traitées", 2/x, x/x feuilles taitées? Le nombre de feuilles étant variable d'un classeur à l'autre.. merci
  15. L

    permanence d'une image

    Bonjour, Mon problème a du être traité 100 fois mais impossible de trouver une occurence: Comment faire pour qu'une image (ou un objet) soit tjs visible à l'écran quand on navigue dans une feuille ? (faut qu'elle bouge avec la navigation) Merci
  16. L

    "concatenation"

    Bonsoir, Je souhaiterai récupérer automatiquement le contenu plus de 100 cellules en incluant un séparateur type point (.) entre les valeurs. Les formules ont leurs limites vu le nbre de données à traiter. Peut -on écrire cela en vba? a3=a1&"."&a2&"."&...................... merci
  17. L

    Colorier cellules si au format texte

    Bonsoir, Comment faire pour colorier des cellules si elles contiennent du texte?Comment écrire cette condition (différencier texte de num) en vba ou mise en forme auto (?) merci
  18. L

    Récupération de données

    Bonsoir, Me voilà en panne d’inspiration ce soir. Le problème à résoudre est le suivant : J’ai un classeur dans lequel j’ai différentes feuilles dont je souhaite compiler les données. Je n’arrive pas à réaliser un récapitulatif des « types » et « caractéristiques » (en rouge sur mon...
  19. L

    naviguer entre 2 classeurs

    Bonsoir à tous, Je bute sur un problème idiot: je dois copier des feuilles d'un classeur de référence à plusieurs autres Aussi, j'écris que nom=activeworkbook.name pour nommer le classuer variable et à partir d'1 d'entre eux, j'ouvre mon classuer de "référence" pour copier mes feuilles...
  20. L

    Durée affichage m'un mesage

    Bonjour, Peut-on paramétrer la durée d'affichage maximale d'un message? L'idée est qu'il se ferme tout seul si aucune action n'est faite au nivea des boutons Merci