Programmer VBA pour un Copier/Coller difficile

Bonjour à toutes et à tous,

Voilà mon problème :
J'ai une feuille excel sur laquelle figurent 7 colonnes
Colonne A : Matière
Colonne B : Classe
Colonne C : Module
Colonne D : Groupe
Colonne E : Diplômes
Colonne F : Capacités
Colonne G : Connaissances
Dans un premier temps, j'ai crée un filtre afin de sélectionner la matière,
Puis, ensuite, je sélectionne la classe ( 2nde, 1ère ou Term ),
etc...
Et lorsqu'apparaît ma sélection, je voudrais faire un copier/Coller des colonnes F et G ( capacités et connaissances ) ( seulement des lignes filtrées ).

COMMENT FAIRE UN COPIER/COLLER LORSQUE LES LIGNES N'ONT PAS DES NUMEROS SUCCESSIFS ? ( les numéros ne se suivent malheureusement pas ).
De plus, je souhaiterais garder la mise en forme. ( Hauteur des lignes, couleurs fond cellules et dessin sur cellules ).

Merci d'avance.
Cordialement.

NOVICE72

Bonjour,

Pour copier des données filtrées, tu peux utiliser un filtre élaboré (.AdvancedFilter) puis supprimer les colonnes inutiles

Bonjour
Je ne comprends ni la nécessité de filtrer, ni celle de copier/coller dans cette affaire.
A moins que les "choses" aient été mal ou incomplètement expliquées, la constitution d'une plage "plage" et l'application de la méthode Range.Copy (où Range est la plage "plage") suffisent largement !

Et de toutes manières : j'imagine que ton filtre a masqué certaines lignes, et tu veux copier ailleurs le contenu de deux colonnes parmi les lignes visibles.
Tu peux alors profiter de cet état.
Voici un exemple, où certaines lignes ont été cachées entre la ligne 1 et la ligne 10 incluses. Dans cet exemple, on copie à partir de la cellule H20 uniquement le contenu des cellules restées visibles en colonnes B et D

Code:

---

1 2 3

Set plage = Range("A1:A10").SpecialCells(xlCellTypeVisible) Set plage = Union(plage.Offset(0, 1), plage.Offset(0, 3)) plage.Copy Destination:=Range("H20")

---

te reste quoi ? A comprendre ce mécanisme et à l'adapter (plages source et destination)

Salut, toujours utile : Excel et l'enregistreur de macro

Bonjour à tous et encore merci pour votre aide.

Je vous souhaite aussi de bons voeux pour cette nouvelle année 2017. Que cette année apporte des solutions aux problèmes informatiques ou autre ;)


Cela fait déjà un certain temps que j'essaie d'adapter les informations que vous m'avez fourni mais je n'y suis pas arrivé.

Par contre, j'ai réussi à obtenir un bout de programme qui fonctionne très bien pour 546 lignes exactement - ou quelques lignes en plus seulement - ( ligne 3 à ligne 548 ).
La ligne 2 sert de légende et donc de filtre. La ligne 1 sert à positionner les boutons servant au macros.
Remarque : Ces 546 lignes correspondent au programme de Math et Sciences pour les BAC PRO.
Voici donc mon problème: Je souhaite ajouter environ 200 lignes ( correspondant au programme de Math et Sciences pour les CAP ). Mais, lorsque je fais ceci, la ligne " capacites= join(application.Transpose(sheets(........" se met en surbrillance jaune et une boite de dialogue apparaît dans laquelle est écrit : incompatibilité de Type ( erreur 13 ). Pouvez-vous me dire pourquoi sachant que je ne comprends pas trop le programme.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Sub Inserer_capacite() Application.ScreenUpdating = False 'Dim cap_range As Range With ActiveWorkbook.Sheets("capacités connaissances") 'adresse = .[G65000].End(xlUp).Address   .Range("G3:" & .[G65000].End(xlUp).Address).Copy Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Paste   'a = Sheets(Sheets.Count).Range("A1:" & Sheets(Sheets.Count).[A65000].End(xlUp).Address) 'b = Application.Transpose(a)   capacites = Join(Application.Transpose(Sheets(Sheets.Count).Range("A1:" & Sheets(Sheets.Count).[A65000].End(xlUp).Address)), vbLf) Application.DisplayAlerts = False Sheets(Sheets.Count).Delete Application.DisplayAlerts = True End With 'cap_tab = Application.Transpose(cap_range.Value2)   With ActiveWorkbook.Sheets("Page convocation") .Range("C26:AA26").MergeCells = False .[C26].Value = capacites .Range("C26:AA26").HorizontalAlignment = xlCenterAcrossSelection .Range("C26:AA26").WrapText = True .Range("C26:AA26").EntireRow.AutoFit Mahauteur = .Range("C26:AA26").RowHeight 'voir quelle est la hauteur de la ligne une fois cet autofit fait .Range("C26:AA26").MergeCells = True 'refusionner .Range("C26:AA26").RowHeight = IIf(Mahauteur > 15, Mahauteur, 15) 'si la hauteur une fois autofit fait est inferieur à 15 je laisse 15 en minimum sinon hauteur de l'autofit (perso c'est la hauteur mini que je voulais .Range("C26:AA26").HorizontalAlignment = xlLeft End With   ActiveWorkbook.Sheets("capacités connaissances").Activate Application.ScreenUpdating = True   End Sub

---

Merci d'avance.

NOVICE72