Discussion :

[zigwai]

Bonjour ou re-bonjour

Je commence à étudier le VBA, mais j'ai besoin de 2-3 codes rapidement que je ne saurai écrire moi-même à l'heure actuelle.

Sur cette macro, qui, si j'ai bien compris, devra se mettre dans un module de ma feuille excel, puis s'associer à un bouton que j'appellerai "facture", je cherche à :

Copier les lignes dont les cellules de la colonne A ne sont pas vides (une valeur est inscrite) en limitant la copie aux colonnes A à E.
La finalité serait d'avoir dans le presse papier les lignes en question pour pouvoir les coller sur un fichier Word.

exemple : Tableau à 8 colonnes (A à H) et 200 lignes.
Toutes les cellules de la colonne A sont vides sauf A12, A14, A18.
Si je clique sur mon bouton, je veux avoir dans le presse papier
A12,B12,C12,D12,E12
A14,B14,C14,D14,E14
A18,B18,C18,D18,E18

En vous remerciant par avance.

[Stef999]

Bjr,

Avec un filtre ?

Code :

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

1
2
3
ActiveSheet.Range("$A$1:$E$200").AutoFilter Field:=1, Criteria1:="<>"
Intersect(Range("A1").CurrentRegion, Range("A:D")).Select
Selection.Copy

[zigwai]

Bonsoir steff,

merci pour ta proposition, mais ce filtre supprime les lignes où A est vide, et ne s'arrête pas à la colonne E.
On s'en approche mais ce n'est pas tout à fait ça.
Cdt

[Stef999]

Re,

Pour prendre les vides c'est :

Code :

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

ActiveSheet.Range("$A$1:$H$200").AutoFilter Field:=1, Criteria1:="="

Pour prendre les pas vides :

Code :

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

ActiveSheet.Range("$A$1:$H$200").AutoFilter Field:=1, Criteria1:="<>"

et la suite est

Code :

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

1
2
Intersect(Range("A1").CurrentRegion, Range("A:E")).Select
Selection.Copy

[Guiiand]

Bonjour,

Bonsoir steff,

merci pour ta proposition, mais ce filtre supprime les lignes où A est vide, et ne s'arrête pas à la colonne E.
On s'en approche mais ce n'est pas tout à fait ça.
Cdt

Un filtre ne supprime rien, les lignes sont seulement masquées.

[zigwai]

Ok merci pour les filtres, je ne savais en effet pas que cela "masquait".
Ceci étant j'aurai préféré une simple copie des lignes voulues sans masquer le reste.
Le cas échéant comment "démasque"-t-on ensuite les lignes masquées de cette manière ?

D'autre part la commande

Code :

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

Intersect(Range("A1").CurrentRegion, Range("A:E")).Select

n'a pas l'air de fonctionner, puisque j'ai toujours les colonnes après E (F,G,H...)

Edit : Je n'avais pas vu la cellule avec menu déroulant qui apparait en haut à gauche, qui permet de rétablir les cellules masquées, donc pour ce point c'est bon. En revanche ça ne masque pas les colonnes après E

Cette solution de filtre est une possibilité, simplement le bouton ne sert plus à grand chose, à part afficher le menu déroulant à la première utilisation.
J'aurai préféré une sélection des lignes voulues en cliquant sur le bouton.
Mais si vous n'avez pas ça en stock, c'est déjà très aimable de m'avoir fourni ce filtre

[Guiiand]

Re,

Dans ta question, tu demandais d'avoir les colonnes A à E dont A est non vide dans le presse papier.

C'est exactement ce que le code de Steff fais, tu n'as plus qu'a coller dans word.

Si au contraire tu veux que les colonnes après E soit masquée sur Excel c'est un autre problème.

Assure toi de poser la bonne question pour avoir la bonne réponse.

Bonne journée

[zigwai]

Lorsque j'associe le code à un bouton, et que j'active ce bouton:
- Le filtre s'active, laissant apparaitre uniquement les lignes désirées, toutes colonnes confondues
- Lorsque j'essaie de coller dans un fichier Word, le collage ne se fait pas. Il n'apparait que l'icône "options de collage", avec les différentes possibilités:
Conserver la mise en forme source
Respecter la mise en forme de destination
...
Conserver la mise en forme source et le lien vers Excel

J'en conclus que les lignes doivent bien se placer dans le presse papier mais le collage ne se fait pas.

Mes questions sont donc:
- Comment résoudre ce problème de collage, quelles en sont les origines ?
- Comment éviter l'activation du filtre au déclenchement du bouton, pour n'obtenir que la copie des lignes ?

Mes excuses si mes questions peuvent sembler mal formulées ou idiotes, je fais de mon mieux ^_^ et je sais que c'est réciproque et gratuit et je vous en remercie.

[Marc-L]

Bonjour.

Je viens de faire le test d'un Copier / Coller entre une sélection dans Excel après filtrage et Word, pas de souci.

Est-ce que cela fonctionne en manuel de ton côté ?

Dans l'affirmative, c'est le code qui ne va pas, sinon c'est un problème dans ta version …

[zigwai]

Bonjour,

Oui, si j'active le filtre, puis selectionne les lignes non masquées manuellement, puis CtrlC et CtrlV dans Word, ça fonctionne.
Ce serait donc le code qui serait problématique ?

[Stef999]

Bjr,

Le code :

applique un filtre
sélectionne la plage visible du filtre,
cette plage est restreinte aux colonne A:E grace à Intersect
Il fait une copie

Et il marche !!

il suffit de faire Ctrl V ds Word pour le vérifier.

La suppression du filtre se fait par

Code :

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

ActiveSheet.Range("$A$1:$H$200").AutoFilter Field:=1

Mais cela invalide la copie ... donc je ne l'ai pas mis dans le code initial
Il faudrait, par code ouvrir ou créer un fichier Word, coller ds ce fichier puis retirer le filtre.

cdlt

[zigwai]

Merci pour les explications Steff,

La présence du filtre n'est pas très problématique, je peux jouer avec le menu déroulant pour le supprimer une fois ma copie faite au pire.
Par contre le collage sur Word ne fonctionne vraiment pas, alors c'est peutêtre vraiment un problème de version pour moi, je vais regarder ça.
Merci beaucoup en tous les cas.

Cdt

[Marc-L]

Si cela fonctionne en manuel, il n'y a pas de raison …