Résultats de la recherche

Bonjour Phil69970, c'est exactement P A R F A I T. Je te remercie grandement, je vais regarder un peu comment fonctionne le code (qui m'a l'air accessible à première vue, ce qui est top), afin de l'adapter si besoin est. Merci encore, je clôture donc cette discussion.

Bonjour Phil69970, C'est presque parfait..! A ceci près, une toute petite remarque : - Lorsque je clique sur ta commande "remplir au hasard" puis ensuite sur "effacer", et que je reclique par exemple sur "remplir au hasard"., l'affectation est identique. => Or, j'aurai souhaité qu'elle...

Bonjour à tous, J'ai vu qu'il existe déjà bon nombres de post sur le sujet, mais je ne parviens pas à trouver mon bonheur, même en adaptant certaines propositions. Peut être que mon cas est trop "simple" par rapport aux demandes déjà existantes.. Les faits : Je dispose d'un fichier faisant...

C'est tout simplement parfait ! Merci mille fois ! En effet, cela est beaucoup plus "léger" !

Bonjour JP, Je te remercie de ton retour plus que rapide ! Malheureusement, cela ne me donne pas les résultats souhaités après test.. Les bons résultats (du moins, ceux attendus) doivent être identiques à ceux de ma macro. J'ai aussi tenté la formule SUM (pour somme), mais impossible de...

Bonjour à tous ! J'en appelle à votre sollicitude concernant un petit problème que je n'arrive pas à surmonter, peut être par mauvaise approche... Je ne sais pas. Voilà ce que je souhaiterai : - j'ai une cellule référence (D2 dans l'exemple) - j'ai une plage de référence (AB7:BZ7 dans...

Bonsoir Staple, Pour information, Yoda disait aussi :"Bonnes relations avec les Wookies, j'entretiens ". Je doute pourtant que cela l'ait aidé dans sa vie.. :) Je tâcherai de suivre ton conseil. Dans tous les cas, je te remercie encore grandement pour ton aide ! & Bonne soirée !

J'ai dû opérer une mauvaise manipulation hier (comment ? aucune idée...) En tout cas tout fonctionne P A R F A I T E M E N T, je te remercie infiniment. Par contre, ultime question, nous sommes d'accords qu'avec ce code (celui du début) : Sub Test_OK() Dim FolderName$, MyPath, wkbSource As...

Cela me semble pas mal :) Merci beaucoup ! J'ai simplement modifié la formule : " Sheets(1).Range("1:12,34:37").EntireRow.Delete"en enlevant 34:37 et en supprimant plutôt l'ensemble des lignes ne contenant aucune valeur en colonne C (plutôt que de supprimer les lignes 34 et 37, car celles-ci...

Ps : Mais je pourrais très bien aussi effectuer toutes les opérations que je souhaite, sauvegarder en xls, et créer un second bouton de commande, avec la macro que j'ai mentionné précédemment.. Le problème est qu'elle fonctionne par choix de fichier, et non de dossier/répertoire, comme celle que...

Alors pas exactement ! En fait, je "souhaiterai" dans la mesure du possible : - réaliser l'ensemble des opérations mentionnées (ligne 1 à 12, remplacer . par 0, colonnes D à G, etc, et - et en sauvegardant mon fichier (et passer au suivant), le "convertir" en CSV

Ce n'est pas à moi de me prononcer sur cette vaste question :) Concernant mon mon dossier, il ne s'agit uniquement que de "xls". A force de parcourir quelques indicateurs, j'ai pu trouver cette formule : Sub ConvertToCSV() Dim myPath As String Dim myString As Variant...

Bonjour Staple, Grâce à ton code j'ai pu modifier "presque" comme souhaité mon fichier, seulement, à chaque exécution de la macro, cela me créé un second dossier dans le répertoire cible, composé de 4 éléments (filelist.xml / sheet001.htm / stylesshee.css et tabstrip.htm) Est ce normal ?

Re, et merci de ta réactivité :) Ci-joint un fichier récap qui j'espère, fonctionnera !

Je souhaites supprimer les cellules (et donc les lignes qui y sont rattachées en effet) ps : je viens de voir en effet qu'il ne fonctionnait pas sur le précédent traitement, je le rechargerai demain de mon ordinateur si besoin est, mais les regles restent identiques dans tous les cas.

En effet, c'est encore mieux et me permet d'appliquer la macro dès lors que je créé un nouveau répertoire... J'ai simplement ajouté la ligne suite après celle ci : .Sheets(1).Columns("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete .Sheets(1).Columns("D:G").Delete Shift:=xlToLeft...

Bonsoir ! Cela fonctionne et me fait bien apparaître une fenêtre (msgbox) avec C1C10. Le problème viendrait donc de l'identification de la feuille concernée ?

Bonjour ! Ayant cherché un sujet similaire sur plusieurs forums, j'ai pu avancer quelque peu sur un blocage que je rencontre actuellement. Voici les différentes démarches pour exemple : 1 - chaque semaine, je vais dans une base de données pour extraire différents fichiers excel (exemple de...

Bonjour, Je me présente, passage obligé ! J'essaye de résoudre quelques petits problèmes de travail dirons nous.. J'ai découvert ce forum en cherchant une solution sur un petit blocage que je rencontre ! Au plaisir d'apprendre de nouvelles choses avec vous, Cdlt