> 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


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