Discussion :

[Invité]

Bonjour à tous,

La question est dans l'intitulé.

J'ai un classeur 1 dont je veux sélectionner les cellules non vide d'une plage allant de la colonne J à la colonne P depuis la ligne 4 ,jusqu'à la dernière ligne non vide (plage variable) .

Copier et coller les valeurs dans un autre classeur 2 au même endroit

Merci d'avance, je séche

[Philippe Tulliez]

Bonjour,
S'il s'agit d'exporter des lignes entières de la liste de données, je ne peux que conseiller l'utilisation du filtre avancé dont les possibilités pour construire les critères sont sans limite. Il faut utiliser dans ce cas présent, le critère calculé.
Après avoir défini les zones des données, de critères et d'exportation, la procédure en VBA pour effectuer cette exportation tient en une ligne de code. (voir ma réponse de ce matin dans cette discussion Trouver une date (mois et année) dans une colonne avec plusieurs dates

A lire éventuellement Les filtres avancés ou élaborés dans Excel

Quelques exemples de formule pour critère calculé sur une plage de données A1:K101
Pour exporter la ligne si elle est complètement remplie

Code :

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

=NBVAL(A2:K2)=11

Pour exporter les lignes qui contiennent au moins une cellule remplie

Code :

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

=NBVAL(A2:K2)>0

[Invité]

Bonjour et merci d'avoir pris en compte ma question.

Je ne pense pas que cela convienne, les cellules filtrées ne vont se remettre au même emplacement dans mon classeur de réception.

Cependant, c'est une fonction que je n'avais pas encore utilisée, et c'est bon à prendre.

J'étais plus parti sur un script VBA. Mais je vais bien trouver...

[Philippe Tulliez]

Bonjour,

J'étais plus parti sur un script VBA. Mais je vais bien trouver...

Si tu as lu ma réponse dans le lien que j'ai publié dans mon fil précédent, il s'agit bien de procédure VBA utilisant la méthode AdvancedFilter de l'objet Range

Je ne pense pas que cela convienne, les cellules filtrées ne vont se remettre au même emplacement dans mon classeur de réception.

On peut exporter une partie des colonnes et dans un ordre différent. Cependant si les colonnes cibles ne sont pas contiguë, rien n'empêche d'exporter plusieurs fois une colonne. Le script est tellement court et rapide qu'il est plus intéressant de procéder ainsi.

[Invité]

Re,

OK, je vais me tourner sur cette méthode avec des essais.

Encore merci

[joe.levrai]

Bonjour,

si j'ai bien compris, tu veux :

- pour chaque ligne de ta BDD (le début étant à la ligne4) : prendre les cellules non vides des colonnes J à P
- copier ces cellules dans un autre classeur, mais à la même position que le classeur source (même ligne et même colonne)

par exemple :

Si J4 est rempli, je colle sa valeur en J4 du classeur de destination ?

je ne trouve pas d'idée avec un filtre avancée, je propose donc une solution par Tableau Virtuel pour ne pas travailler sur les cellules, et ainsi gagner du temps

je pars du principe que les cellules de la colonne A sont toujours remplis (sinon il faudra adapter... dis nous)

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 RecopieNonVide()
Dim Tablo
 
' adapter la feuille source
With ThisWorkbook.Worksheets("LaFeuilleSource")
                                       ' adapter la colonne "1" si elle n'est pas toujours remplie
    Tablo = .Range(.Cells(4, 10), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 16))
End With
 
' adapter la feuille de destination
With Workbooks("L'autre Classeur").Worksheets("LaFeuilleDeDestination")
    For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        For j = LBound(Tablo, 2) To UBound(Tablo, 2)
            If Tablo(i, j) <> "" Then .Cells(3 + i, 9 + j) = Tablo(i, j)
        Next j
    Next i
End With
 
End Sub

[Invité]

Bonjour Joe,

C'est exactement ce que je voulais. Et la colonne "A" est toujours pleine.

Je n'ai pas essayé, car je ne suis pas à bord du PC qui a le programme, mais je ne manquerai pas de redonner des nouvelles

Merci en attendant

[Invité]

Bonsoir à tous,

Je viens de faire un essai avec mes deux classeurs : "NICKEL-CHROME".

Deux p'tites routines pour l'ouverture de mon classeur récepteur avant le lancement du script, son enregistrement et sa fermeture et le tour est joué.

Merci Joe.

[Marc-L]

je ne trouve pas d'idée avec un filtre avancée

Hey joe, c'est quand que tu t'y mets ?‼

[joe.levrai]

Rhoooooo je sens la vengeance me retomber sur le coin de la cafetière, c'est de bonne guerre et ça fait plaisir

je m'y suis mis figure toi ! j'ai retiré mes moufles et enfin compris pourquoi ça partait en sucette à chaque fois ... heureux de maintenant intégrer complètement cet outil dans mes applications déjà en place.

Tiens, ma contre-vengeance :

- solution clé en main : http://www.developpez.net/forums/d15...e/#post8277169

- et j'ai même pris la confiance et doublé Philippe ici (on appelle ça "la chance du débutant") : http://www.developpez.net/forums/d15...ore-different/

[Marc-L]

Bien ! le filtre avancé rend de grands services en VBA avec un code compact, rapide et aisé à maintenir
et donc bien plus facile à appréhender pour un demandeur débutant …