PETIT PROGRAMME EXCEL
kante
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
je veux que ma premiere ligne excel constitue la ligne d'entée de sorte que lorsque j'entre une donée dans dans une cellule et que je valide ,la donnée se retrouve dans la cellule suivante en bas
TCHOUKOU EMEKA
1 KAN THOMAS
2 JABOUR EBDEL
3 EVELYNE BROUBA
4 MICHEL BOURVIER
5 DAOUDAH THIAM
6 GGGGHH
7
apres le saisie de TCHOUCKOU EMEKA et apres validation, que GGGGHH se retrouve a la position 7
DAOUDA THIAM en 6 ansi de suite .............
aidez moi , mes cheveux sont sont en train de tomber................
je veux que ma premiere ligne excel constitue la ligne d'entée de sorte que lorsque j'entre une donée dans dans une cellule et que je valide ,la donnée se retrouve dans la cellule suivante en bas
TCHOUKOU EMEKA
1 KAN THOMAS
2 JABOUR EBDEL
3 EVELYNE BROUBA
4 MICHEL BOURVIER
5 DAOUDAH THIAM
6 GGGGHH
7
apres le saisie de TCHOUCKOU EMEKA et apres validation, que GGGGHH se retrouve a la position 7
DAOUDA THIAM en 6 ansi de suite .............
aidez moi , mes cheveux sont sont en train de tomber................
A voir également:
- PETIT PROGRAMME EXCEL
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Trier du plus petit au plus grand excel - Guide
- Programme demarrage windows - Guide
- Si ou excel - Guide
1 réponse
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+
