Microsoft 365 Compréhension d'une macro pour réutilisation

Quent17

XLDnaute Nouveau
Bonjour la communauté,

Je suis tombé sur notre forum sur un sujet qui me serait très utile.
Toutefois, je souhaite réutiliser la macro mais celle-ci est très complexe pour mon niveau de débutant.
Pourriez-vous m'aider à la déchiffrer afin que je puisse la réutiliser ?

---------------------
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim rng As Range

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Me.ListObjects(1).ListColumns(9).DataBodyRange) Is Nothing Then
Application.ScreenUpdating = False
Set ws = ActiveWorkbook.Worksheets("Adhérents")
With ws.ListObjects(1)
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With
If Me.ListObjects(1).ShowAutoFilter Then
If Me.ListObjects(1).AutoFilter.FilterMode Then Me.ListObjects(1).AutoFilter.ShowAllData
Else
Me.ListObjects(1).ShowAutoFilter = True
End If

Me.ListObjects(1).Range.AutoFilter field:=9, Criteria1:="x"
With Me.ListObjects(1).AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count - 4) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
If rng Is Nothing Then
MsgBox "Pas de données à copier"
Else
rng.Copy
ws.Cells(4, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
Me.ListObjects(1).Range.AutoFilter field:=9
End If

Set rng = Nothing

End Sub
----------------------

L'idée est qu'au lieu que la colonne qui permet de recopier via la croix "X" ne soit plus la colonne I mais la A et qu'à la place de recopier que quelques colonnes je souhaiterais ragrandir le nombre de colonnes recopiées : A à H aujourd'hui à B à S par exemple. Pouvez-vous me guider ?

Par la même occasion, est-ce possible de faire ce type de macro sur sheet ?

Un grand merci par avance,
Quentin
 

Pièces jointes

  • Adhérent.xlsm
    21.8 KB · Affichages: 7

Quent17

XLDnaute Nouveau
Bonjour à vous 2 @Phil69970 @cp4 ,

Merci pour votre retour,

Voici mon cas, sur la première feuille "liste CDMG" il y aura une liste exhaustive répertoriant tous les tests possibles. L'idée est de venir cocher les cases qui m'intéressent en "C" et ces dernières seront automatiquement copiées à la suite les unes derrière les autres sur la feuille "Adhérents".
Et vis versa, si je les décoche elles s'effacent de la feuille "Adhérents".

La macro que je vous ai partagés semble pouvoir faire ce que je souhaite mais je n'arrive pas à comprendre les lignes à changer pour pouvoir y arriver.

Merci
Quentin
 
Dernière édition:

Quent17

XLDnaute Nouveau
Bonsoir @Phil69970,

Merci pour cette proposition.
Malheureusement, je ne l'ai pas précisé mais ce fichier sera utilisé sur plusieurs ordinateurs dont macintosh.

Il semble qu'il faille utiliser ActiveX ce qui est difficile sur mac.
Existe t-il un autre moyen de faire une RAZ ?

Passez une bonne soirée
 

Discussions similaires

Statistiques des forums

Discussions
299 841
Messages
1 979 469
Membres
206 744
dernier inscrit
Nicolas258