821 résultats trouvés

par Marc L
8 mai 2015, 15:02
Forum : Excel - VBA
Sujet : Copier / coller avec liaisons : changer les liaison
Réponses : 5
Vues : 586

Re: Copier / coller avec liaisons : changer les liaison

 
  Bonjour,

  je plussoie :  une conception réfléchie évite ce genre de souci !


  Sinon ne pouvant accéder aux fichiers, consulter l'aide VBA de la méthode   ChangeLink   …


  Je suis Charlie   -   Je suis Bardo
par Marc L
8 mai 2015, 12:02
Forum : Excel - VBA
Sujet : CONVERSIN TXT EN XLS
Réponses : 3
Vues : 293

Re: CONVERSIN TXT EN XLS

  Bonjour,   voici une autre voie peut-être plus rapide avec de grands fichiers, code à coller dans le fichier résultat : Sub Demo() TXT = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") If TXT = False Then Exit Sub Application.ScreenUpdating = False With Feuil1.UsedRange.Rows If .Count...
par Marc L
8 mai 2015, 03:01
Forum : Excel - VBA
Sujet : Compteurs variable copier /coller
Réponses : 11
Vues : 630

Re: Compteurs variable copier /coller

  Voici une démonstration à la gloire du filtre avancé remaniant directement la feuille source : Sub Demo() Dim Rg As Range Application.ScreenUpdating = False With Feuil4.[A3].CurrentRegion.Rows .Columns(1).AdvancedFilter xlFilterInPlace, , , True .Columns(1).Copy .Cells(.Count, 1)(4) Set Rg = .Cell...
par Marc L
7 mai 2015, 16:59
Forum : Excel - VBA
Sujet : Compteurs variable copier /coller
Réponses : 11
Vues : 630

Re: Compteurs variable copier /coller

 
  Faut-il aussi traiter les combustibles sans donnée dans les colonnes B à D ?

  Le résultat doit-il être dans la feuille source ou pas ?

  Pourquoi le zéro dans la cellule A179 ?
 
par Marc L
7 mai 2015, 16:37
Forum : Excel - VBA
Sujet : VBA-Copier/couper entre deux feuilles
Réponses : 18
Vues : 688

Re: VBA-Copier/couper entre deux feuilles

 
  Et je l'ai pourtant indiqué !

  Combien de ligne NumLig = 0 ? …

 
par Marc L
7 mai 2015, 16:13
Forum : Excel - VBA
Sujet : Rechercher et Remplacer en utilisation VBA
Réponses : 11
Vues : 439

Re: Rechercher et Remplacer en utilisation VBA

    Aucun rapport avec la problématique d'origine de conversion de séparateur décimal ‼   Maintenant tu as assez d'éléments pour améliorer ton usine à gaz.   En cinq lignes de code il est possible d'ouvrir le fichier texte, de copier uniquement les lignes différentes de -1   puis de fermer ce fichie...
par Marc L
7 mai 2015, 15:26
Forum : Excel - VBA
Sujet : Rechercher et Remplacer en utilisation VBA
Réponses : 11
Vues : 439

Re: Rechercher et Remplacer en utilisation VBA

    Et encore plus fort rien qu'en lisant l'aide VBA de la méthode   Workbooks.Open   utilisée dans ton code !   Workbooks.Open Filename:="D:\Tests4Noobs\TestUt.txt", Format:=2   …   Il est tout à fait inutile de remplacer les points par des virgules, les différentes méthodes le font directement ‼  ...
par Marc L
7 mai 2015, 15:08
Forum : Excel - VBA
Sujet : Rechercher et Remplacer en utilisation VBA
Réponses : 11
Vues : 439

Re: Rechercher et Remplacer en utilisation VBA

  Rien qu'en utilisant le Générateur de macros pour directement ouvrir le fichier texte : Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 07/05/2015 par The Noob Simulator ' Workbooks.OpenText Filename:="D:\Tests4Noobs\TestUt.txt", Origin:=xlWindows, _ DataType:=xlDelimited, TextQualifier:=xlNo...
par Marc L
7 mai 2015, 14:49
Forum : Excel - VBA
Sujet : Rechercher et Remplacer en utilisation VBA
Réponses : 11
Vues : 439

Re: Rechercher et Remplacer en utilisation VBA

 

  Si la virgule du fichier texte source représente non pas le séparateur décimal mais le séparateur de milliers,
  la méthode  TextToColumns  comme l'objet  QueryTable  ont également un paramètre pour le gérer,
  pas besoin de bidouiller !


 
par Marc L
7 mai 2015, 14:16
Forum : Excel - VBA
Sujet : VBA-Copier/couper entre deux feuilles
Réponses : 18
Vues : 688

Re: VBA-Copier/couper entre deux feuilles

    Oui tu peux conserver l'usine à gaz;   j'espère qu'il n'y a pas beaucoup de lignes dans la feuille de calculs   sinon cela va ramer comparativement à un filtre avancé au résultat instantané !   Donc par exemple avec la propriété Range.End détecter la dernière saisie :   NumLig = .Cells(.Rows.Cou...