Discussion :

[Bob2323]

* Bonjour *

débutant en VBA, j'ai besoin d'un code qui me permette sur une colonne, d'inserer une ligne, au dessus de chaque cellule contenant des caractères gras.

Merci d'avance de votre aide

j'ai proposé le code suivant, mais quand j'ai 2 cellules (avec caractères en gras) sur 5 par exemple qui sont les unes en dessous des autres, tout se décale d'un coup, c'est à dire les 5 en même temps:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub inserersigras()
 
Dim vcellule As Object
 
For Each vcellule In Selection
If vcellule.Font.Bold = True Then
    Selection.EntireRow.Insert
    End If
    Next
 
 
End Sub

Merci de votre aide

[Theze]

Bonjour,

Essai comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub inserersigras()
 
    Dim vcellule As Range
 
    For Each vcellule In Selection
        If vcellule.Font.Bold = True Then
            vcellule.EntireRow.Insert
        End If
    Next vcellule
 
End Sub

Hervé.

[Bob2323]

Désolé, mais çà fait bugger mon ordi: çà marche pas...

[Theze]

Re,

Désolé, je n'avais pas testé. En fait, il faut remonter la plage :

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
 
Sub inserersigras()
 
    Dim I As Integer
 
    'une seule colonne sélectionnée dans la plage
    If Selection.Columns.Count > 1 Then Exit Sub
 
    'remonte la plage en partant du bas
    'et insère les lignes
    For I = Selection.Rows.Count To 1 Step -1
 
        If Selection(I).Font.Bold = True Then
 
            Selection(I).EntireRow.Insert
 
        End If
 
    Next I
 
End Sub

Hervé.