Discussion :

[pepesese]

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

[Abed_H]

Bonjour
ce code insert une ligne vide à chaque changement du premier caractère des cellules de la colonne J

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Insertlg()
derLi = Range("J65536").End(xlUp).Row
Ct = Left(Range("J" & derLi).Value, 1)
    For i = derLi To 1 Step -1
        If Left(Range("J" & i).Value, 1) <> Ct Then
           Range("J" & i).Offset(1, 0).EntireRow.Insert
         Ct = Left(Range("J" & i).Value, 1)
       End If
    Next i
End Sub

Amicalement Abed_H