| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 22/07/2019 à 14:39 | nathg31 | Probleme avec count | Oui merci je n'avais pas compris... |
| 22/07/2019 à 13:43 | nathg31 | Probleme avec count | Je souhaiterais compter le nombre d’élément dans arrFileList... |
| 22/07/2019 à 13:04 | nathg31 | Probleme avec count | Merci pour ta réponse j'ai du mal m'exprimer donc j'aimerais ca : 1/X 2/X etc pour le compte 1, 2, 3 etc ok Ce que je voudrais c'est le X qui correspond au nombre de documents sélectionner... |
| 22/07/2019 à 12:03 | nathg31 | Probleme avec count | Bonjour a tous je rencontre un petit soucis : Dim arrFileList As Variant arrFileList = Application.GetOpenFilename("Fichier(s) Word (*.doc; *.docm; *.docx;),*.doc;*.docm", 2, "Choix du dossier d'import", , True) .... For Each FileName In arrFileList ..... Grâce a ce mini bout de code le but est de f... |
| 10/07/2019 à 08:30 | nathg31 | Navigation word par VBA | Up si quelqu'un a la moindre idée. Nathan... |
| 08/07/2019 à 10:43 | nathg31 | Navigation word par VBA | Je suis entrain d'essayer d'optimiser un programme qui boucle sur des dossiers words. Pour gagner du temps et ne pas boucler sur le document entier j'aimerais aller directement à un titre de l'onglet navigation de word Le nom peut changer mais il y aura toujours le mot Reference à l'intérieur. Je vo... |
| 03/07/2019 à 11:42 | nathg31 | Problème syntaxe tables | J'ai un problème de syntaxe sur cette partie : .Tables(5) Je souhaite récupérer le tableau 5 pas de soucis mais maintenant j'aimerais récupérer en même temps le 6 et 7 Ca existe dans ce style la ? .Tables(5, 6, 7) Cordialement... |
| 02/07/2019 à 11:12 | nathg31 | Problème "d'objet" | Sub Reference() Dim Bis_Target As Range, Aut_Target As Range Dim Colonne As Integer, Ligne As Integer Dim T As Object, C As Object 'au cas ou Set T = Sheets("TABLE") Set C = Sheets("COMPARAISON") Set Bis_Target = C.Range("A1:C1") Set Aut_Target = C.Range("D1") compteur = compteur * 8 'Boucle sur les... |
| 02/07/2019 à 10:26 | nathg31 | Problème "d'objet" | J'ai ce programme qui marche Sub Reference() Dim Bis_Target As Range Dim Colonne, Ligne As Integer Dim T, C As Object 'au cas ou Set T = Sheets("TABLE") Set C = Sheets("COMPARAISON") Set Bis_Target = C.Range("A2:C2") compteur = compteur * 8 'Boucle sur les colonnes où il y a les titres For Colonne =... |
| 02/07/2019 à 09:46 | nathg31 | Problème "d'objet" | Non j'ai des macros qui me permettent d'avoir une valeur pour le compteur avant, je suis sur a 100% que ce n'est pas égale à 0 je viens de faire le test... |
| 02/07/2019 à 09:42 | nathg31 | Problème "d'objet" | Effectivement petite erreur de ma part je vais corriger ça de suite. Merci... |
| 02/07/2019 à 09:25 | nathg31 | Problème "d'objet" | Je vous présente mon problème. J'ai un programme qui marchait parfaitement puis d'un coup il ne veut plus mais je ne comprends pas ce qui le bloque. Sub DUR() Dim XTarget As Range Dim RefTarget As Range Dim Colonne, Ligne As Integer Dim T, C As Object Dim BB As Long 'au cas ou Set T = Sheets("TABLE"... |
| 27/06/2019 à 14:05 | nathg31 | Références dissidente | Tout est bon merci Sub Trou() Sheets("COMPARAISON").Select lign = Sheets("COMPARAISON").Cells(Rows.Count, 2).End(xlUp).Row For i = 1 To lign If Sheets("COMPARAISON").Cells(i, 2).Value = "" Then Range(Sheets("COMPARAISON").Cells(lign, 2), Sheets("COMPARAISON").Cells(lign, 2)).Copy Sheets("COMPARAISON... |
| 27/06/2019 à 11:44 | nathg31 | Références dissidente | Avant de tester le tien j'essaye de faire celui ci pour les cellules vides. ub melch() Sheets("COMPARAISON").Select Lign = Sheets("COMPARAISON").Cells(Rows.Count, 2).End(xlUp).Row For i = 1 To Lign If Sheets("COMPARAISON").Cells(i, 2).Value = "" Then Range(Sheets("COMPARAISON").Cells(i + 1, 2)).Copy... |
| 27/06/2019 à 11:18 | nathg31 | Références dissidente | Ok merci a tous ça marche juste compter les lignes de cette manière ça ne marche pas vu qu'il y a des cases blanches au milieu. Donc on doit réactiver la macro. Dans un premier temps je parcours la ligne pour "remonter" les cellules si une case vide au dessus puis le programme de mech. Cordialement... |
| 27/06/2019 à 10:58 | nathg31 | Références dissidente | Petite question du jour, dans mes cellules j'ai des 2 types de références Les classiques : V53RP1719898 Et les dissidentes : 153162043-V021BRP180705-9 Elles sont reconnaissables par les 9 digits puis un tiret au début ou un tiret et un digit après. XXXXXXXXX-OK-X J'aimerais si possible l'objet qui p... |
| 26/06/2019 à 15:16 | nathg31 | Finition de programme Importation du nom du documents | C'est exactement ceci merci de ton aide... |
| 26/06/2019 à 11:11 | nathg31 | Finition de programme Importation du nom du documents | Pile quand je suis arrivés à adapter la macro, on me change mon objectif. Le concept est le même il faut récupérer les noms de fichiers et les mettre à la suite dans la même ligne mais d'une autre page. Donc j'ai crée un Target2 que j'ai set dans la feuille voulu. Sheets("COMPARAISON").Select Set Ta... |
| 26/06/2019 à 08:45 | nathg31 | Finition de programme Importation du nom du documents | Merci pour ta réponse tout marche sauf pour le premier tableau. Je ne comprends pas il ne veut pas se coller en target B1 donc il ne descend pas d'une case et le titre n'est pas collé. Je vais tester différentes choses et on verra. Je te tiens au courant... |
| 25/06/2019 à 15:24 | nathg31 | Finition de programme Importation du nom du documents | J'ai un petit soucis pour finir un programme. Le but de celui ci est de parcourir un fichier de récupérer de chaque document word un certain tableau. Le programme juste en dessous marche parfaitement Sub IMPORT_TAB() 'Variable Dim WordApp As Object, WordDoc As Object Dim arrFileList As Variant, File... |
| 24/06/2019 à 15:39 | nathg31 | Multiple comparaison tableau | Mon but est de comparer un tableau à plusieurs autre tableau sur la même feuille. J'ai mis en pièce jointe des bouts de plusieurs tableau. Ce que je cherche à faire je pense qu'il y a deux grosses méthodes : - La première consisterait à utiliser une mfc pour colorier les cellules du tableau 1 qu'on... |
| 24/06/2019 à 13:15 | nathg31 | Harmonisation tableau | Et bien je vous remercie tous les deux de votre aide. Effectivement c’était très logique. Le code marche exactement comme je le souhaite. Merci beaucoup... |
| 24/06/2019 à 11:24 | nathg31 | Harmonisation tableau | Je bloque sur un code qui me semble très simple. Je mets un fichier excel pour que vous ayez la disposition des tableaux. Le plus simple est de l'ouvrir et vous allez directement comprendre ce que je souhaite faire. J'aimerais aligner mes [N°] au même niveau, le problème est que j'ai des cel... |
| 21/06/2019 à 09:13 | nathg31 | Bouclage et traitement de dossier Word | Merci pour le programme, je viens de le tester mais j'ai l'impression qu'il n'ouvre pas le répertoire. Mes words sont enregistré en .docm je ne sais pas si cela pose problème. J'essaye de modifier et je reviens vers vous si je n'y arrive pas J'ai modifié pour pouvoir sélectionner les fichiers voulus... |
| 20/06/2019 à 15:34 | nathg31 | Bouclage et traitement de dossier Word | Je me permets de réécrire un sujet que je trouvais trop vague. Tout d'abord je débute depuis 2-3 jours à utiliser VBA pour mon stage, malheureusement mon accès à des documents et à internet est très limité. J'ai donc grandement besoin de conseil pour avancer; Mon but est d'écrire une macro qui : - O... |
| 20/06/2019 à 15:21 | nathg31 | Traitement de multiple document Word | Un modo pourrait t-il supprimer ce post je vais en reécrire un plus proprement et moins large... |
| 20/06/2019 à 13:25 | nathg31 | Traitement de multiple document Word | Voulez vous que je reformule ma demande ... |
| 20/06/2019 à 10:25 | nathg31 | Traitement de multiple document Word | Tout d'abord merci de prendre de votre temps pour lire ce post. Je suis un débutant en vba et je dois accomplir une tâche que je trouve assez complexe. Je vais le présenter en deux temps, le premier est le plus simple : D'excel, j'importe un document word puis je récupère un tableau (toujours le 5 e... |