PETIT PROGRAMME EXCEL
Fermé
kante
-
3 déc. 2008 à 11:00
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 3 déc. 2008 à 14:57
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 3 déc. 2008 à 14:57
A voir également:
- PETIT PROGRAMME EXCEL
- Liste déroulante excel - Guide
- Si et excel - Guide
- Excel trier du plus grand au plus petit - Guide
- Programme demarrage windows 10 - Guide
- Word et excel gratuit - Guide
1 réponse
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
3 déc. 2008 à 14:57
3 déc. 2008 à 14:57
Bonjour,
Je ne voudrais surtout pas que tu devienne chauve :-D
Tu colle ce code dans le module de ta feuille
Tout ce que tu tape en A1, suivi de ENTER serra recopier en fin de colonne A
A toi d'adapter pour tes adresses.
A+
Je ne voudrais surtout pas que tu devienne chauve :-D
Tu colle ce code dans le module de ta feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static AncAdress As String If AncAdress <> "" And Target.Count = 1 Then 'pour 1ère initialisation. If Range(AncAdress).Address = "$A$1" And Range(AncAdress) <> "" Then 'La cellule que l'ont vient de quitter était A1 et a été modifiée. 'L'ajoute en fin de colonne A Range("A" & Range("A65536").End(xlUp).Row + 1) = Range(AncAdress) Range("A1") = "" Range("A1").Select Exit Sub End If End If AncAdress = Target.Address End Sub
Tout ce que tu tape en A1, suivi de ENTER serra recopier en fin de colonne A
A toi d'adapter pour tes adresses.
A+