code pour la macro [reglé]

[pascal21]

bonsoir
je relance un nouveau topic sur le sujet des macros car celui que j'ai lancer ici Lien supprimé ne fonctionne plus très bien (je ne peux plus ajouter de réponses)

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
i = Worksheets('Feuil2').Cells(65535, 2).End(xlUp)(2).Row
Worksheets('Feuil2').Cells(i, 2) = Target.Value
End If
End Sub

voici 2 formules en vba la 1ere me permait de selectionner les cellules de départ par contre je n'ai qu'un choix limité pour les colonnes de destination

la 2eme formule que l'on m'a donnée sur un autre site, est tout le contraire pas de choix miltiples dans les cellules de départ mais choix interressant dans les colonnes de destination
vous aurez compris que le recherche le compromis entre les 2 formules choix de départ et choix de destination
pour mieux comprendre n'hésitez pas à consulter le 1er topic que j'ai lancé à l'adresse plus haut
merci

Message édité par: pascal21, à: 16/11/2005 21:20

 

[bof]

Re:code pour la macro

Bonjour,
La réponse est ici !
A+