Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Actualise base evenement

Actualise base evenement

2 réponses
Avatar
PST
Bonjour

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

non vide de la feuille base. Elle fonctionne.

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

Ce sont des donn=E9es dde, qui me servent =E0 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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
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 !!!!!
Avatar
PST
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 !!!!!