VBA SOUS EXCEL

Louloute2184 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous !

Je voudrais savoir s'il est possible de copier des colonnes d'un tableau sur la feuille 1 dans la feuille 2 d'un classeur Excel en ayant pour critéres une case à cocher dont la valeur serait vraie (case_à_cocher.value = true).

Si oui, serait-il possible de me dire comment fait-on ?

Merci d'avance pour votre aide.

Louloute

1 réponse

  1.
    Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
     
    salut louloute,

    en supposant qu'il y ait une case à cocher par colonne (chkA pour colonne A, chkB pour colone B, etc.), on peut faire ça : 

    Sub SelectionColonne()
    Dim strColonnes As String
    
    If Feuil1.chkA.Value Then
        strColonnes = "A:A"
    End If
    If Feuil1.chkB.Value Then
        strColonnes = strColonnes & ",B:B"
    End If
    If Feuil1.chkC.Value Then
        strColonnes = strColonnes & ",C:C"
    End If
    If Feuil1.chkD.Value Then
        strColonnes = strColonnes & ",D:D"
    End If
    If Feuil1.chkE.Value Then
        strColonnes = strColonnes & ",E:E"
    End If
    
    Range(strColonnes).Copy
    Feuil2.Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.Select
End Sub

    0