affecter code feuille a une macro

[jad73]

bonjour
comment fait-on pour affecter un code qui est dans une feuille a un bouton de macro.
On m'a aimablement donner un code pour extraire des données mais il est dans une feuille (qu'on ma dit)hors j'ai crée un bouton pour faire la macro mais je ne trouve pas le code quand je clique droit sur le bouton et affecter une macro
voici le code
Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque édition dans l'onglet
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)

If Target.Address <> "$T$3" Then Exit Sub 'si l'édition a lieu ailleurs qu'en T3, sort de la procédure

For Each cel In Range("A2:A2000") 'boucle sur toutes les cellules cel de la plage A2:A2000
If cel.Value = Target.Value Then 'condition 1 : si la cellule cel a la même valeur que la cellule T3
If Range("V2") = "" Then 'condition 2 : si la cellule V2 est vide
Set dest = Range("V2") 'définit dest comme étant V2
Else 'sinon (condition 2)
'définit dest comme étant la première cellule vide rencontrée dans la colonne V
Set dest = Range("V65536").End(xlUp).Offset(1, 0)
End If 'fin de la condition 2
Range(cel.Offset(0, 1), cel.Offset(0, 17)).Copy dest 'copie et colle la plage B:R de la celule cel
End If 'fin de la condition 1
Next cel 'prochaine cellule cel de la boucle
End Sub

mon bouton de macro se nomme 'resultSem'
merci

 

[JCGL]

Re : affecter code feuille a une macro

Bonjour à tous,

Peux-tu essayer en affectant ce code à ton bouton :

Sub Resultat ()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
 
If Target.Address <> "$T$3" Then Exit Sub 'si l'édition a lieu  ailleurs qu'en T3, sort de la procédure
 
For Each cel In Range("A2:A2000") 'boucle sur toutes les cellules cel de  la plage A2:A2000
    If cel.Value = Target.Value Then 'condition 1 : si la cellule cel a  la même valeur que la cellule T3
        If Range("V2") = "" Then 'condition 2 : si la cellule V2 est  vide
            Set dest = Range("V2") 'définit dest comme étant V2
        Else 'sinon (condition 2)
            'définit dest comme étant la première cellule vide  rencontrée dans la colonne V
            Set dest = Range("V65536").End(xlUp).Offset(1, 0)
        End If 'fin de la condition 2
        Range(cel.Offset(0, 1), cel.Offset(0, 17)).Copy dest 'copie et  colle  la plage B:R de la celule cel
    End If 'fin de la condition 1
Next cel 'prochaine cellule cel de la boucle
End Sub

A+ à tous

 

[jad73]

Re : affecter code feuille a une macro

bjr
j'ai affecté ton code au bouton mais j'ai 'erreur 424 objet requis' et la ligne 'If Target.Address <> "$T$3" Then ' en surbrillance jaune
merci