problème de macro

[pascal21]

bonsoir

en voici l'explication

Private 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

on m'a donné une macro qui fonctionne très bien d'ailleurs
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

 

[pascal21]

pour faire remonter

 

[pascal21]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long, C As Byte
If Not Application.Intersect(Target, Range('A1:B1')) Is Nothing Then
C = Target.Column + 1
I = Worksheets('Feuil2').Cells(65535, C).End(xlUp).Row + 1
Worksheets('Feuil2').Cells(I, C) = Target.Value
End If
End Sub

bonsoir
cette formule marche bien je peux controler les 2 cellules a1 et b1
mais ,parceque il y a un mais,

Target, Range('A1:B1'))

est-il possible de modifier cette partie pour que je puisse controler des cellules séparées
a1:b1 ne fait fonctionner que un groupe de cellules
ce que je voudrais maintenant c'est controler (A1 B4 F5 S8) par exemple je joint le tableau pour mieux comprendre

ce n'est qu'une esquisse

 

[myDearFriend!]

Bonsoir Pascal21, Gérard, Robert, le Forum.

Au vu de ce que j'ai cru comprendre, je te propose la simple modification suivante :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long, C As Byte
      If Not Application.Intersect(Target, Range('A1,B4,F5,S8')) Is Nothing Then
            C = Target.Column + 1
            I = Worksheets('Feuil2').Cells(65535, C).End(xlUp).Row + 1
            Worksheets('Feuil2').Cells(I, C) = Target.Value
      End If
End Sub

Maintenant, je ne suis pas certain que ça réponde pleinement à ton souhait car, (si je peux me permettre) je t'avoue que je ne comprends pas tout à fait le rapport entre ces cellules 'A1,B4,F5,S8' et la copie d'écran que tu joins là...

Cordialement,
Bonne soirée et bon courage pour la suite.

 

[pascal21]

bonsoir à tout le monde
oui je me suis aperçu de la différence enfin les cellules nommées étaient là pour l'exemple
pour faire comprendre qu'elles étaient bien séparées
des fois, trop d'information tue l'information lol!!!
j'avais essayé de modifier la formule

Target, Range('A1,B4,F5,S8')) I

mais j'y avais mis des point vigule ça marchait pas je vais essayer comme tu me l'indique
je reviens