Macro pr réafficher des archives...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide à l'écriture d'une macro afin de réafficher des archives...

J'ai trouver, grâce à ce forum, une macro pour archiver, mais pour réafficher des données archivées, ça se complique.. lol

Merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian.

 

[pierrejean]

Re : Macro pr réafficher des archives...

bonjour Christian

Vois si cela te convient

 

[Christian0258]

Re : Macro pr réafficher des archives...

Re, le forum, pierrejean,


Merci, pierrejean, c'est impec de chez impec...

Bravo et encore merci à toi pierrejean.


amitiés,
Christian

 

[Christian0258]

Re : Macro pr réafficher des archives...

Re, le forum, pierrejean,

PierreJean, a donné la solution à ce problème, mais je souhaiterais élargir le champ d'application de cette fonction...pourriez-vous m'éclairer.

Merci à vous, merci pierrejean,

Bien amicalement,
Christian

 

[cbea]

Re : Macro pr réafficher des archives...

Bonjour Christian, re à pierrejean,

Voici une solution :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CCible As Range
    
    If Target.Count > 1 Then Exit Sub
    
    ' Si la valeur est saisie dans les cellules D8, G8
    If Not Intersect(Target, Application.Union(Range("D8"), Range("G8"))) Is Nothing Then
        ' Rechercher la valeur saisie dans la plage AP8:AV8
        For Each CCible In Range("AP8:AV8")
            ' Si la valeur est trouvée, copier les valeurs
            If CCible.Value = Target.Value Then
                Range(Cells(9, CCible.Column), Cells(64, CCible.Column + 1)).Copy Destination:=Target.Offset(1, 0)
                Exit For
            End If
        Next CCible
    End If
End Sub

 

[Christian0258]

Re : Macro pr réafficher des archives...

Re, le forum, pierrejean, cbea,

Merci pour ton travail, cbea, ça fonctionne parfaitement.

Merci à pierrejean.

a+
Christian