Contenu récent par Sobas

  1. S

    suprimer les ","

    Re : suprimer les "," ok, c'est nikel, merci a toi désolé j'y avais pas pensé, je ne mis connais pas trop en programmation VBA. En tout cas merci a toi sa a était efficace ;)
  2. S

    suprimer les ","

    Re : suprimer les "," Salut, c'est gentil, mais il faut que soit les cellules uniquement avec "," Désolé.
  3. S

    suprimer les ","

    Bonjour a tous, Je voudrais une commande pour: Dans la feuil3 colonne A toute les cellule qui contiennes uniquement "," suprimer. je crois que sa donne quelque chose comme ça: For i=Sheets(3).columns("A") as string if cell.valeur = "," then cell.clearcontents next i Merci a vous.
  4. S

    Macro enregistrer sous en format csv ne fonctionne pas

    Re : Macro enregistrer sous en format csv ne fonctionne pas OK c'est bon j'ai fait ça et sa marche :) merci a toi Gilbert Sheets("Feuil3").Select ActiveWorkbook.SaveAs , FileFormat:=xlCSV, CreateBackup:=False, local:=True
  5. S

    Macro enregistrer sous en format csv ne fonctionne pas

    Re : Macro enregistrer sous en format csv ne fonctionne pas Désolé ma sa me met juste le mot machin dans la feuil3
  6. S

    Macro enregistrer sous en format csv ne fonctionne pas

    Bonjour, j'ai ceci comme commande pour enregistre la feuil3 du classeur ouvert, mais sa ne marche pas: Sheets("Feuil3").Select ActiveWorkbook.SaveAs Filename:=Chemin & NomFich, FileFormat:=xlCSV, CreateBackup:=False, local:=True Est se que quelqu'un pourrais m'aider, je vous...
  7. S

    Modification de macroS pour quelles puisses se "combiner"

    Re : Modification de macroS pour quelles puisses se "combiner" Bon c'est bon j'ai réussis a résoudre le problème je sais pas trop comment mais bon :) En tout cas merci a vous
  8. S

    Modification de macroS pour quelles puisses se "combiner"

    Re : Modification de macroS pour quelles puisses se "combiner" En enlevant la boucle de : Private Sub BoucleDeTraitement() sa effectue ma macro correctement mais sa ne traite qu'un seul dossier
  9. S

    Modification de macroS pour quelles puisses se "combiner"

    Re : Modification de macroS pour quelles puisses se "combiner" Bon alors, j'ai réussis à "fusionner les deux macro pour réaliser en boucle le traitement. Pour cela j'ai changé là où il y avait xls par xlsx puis changé le nom de la macro à appeler par le mien. Mais le problème est que je...
  10. S

    Modification de macroS pour quelles puisses se "combiner"

    Re : Modification de macroS pour quelles puisses se "combiner" VOICI UN fichier type pour voir se que fait ma macro
  11. S

    Modification de macroS pour quelles puisses se "combiner"

    Re : Modification de macroS pour quelles puisses se "combiner" Salut, désolé pour mon orthographe, je suis dyslexique... Pour mon code il s'agit d'une macro enregistré et vue que je ne connais rien en programmation.... En tout cas merci pour les infos, j'ai nettoyé mon code, sa ma d’ailleurs...
  12. S

    Modification de macroS pour quelles puisses se "combiner"

    Bonjour a tous, voilà, J'ai trouver cette macro de Roland sur ce forum (https://www.excel-downloads.com/threads/macro-pour-tous-les-fichiers-dun-dossier.133768/) qui permet d’effectuer en boucle une macro de tout les fichiers d'un dossier cible choisi. Je voudrais remplacer la macro qui est...
  13. S

    Recherche et effacer les cellules contenant un un texte particulier

    Re : Recherche et effacer les cellules contenant un un texte particulier Dans le même genre, je voudrais que la première cellule vide de la colonne B après la cellule 23 possède ce symbole: /, j'ai fait ça mais sa ne marche pas: Sub Donne() Dim l As Long For l = Sheets("Feuil5").Cells(23...
  14. S

    Recherche et effacer les cellules contenant un un texte particulier

    Re : Recherche et effacer les cellules contenant un un texte particulier Désolé mais en faite sa fonctionne!! Merci a vous
  15. S

    Recherche et effacer les cellules contenant un un texte particulier

    Re : Recherche et effacer les cellules contenant un un texte particulier EU par contre pour donner comme cible la feuil5 j'écris ça: Sub effacev() Dim l As Long For l = Sheets("Feuil5").Cells(65356, 2).End(xlUp).Row To 1 Step -1 If Sheets("Feuil5").Cells(l, 2).Text = "#VALEUR!" Then...