code pour la macro [reglé]

pascal21

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
3
Affichages
261

Statistiques des forums

Discussions
312 895
Messages
2 093 382
Membres
105 713
dernier inscrit
Karimov