Ventiler des données

[archi]

Bsr,

J'aimerai ventiler des données (trier par dates) par macro ou formule, sur des bases de données différentes (une BD par feuille et par joueur)
mais je ne sais pas comment faire

voir mon exemple ci joint

Merci d'avance [file name=BaseDonnees_20050616205016.zip size=4462]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/BaseDonnees_20050616205016.zip[/file]

Message édité par: archi, à: 16/06/2005 21:26

 

[archi]

oops !!

Message édité par: archi, à: 16/06/2005 21:25

 

[Rénato]

Salut ARCHI

Je te propose cette petite macro, que j'ai reliée au bouton 'ajouter'.
Les données sont collées dans la feuille du compétiteur concerné puis triées par date.
La plage de saisie est blanchie.

A bientôt [file name=archi.zip size=12249]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/archi.zip[/file]

Message édité par: Rénato, à: 16/06/2005 22:15

 

[Bebere]

bonjour à tous

à mettre ds un module:

Sub TransfertDonnees()
Dim Nom As String
Dim L As Integer, NbreL As Integer, S As Integer

Sheets('Saisie').Activate
'compte lignes non vides
NbreL = Application.Count(Range('B5:B8'))
'extrait nom
Nom = Left(Range('C2').Value, InStr(1, Range('C2').Value, ' ', 1) - 1)

For S = 1 To Sheets.Count
If Sheets(S).Name = Nom Then
Sheets(S).Activate
End If
Next
L = ActiveSheet.Range('A65535').End(xlUp).Row
ActiveSheet.Range('A' & L + 1 & ':H' & L + NbreL) = Sheets('Saisie').Range('B5:I7').Value

End Sub

attention avec nom MARTIN et sheet Martin
ou MARTIN->MARTIN ou Martin->Martin

au revoir
au revoir
à bientôt
à bientôt à tous

 

[archi]

Merci pour tous les gars, (trop fort)

toutefois Bebere, ta macro serait presque parfaite, si elle pouvait:

1- trier les données par dates
2- ventiler le format des cellules

merci d'avance

 

[Bebere]

bonjour

suit procédure améliorée
ajouté mfc victoire défaite en H

Sub TransfertDonnees()
Dim Nom As String
Dim L As Integer, NbreL As Integer, S As Integer, Ldebut As Integer

Ldebut = 4
Sheets('Saisie').Activate
'compte lignes non vides
NbreL = Application.Count(Range('B5:B8'))
'extrait nom
Nom = Left(Range('C2').Value, InStr(1, Range('C2').Value, ' ', 1) - 1)

For S = 1 To Sheets.Count
If Sheets(S).Name = Application.Proper(Nom) Then
Sheets(S).Activate
End If
Next
L = ActiveSheet.Range('A65535').End(xlUp).Row
ActiveSheet.Range('A' & L & ':H' & (L + NbreL) - 1).Offset(1, 0) = Sheets('Saisie').Range('B5:I' & Ldebut + NbreL).Value
Range('A3').Select
Selection.Sort Key1:=Range('A4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('A4:H' & Ldebut + NbreL - 1).Select
Selection.Copy
Range('A' & L).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Rows(L + 1 & ':' & L + NbreL).Select
Selection.RowHeight = 23.25
Range('A1').Select

End Sub

au revoir

 

[archi]

merci

@+

Message édité par: archi, à: 18/06/2005 12:32

 

[Bebere]

bonjour

en pièce jointe dernière version

à bientôt [file name=TransfertDer.zip size=18410]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TransfertDer.zip[/file]

 

[archi]

merci pour tous bebere