Dernière activité de job75

  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Pour tester les formules j'ai recopié le tableau D2:M8 sur D2:M7001 et exécuté cette macro : Sub Test() t = Timer '[BA1].Resize(7000...
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Maintenant par formule c'est encore plus simple, formule en BA1 à tirer à droite et vers le bas ...
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Avec un seul fichier .xlsm la macro est bien sûr plus simple : Sub Inversion() Dim r As Range Application.ScreenUpdating = False...
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Avec ce code le fichier CSV est ouvert en lecture séquentielle : Sub ImportFichierCSV() Dim fichier As Variant, t, x%, texte$, a(), i&...
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Bonjour le forum, Il est plus logique que les plages A2:C2 et suivantes soient vides et K2:M2 et suivantes soient remplies. Dans le...
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Téléchargez les fichiers zippés joints, ouvrez le fichier .xlsm et cliquez sur le bouton pour exécuter la macro : Sub ImportFichierCSV()...
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Vous ne répondez pas à mes questions, tant pis pour vous.
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Toujours pas clair (les colonnes K L M sont vides), joignez le fichier avec la plage à copier et le résultat attendu.
  • job75
    job75 a répondu à la discussion XL 2013 VBA fichier CSV.
    Bonjour lepiouf, Posez votre question clairement car "colonne BA1" ne veut rien dire et il n'y a pas de colonne M ni de ligne 8. A+
  • job75
    Bonjour le forum, Pour que le code fonctionne qu'il y ait des textes ou des nombres en B2 et D2 il faut utiliser Evaluate : Private Sub...
  • job75
    Bonsoir eric72, dysorthographie, La moindre des choses est de donner les codes des 2 macros concernées dans l'UserForm : Private Sub...
  • job75
    Bon j'ai modifié la macro "Imprimer" en ajoutant une feuille vierge auxiliaire : Sub Imprimer() Dim T As Range, rc&, i&, dat, coll As...
  • job75
    Sur le fichier du post #68 beaucoup de lignes à imprimer sont disjointes. Avec la macro "Imprimer" il y aura alors beaucoup de pages à...
  • job75
    Il suffit de mettre une apostrophe devant la ligne de code et de l'enlever devant la ligne avec PrintOut.
  • job75
    Bonjour Agecanonix35400, le forum,, Perso j'essaie de donner des solutions simples et faciles à comprendre. A+
Retour