pascal21
XLDnaute Barbatruc
bonsoir
en voici l'explication
qui s'applique à la cellule a1
j'ai fais un copier/coller en changé les cellules de départ(b1 et de destination mais là ça ne fonctionne plus
où est l'erreur merci
en voici l'explication
on m'a donné une macro qui fonctionne très bien d'ailleursPrivate Sub Worksheet_Change(ByVal Target As Range)
'si la cellule A1 vient d'être modifiée alors
If Target.Address = '$A$1' Then
'chercher le numéro de la première ligne vide dans Feuil2 Colonne2
'et stocker ce numéro dans une variable i
i = Worksheets('Feuil2').Cells(65535, 2).End(xlUp)(2).Row
'Alors mettre Feuil2(ligne i, colonne 2)= Target.Value
Worksheets('Feuil2').Cells(i, 2) = Target.Value
'C'est tout.
End If
End Sub
qui s'applique à la cellule a1
j'ai fais un copier/coller en changé les cellules de départ(b1 et de destination mais là ça ne fonctionne plus
où est l'erreur merci