Rentrer noms prénoms date de naissance
Bonjour,
Je voudrais rentrer les noms prénoms et date de naissance en ligne et non pas en colonne c'est à dire que les noms seront sur la ligne 4, les prénoms sur la ligne 5, les date de naissance sur la ligne 6. J'ai fait ceci mais je ne sais pas sur quelle variable jouer pour inverser:
Sub trier()
Range("A2").Select
Application.DisplayAlerts = False
ActiveSheet.ShowDataForm
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets("cycle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("cycle1").Sort.SortFields.Add Key:=Range( _
"A2:A40"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("cycle1").Sort
.SetRange Range("A2:C40")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Merci par avance
Je voudrais rentrer les noms prénoms et date de naissance en ligne et non pas en colonne c'est à dire que les noms seront sur la ligne 4, les prénoms sur la ligne 5, les date de naissance sur la ligne 6. J'ai fait ceci mais je ne sais pas sur quelle variable jouer pour inverser:
Sub trier()
Range("A2").Select
Application.DisplayAlerts = False
ActiveSheet.ShowDataForm
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets("cycle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("cycle1").Sort.SortFields.Add Key:=Range( _
"A2:A40"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("cycle1").Sort
.SetRange Range("A2:C40")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Merci par avance
2 réponses
-
Coucou,
Pour pouvoir t'aider, comment est constitué à la base ton tableau??
De plus, le code que tu as mis ne sert juste qu'à trier...
à la base en quelle colonne et/ou quelles lignes sont les noms, prénoms et dates de naissance?-
le 1er nom tapé sera en "A2" 1er prénom en "A3" et la date de naissance en "A4". J'ai changé a cause d'autres cases que je prévoie pour d'autres fonctions. Les autres noms suivront ensuite en "B2", "C2",... les autres prénoms en "B3", "C3",.... et les autres dates de naissance en "B4","C4",...Ce que j'ai fait en fait, fait ressortir une sorte de useform qui me permet de rentrer ma base de données "nom" "prénom""date de naissance"...
-
-
Bonjour
Si ton tableau est déjà fait en colonnes pas besoin de macro pour l'inverser en lignes
tu selectionnes tout ton ton tableau puis copie puis collage spécial et tu coches transposer
Cdlmnt
