Résultats de la recherche

  1. B

    Macro et pourcentage

    Bonjour à tous ! J'ai un problème sans doute très simple à résoudre pour les experts que vous êtes. J'ai une cellule au format pourcentage. Cette cellules est utilisée dans plusieurs formules de ma feuilles. Ce que je souhaite faire c'est mettre en mémoire le pourcentage de cette cellule...
  2. B

    Fonction CAR en VBA

    Bonjour à tous ! J'ai un soucis avec ce code : Cells(x, colsurface).Formula = "=SUM(INDIRECT(CHAR(" & colsurface + 64 & ")&" & x - 1 & "):INDIRECT(CHAR(" & colsurface + 64 & ")&" & x - 1 - b1 & "))" Cette ligne fonctionne si colsurface renvoie à une colonne compris entre A et Z. En...
  3. B

    Syntaxe de copie

    Bonjour j'ai un petit problème dont je n'arrive pas à me sortir. Cette ligne de code fonctionne : Workbooks(c).Sheets("Tableau").Range("C30:C" & j) = Workbooks(D).Sheets(E).Range("E4:E" & i).Value Cette ligne ne fonctionne pas : Workbooks(c).Sheets("Tableau").Range(Cells(30, col)...
  4. B

    Fonction inStr VBA

    Bonjour à tous ! J'ai une petite question sur la fonction inStr en vba. Je souhaite tester la présence ou non de certaines chaines de caractère dans une cellule. J'ai fait quelques recherches sur Google et j'ai trouvé ce site intéressant sur lequel on me donne cet exemple : Manipuler...
  5. B

    Compatibilité macro entre versions d'Excel

    Bonjour à tous, La question a du être posée un bon paquet de fois mais je tente ma chance. J'ai un fichier contenant des macros qui fonctionne sous 2007. J'ai récupérer ce fichier pour le modifier sous Excel 2010. Après enregistrement le fichier ne fonctionne plus sous 2007 ce qui est...
  6. B

    .formula avec variable dans VBA

    Bonjour, j'ai un petit soucis avec un code vba. Est-il possible de mettre des variables dans un .formula ? dim x as integer dim j as integer dim a as integer For x = 15 To j Workbooks(c).Sheets("Bâtiment").Range("Q" & x).Formula = "=Sum(RC[-6]:RC[-1])" Next x est il...
  7. B

    Syntaxe code

    Bonjour à tous j'ai un petit problème de syntaxe avec ce code : ActiveWorkbook.Names("Affaires").RefersToR1C1 = _ "=Listes!R12C5:R20C5" Le code se lance au démarrage et sera quelque chose du type : Private Sub Workbook_Open() Dim T As Integer T = Range("E65536").End(xlUp).Row...
  8. B

    Listes en cascades

    Salut à tous. Je cherche à faire des listes en cascades à 3 niveaux. J'ai suivi le tutorial de JB mais au moment de la validation de données de mes 3 cellules j'ai un message qui apparait pour chacune d'elle : la source est erronée voulez vous continuer ? Y'a t'il un problème de...
  9. B

    Macro : recuperation de données de plusieurs classeurs

    Bonjour à tous, J'aimerais dans un classeur et dans une cellule précise récupérer la somme d'une cellule de plusieurs autres classeurs ( nombre non définie à l'avance ) J'ai trouvé cette maccro, dont je remercie l'auteur au passage, mais j'ai du mal à la comprendre et à l'adapter...
  10. B

    Macro : Imprimer tous les fichiers d'un dossier

    Bonjour à tous, Je cherche une macro pour imprimer tous les fichiers d'un dossier ( Z:\protocole\DATA\). ( Format Word, Excel et Pdf) Pas besoin de mise en page spécifique, juste les imprimer tels qu'ils sont à l'ouverture. Merci d'avance, Cordialement, Ben
  11. B

    Macro comptage de fichiers

    Bonjour à tous j'ai un petit soucis avec ce code : Private Sub CheckBox8_Click() If CheckBox8 = True Then Dim FSO As Object, Dossier As String Dossier = "Z:\protocole\" & Sheets("Sommaire").Cells(28, 2).Value & "\Docs techniques\ENR" Set FSO =...
  12. B

    MFC sur classeur complet

    Bonjour, Petite question pratique, je souhaite appliqué des mises en forme conditionelles à une multitude de cellules sur une multitude d'onglet différents. Bien sur ces cellules ne sont jamais au même endroits. Exemple si la cellule contient "DP" bim bleu Si elle contient "CP" bim rouge...
  13. B

    ouverture fenetres par macro

    Bonjour, J'ai un petit souci de présentation sous seven. J'utilise le code suivant : Shell "c:\windows\explorer.exe Z:\protocole\" & Sheets("Sommaire").Cells(28, 2).Value & "\Docs techniques\Chauffage-Clim", 1 Shell "c:\windows\explorer.exe Z:\protocole\data\docs...
  14. B

    Gestion d'alarme

    Bonjour, J'aimerais créer une gestion d'alarme. J'ai un classeur (voir PJ) : Ma case B2 contient une date et ma case H2 contient une durée en semaine. J'aimerais qu'a l'ouverture du classeur une macro vienne tester si B2+H2 > aujourd'hui() Si c'est le cas la réponse à du retard et une...
  15. B

    Macro ouvrir dossier

    Bonjour, J'ai un petit problème que je suppose être de syntaxe. J'ai plusieurs boutons qui ouvrent des répertoires définis Le code suivant fonctionne : Private Sub CommandButton3_Click() Shell "c:\windows\explorer.exe Z:\protocole\", 1 End Sub Le code suivant ne fonctionne pas...
  16. B

    Macro "Copie de Dossier"

    Bonjour, J'ai un dossier sous Z:\protocole qui se nomme "formulaires" et qui contient plusieurs documents d'extensions diverses. Ex : Z:\protocole\Formulaires\formulaires SDEA.docx Par macro je crée un nouveau dossier dans Z:\protocole\nouveau nom Avec le code : MkDir ("Z:\protocole\" &...
  17. B

    Inserer date fixe par Macro

    Bonjour à tous, je suis face à un petit problème. Comment faire pour insérer la date et l'heure d'un évenement sans que celle ci soit modifiée lors de la réouverture du fichier. Exemple : Je valide une case à cocher et dans la cellule à coté il s'affiche la date et l'heure de cette...
  18. B

    Problème à l'ouverture d'un fichier

    Bonjour à tous ! J'ai un petit soucis. J'ai réalisé des feuilles de calculs qui permettent de sélectionner différents éléments lors d'une installation de chaudières aux granulés de bois. En gros l'utilisateur coche ce dont il a besoin, choisis les différentes options nécessaires, la quantité...
  19. B

    Menu déroulant successif

    Bonjour à tous ! J'ai un fichier avec une base de donnée. J'aimerais créer une succession de menu déroulant sur une ligne ou les choix présent sont conditions des choix fais dans les premiers menu. Je n'arrive pas à le faire... Je ne sais pas qu'elle formule utiliser. Voilà un fichier...
  20. B

    Formule INDEX/EQUIV

    Bonjour à tous, Je recherche de l'aide sur les formules INDEX/EQUIV. J'ai une une base de donnée dans ma feuille liste et j'aimerais que sur une autre feuille je puisse sélectionner les articles. Je peux crée une liste et utiliser la formule RECHERCHEV, mais dans ce cas j'obtiens toute...