Copier par macro

Bonjour à toutes et tous

Je souhaiterais, grace à un macro, copier des champs (avec mise en forme conditionnelle) vers une grille soit :

1/ Vider le champ A14:A43

2/ Copier les numéros en vert uniquement

3/ Les coller en A14

Merci de votre aide

12classeur2.xlsx (21.02 Ko)

Slt MJC55,

et c'est quoi la condition pour copier les numéro vert?

est-ce toujours la couleur verte?

ou bien toujours les deux dernieres entrées de la colonne N?

ou bien toujours les 2 plus grand nombres dans la colonne N?

@ ++

Bien le bonjour !

Il s'agit des couleurs (toujours vertes) qui correspondent à la catégorie recherchée

ces catégories changent avec le bouton compteur à gauche

Bien cordialement

Bonjour,

Ma demande serait-elle trop floue ou mal commentée ?

Peut-être irréalisable !

Slt MJC55,

à tester

Sub Copier_par_macro()
Dim i As Long, j As Long, Derligne As Long

ActiveSheet.Range("A14:A43").ClearContents

 With Sheets("Feuil1")
    Derligne = .Cells(Rows.Count, "O").End(xlUp).Row
    j = 14
        For i = 2 To Derligne
            If .Cells(i, 15).Value = Range("C2").Value Then
                .Cells(j, 1).Value = .Cells(i, "N").Value
                j = j + 1
            End If
        Next i
 End With
End Sub

Bonjour m3ellem1,

Merci pour votre coup de main !! ça tourne rond !

parfait

Rechercher des sujets similaires à "copier macro"