Coller les lignes selon 4 conditions Résolu

Question

Bonjour,

j'ai besoin d'aide s'il vous plait!

Je vous explique mon problème: j'ai un tableau de n lignes (qui varie tout le temps)

Ma colonne A peut prendre 10 valeurs différentes mais

je dois copier une ligne (de la colone A à la colone K) si :
- colonne A = "a" ou
- colonne A = "b" ou
- colonne A = "c "ou
- colonne A = "d" ou

et la coller dans un nouvelle feuille.
J'ai donc besoin d'une macro ou d'un code VBA mais je n'ai que très peu de notions!
Merci de votre aide

michel_m · Answer

Ci joint demo

la macro proposée:

Sub copier_si()
Dim lig As Long, cptr As Long

Application.ScreenUpdating = False
Sheets(2).Range("A1:K65536").ClearContents

'tablo = Range("A1").CurrentRegion 'valable si aucune cellule vide dans le tableau
's'il y a risque de cellule vide utiliser:
Sheets(1).Activate
tablo = Sheets(1).Range("A1:K" & Range("A65536").End(xlUp).Row)
lig = 1
For cptr = 1 To UBound(tablo)
    If tablo(cptr, 1) = "a" Or tablo(cptr, 1) = "b" Or tablo(cptr, 1) = "c" Or tablo(cptr, 1) = "d" Then
        Sheets(1).Range(Cells(cptr, 1), Cells(cptr, 11)).Copy Sheets(2).Range("A" & lig)
        lig = lig + 1
    End If
Next
Sheets(2).Activate
End Sub

Bonne soirée

Xim · Answer

Je te remercie beaucoup Michel

Ton code marche super bien et répond parfaitement à ce que je voulais !

Encore merci !

Xim

Coller les lignes selon 4 conditions

2 réponses

Votre réponse

Discussions similaires

Newsletters