Discussion :

[John Parker]

Bonjour, je rencontre un problème,
J'ai 2 feuilles, la première nommée "FichierClient" et la seconde "ImportClient".
Je voudrais que toutes les lignes (non vide) de la feuille "ImportClient" soient copiées à la dernière ligne non vide de "FichierClient".
J'arrive à copier et coller, le problème est que si ma feuille "ImportClient" ne contient rien ma macro me renvoie une erreur.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Copie()
 
Dim lgLigFinF As Long
 
    lgLigFinF = Worksheets("FichierClient").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
 
     Worksheets("ImportClient").Range("A1:I" & [A1].End(xlDown).Row).Copy Destination:=Worksheets("FichierClient").Range("A" & lgLigFinF)
 
 
End Sub

Merci d'avance

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim L As Long
L = Sheets("FichierClient").UsedRange.Rows.Count + 1
 
    FiltreActif Sheets("ImportClient").UsedRange, Sheets("Filtre").UsedRange, Sheets("FichierClient").Range("A" & L), False
Sheets(FichierClient).Cells(L, 1).EntireRow.Delete
End Sub
 
Function FiltreActif(RangeSource As Range, CriterRange As Range, CopyRange As Range, Optional Unique As Boolean = True) As Boolean
FiltreActif = False
On Error Resume Next
 RangeSource.AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=CriterRange _
        , CopyToRange:=CopyRange, Unique:=Unique
        DoEvents
        If Err = 0 Then FiltreActif = True
        'MsgBox Err.Description
        On Error GoTo 0
End Function

dans la feuille Filtre il faut sur la première linge copier le tire de la colonne que tu veux test sur la 2 ixième la valeur du filtre en occurrence <>
A1= "Titre1"
A2=<>

[John Parker]

Je ne comprends l'histoire de la feuille "Filtre". Quel est l'intérêt?
Ma feuille "ImportClient", reçoit en permanence de nouvelles entrées

[Invité]

si tu passe par un filtre élaboré, tu copie tout en une seule passe.
pas besoin de boucle, hors il te faut un feuille ou sauvegarder tes données (FichierClient),une ou ce trouve les données que tu veux importer (ImportClient) et une qui dit quoi importer (Filtre)

je te raconte pas le gain de temps!

[John Parker]

Le problème c'est que je n'ai pas de titre pour mes colonnes dans "ImportClient". Je me contente d'importer les données venant d'un .txt dans cette feuille...

[Invité]

soit tu insert une ligne en A1 de ton fichier d'import et tu rajoute les titre de colonne, soit tu fait effectivement une boucle.

mais je pense que la première solution t’apportera un gain de temps.

[Marc-L]

Bonjour,

si c'est pour alimenter directement la feuille FichierClient,
ce n'est pas la peine d'importer le fichier txt dans une feuille intermédiaire …

C'est quoi comme fichier txt, possibilité de le mettre en pièce jointe ?

[John Parker]

Bonjour,

si c'est pour alimenter directement la feuille FichierClient,
ce n'est pas la peine d'importer le fichier txt dans une feuille intermédiaire …

C'est quoi comme fichier txt, possibilité de le mettre en pièce jointe ?

C'est un txt avec tabulation pour séparer les colonnes. Je ne peux le joindre étant donné que c'est une base client et donc personnel...

soit tu insert une ligne en A1 de ton fichier d'import et tu rajoute les titre de colonne, soit tu fait effectivement une boucle.

mais je pense que la première solution t’apportera un gain de temps.

Il met impossible de rajouter une ligne étant donné que je remet la feuille à 0 après chaque import et que je retravaille la feuille...

[Marc-L]

Et dans le fichier txt importé il y a des lignes vides ?‼

Sinon à partir d'une feuille de calculs, le filtre ou le filtre avancé sont effectivement
les solutions les plus simples à mettre en œuvre …

[John Parker]

Non il n'y a pas de lignes vides dans mon .txt

[Marc-L]

Dans ce cas c'est assez simple, tu peux déjà le faire manuellement
tout en utilisant l'Enregistreur de macros donnant ainsi une base de code …

Sinon consulter l'aide de la propriété Range.CurrentRegion en la combinant
à la méthode Range.Copy en spécifiant son argument Destination …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Lire … C'est s'investir ! (Marc L)

[John Parker]

Oui mais mon problème est que j'aimerai que si la feuille "ImportClient" ne contient rien alors ne pas lancer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("ImportClient").Range("A1:I" & [A1].End(xlDown).Row).Copy Destination:=Worksheets("FichierClient").Range("A" & lgLigFinF)

Ce code marche s'il y a quelque chose dans la feuille "ImportClient". Mais s'il n'y a rien le débogueur se lance...

[Marc-L]

Pas ce souci avec CurrentRegion …

[John Parker]

Je met cela à la place de Destination?

[Marc-L]

Ben non vu que c'est l'origine (en la combinant à la méthode Range.Copy) :

Worksheets("ImportClient").[A1].CurrentRegion.Copy Worksheets("FichierClient").Cells(lgLigFinF, 1) …


Ou bien encore en corrigeant la logique de la ligne source :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With Worksheets("ImportClient")
        .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Copy Worksheets("FichierClient").Cells(lgLigFinF, 1)
    End With

Enfin parmi divers moyens s'il est vraiment nécessaire de vérifier si la zone contient quelque chose, il y a par exemple

If Worksheets("ImportClient").[A1].CurrentRegion.Cells.Count > 1 then …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
On ne dit pas une biroute mais une route à deux voies …

[John Parker]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Worksheets("ImportClient")
        .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Copy Worksheets("FichierClient").Cells(lgLigFinF, 1)
    End With

Ce code fonctionne mais il ne me copie que la cellule A1...

[Marc-L]

Oui c'est un exemple sur la première colonne, modifier le 1 par le numéro de la dernière colonne …

Donc c'est plus simple via CurrentRegion …

Sinon voir aussi les propriétés Offset et UsedRange …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Les bourses ne témoignent pas l'état des économies, mais de la psychologie des investisseurs ! (Françoise Giroud)

[John Parker]

En effet ça marche parfaitement bien!

Merci 1000 fois!

J'ai encore une dernière petite question au final
Est-il possible de faire un test de sorte à ne copier que les lignes non existantes?
Je m'explique, je voudrais comparer la valeur de la ligne de la colonne A de la feuille "ImportClient" qui contient le nom et prénom du client à la colonne A de la feuille "FicheClient" qui contient également le nom et prénom, de sorte à éviter les doublons.
Merci d'avance!

[Marc-L]

Je vois déjà trois manières de le faire, tout dépend du nombre de lignes à traiter …

S'il n'y en a pas des milliers, regarder l'aide et son exemple de la méthode Range.Find …


__________________________________________________________________________________________
Des chercheurs qui cherchent, on en trouve. Des chercheurs qui trouvent, on en cherche ! (Charles De Gaulle)

[John Parker]

Justement le nombre de lignes peut varier étant donné que c'est un import de txt d'une base client. Tout dépend si l'utilisateur pensera à le faire régulièrement ou pas...

En fait la ou je bloque c'est pour le test.
Je n'arrive pas à combiner le test avec le code de copie que tu m'as communiqué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Worksheets("ImportClient")
        .Range(.[A1], .Cells(.Rows.Count, 11).End(xlUp)).Copy Worksheets("FichierClient").Cells(lgLigFinF, 1)
    End With