> Tous les forums > Forum Bureautique
 ajouter automatiquement une ligne dans tableau
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
gerardu67
  Posté le 03/07/2012 @ 22:09 
Aller en bas de la page 
Nouvel astucien

Bonjour les astuciens et astuciennes

voici mon tableau de bourse

http://cjoint.com/?BGdvUQzCuQy

les colonnes blanches sont celles ou je rentre les données manuellement

et les colonnes en bleu sont celles ou les donnes ou calculs sont fixe

donc ce que je souhaite c'est que quand je rentre une nouvelle societe en 2A et que j'appui sur "entrée" j'aimerais que tout le tableau se decale vers le bas et me laisse une nouvelle ligne en 2 pour faire une nouvelle transaction

et quand je rentre une date en colonne H et que j'appuit sur "entrée" j'aimerais bien que le tri se fasse par la plus ancienne date en bas du tableau

ce qui fait que j'aurais toujours la ligne 2 pour une nouvelle transaction ensuite celles qui sont en cours et en bas du tableau celles qui sont cloturées

sachant que je suis nul en macros ou vba

cordialement

Gérard

Publicité
bruevr
 Posté le 05/07/2012 à 18:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Hello,

Tu télécharges le fichier Insertion-tri.bas par le lien http://cjoint.com/?BGfss4NNkxq

Tu ouvres Visual basic. (Onglet développeur, Visual Basic)

Tu importes le fichier Insertion-tri.bas

2 macros sont disponibles dans ta feuille : Classement et Insertion

La combinaison de touche :

CTRL+i te fait ton insertion

CTRL+d te fait le tri par date.

Cela peut te convenir...

Si tu n'as pas l'onglet développeur :

Clic sur le bouton Office Image du bouton , Options Excel, Standard, activez la case à cocher Afficher l'onglet développeur dans le ruban

A12C4

gerardu67
 Posté le 07/07/2012 à 09:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

merci bruevr

pour ta reponse

mais je n'arrive pas a telecharger le fichier

le visual basic je l'ai dans excel

bruevr
 Posté le 07/07/2012 à 09:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

gerardu67 a écrit :

merci bruevr

pour ta reponse

mais je n'arrive pas a telecharger le fichier

le visual basic je l'ai dans excel

Hello,

Tu fais un copier-coller dans notepad du texte ci-dessous en brun et tu sauvegardes le fichier en le nommant Insertion-tri.bas ou autrement mais avec l'extension .bas

Le visual basic est intégré dans excel. Onglet développeur pour versions 2007 & 2010. (Voir dernière ligne de mon précédent message pour le faire apparaitre)

A12C4

Attribute VB_Name = "Module1"
Sub Insertion()
Attribute Insertion.VB_ProcData.VB_Invoke_Func = "i\n14"
'
' Insertion Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
End Sub
Sub Classement()
Attribute Classement.VB_ProcData.VB_Invoke_Func = "d\n14"
'
' Classement Macro
'
' Touche de raccourci du clavier: Ctrl+d
'
Columns("A:L").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("H1:H44") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:L44")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
End Sub

bruevr
 Posté le 07/07/2012 à 09:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Hello,

Une erreur dans mon tesxte de macro, j'ai été trop vite, mes excuses....

Il est possible que tu sois obligé de réaffecter les touches de raccourcis

Clic sur macro, options et tu choisis ton raccourci

J'ai mis CTRL+i pour insertion et CTRL+d pour remettre en ordre par date

A12C4

Le bon texte :

Sub Insertion()

'
' Insertion Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
End Sub
Sub Classement()
'
' Classement Macro
'
' Touche de raccourci du clavier: Ctrl+d
'
Columns("A:L").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("H1:H44") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:L44")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
End Sub

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
129,99 €Smartphone 6,8 pouces Motorola G9 Power (HD+, Snapdragon 662, 4 Go RAM, 128 Go) à 129,99 € (via ODR)
Valable jusqu'au 25 Avril

Cdiscount fait une promotion sur le smartphone 6,8 pouces Motorola Moto G7 Power qui passe à 229,99 €. Or Motorola rembourse actuellement 100 € pour l'achat de cet appareil qui vous reviendra à 129,99 € après remboursement. Ce smartphone possède un écran 6,8 pouces HD+ (1640x720 pixels), un processeur octo-coeur Snapdragon 662, 4 Go de RAM, 128 Go de stockage extensible à 1 To via MicroSD, un lecteur d'empreintes digitales, un APN de 64 MP et un APN frontal de 16 MP avec flash intégré, le WiFi, le bluetooth, le NFC, le GPS. Le tout tourne sous Android 10. Avec sa batterie de 6000 mAh, le smartphone est très endurant et vous permettra de tenir jusqu'à 3 jours avant de le recharger. Une coque de protection, un adaptateur secteur 20W USB C et un kit mains libres sont fournis.

Prenez la version proposée par Cdiscount pour être certains de bénéficier de l'ODR (marchand partenaire)


> Voir l'offre
67,99 €Alimentation semi modulaire Be Quiet Pure Power 11 500W, 80+ Gold à 67,99 €
Valable jusqu'au 25 Avril

Amazon propose actuellement l'alimentation semi modulaire Be Quiet Pure Power 11 d'une puissance de 500W à 67,99 € livrée gratuitement. On trouve habituellement cette alimentation à partir de 75 €. Certifiée 80+ Gold, elle propose d'excellents rendements (jusqu'à 92 %) est silencieuse et dispose d'une garantie 5 ans.


> Voir l'offre
56,94 €Switch Netgear GS316, 16 ports gigabits à 56,94 €
Valable jusqu'au 24 Avril

Amazon propose actuellement le commutateur 16 ports Netgear GS316 à 56,94 € livré gratuitement alors qu'on le trouve ailleurs à partir de 75 €. Le Netgear GS316 bénéficie de 16 connexions Ethernet haut débit commutées à 10/100/1000 Mbps en full-duplex ce qui vous permet de transférer vos fichiers sur votre réseau local à une vitesse maximum sur chaque port. 


> Voir l'offre

Sujets relatifs
Ajouter des lignes dans tableau Works
afficher l'index d'une ligne dans un tableau
Macro pour ajouter une ligne à la fin d'un tableau
Copie ligne d'un tableau dans colonne d'un autre
comment partager une ligne dans un tableau ?
[RESOLU] WORD Sauter une ligne dans tableau
Ajouter une ligne dans Excel
nb de liens dans une plage appartennant à la même ligne Horiz. ou verti...
Gérer N° chèque automatiquement dans Compte et budget
détecter une discontinuité dans un tableau horodaté
Plus de sujets relatifs à ajouter automatiquement une ligne dans tableau
 > Tous les forums > Forum Bureautique