Actualise base evenement

Le
PST
Bonjour

Deux feuilles 1 transfert et l'autre base
La macro ci dessous me transfert la ligne de la feuille transfert vers
la dernière ligne

non vide de la feuille base. Elle fonctionne.

Ci je la mets dans une procedure evenement, elle bloque, pourquoi

Ce sont des données dde, qui me servent à actualiser une base

merci

Sub Transfert()

Range("A1:F1").Select
Selection.Copy

Sheets("Base").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #22536051
Salut à toi

Mets plutôt comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:F1").Copy
Sheets("Base").Range("A65536").End(xlUp).Offset(1, 0)
End Sub


Celà devrait mieux fonctionner

Dis moi !!!!!
PST
Le #22537841
Impeccable merci

mais pourquoi cela ne fonctionnait pas

Le 03/09/2010 07:36, FFO a écrit :
Salut à toi

Mets plutôt comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:F1").Copy
Sheets("Base").Range("A65536").End(xlUp).Offset(1, 0)
End Sub


Celà devrait mieux fonctionner

Dis moi !!!!!
Publicité
Poster une réponse
Anonyme