bonjour à tous,
voilà après avoir trié par ordre alphabétique des noms dans la colonne j
je voudrais pouvoir inserer une ligne après tous les noms qui commence par a puis apres tous ceux qui commence par b ...
mais je ne sais pas faire ????
juste un peu d'aide s'il vous plait
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41 Sub garniture1() ' ' garniture1 Macro ' Macro enregistrée ' ' Touche de raccourci du clavier: Ctrl+z ' 'Positionner le pointeur sur la première cellule vide Range("J3").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select LIGNEFIN = ActiveCell(1, 0).Address() FIN = Range(LIGNEFIN).Row ' Selectionner et Trier par ordre alphabétique LIGNEFIN = ActiveCell.Row Range("B3" & ":J" & LIGNEFIN).Select Selection.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ActiveWindow.SmallScroll Down:=-33 'trouver la fin des a ' Ajouter 1 ligne apres la cellule selectonnee Dim LineRef As Integer Dim DefSelectZone As String LineRef = ActiveCell.Row DefSelectZone = "A" & LineRef & ":D" & LineRef Rows(LineRef + 1).Insert Shift:=xlUp Selection.Rows.AutoFit End Sub
Partager