JeromeR63
XLDnaute Nouveau
Bonjour,
Je souhaite faire en VBA, une recherche dans la colonne M (que j'ai actuellement limité à 30lignes pour le test) pour trouver toutes les cellules dans lesquels je retrouve le mot "CHAPITRE", et ensuite réalisé ces actions :
- Insérer deux lignes après
- mettre la ligne (avec le mot CHAPITRE) en gras et centré à droite
- Insérer une ligne avant
Le problème c'est que je n'arrive pas à faire une recherche avec uniquement le mot CHAPITRE. (En sachant que dans les cellules à trouver il y a de mentionné "MONTANT CHAPITRE x" , x correspond à un nombre différent à chaque fois).
Merci d'avance pour votre aide
Bonne journée
Jérôme
Voici ce que j'ai fait pour l'instant :
Sub Inserer()
Dim chapitre As Integer
Dim i As Integer
chapitre = ActiveCell.Row
For i = chapitre To 1 Step -1
If Range("M", i) = "CHAPITRE" Then
Rows(i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(i).Select
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlRight
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next i
End Sub
Je souhaite faire en VBA, une recherche dans la colonne M (que j'ai actuellement limité à 30lignes pour le test) pour trouver toutes les cellules dans lesquels je retrouve le mot "CHAPITRE", et ensuite réalisé ces actions :
- Insérer deux lignes après
- mettre la ligne (avec le mot CHAPITRE) en gras et centré à droite
- Insérer une ligne avant
Le problème c'est que je n'arrive pas à faire une recherche avec uniquement le mot CHAPITRE. (En sachant que dans les cellules à trouver il y a de mentionné "MONTANT CHAPITRE x" , x correspond à un nombre différent à chaque fois).
Merci d'avance pour votre aide
Bonne journée
Jérôme
Voici ce que j'ai fait pour l'instant :
Sub Inserer()
Dim chapitre As Integer
Dim i As Integer
chapitre = ActiveCell.Row
For i = chapitre To 1 Step -1
If Range("M", i) = "CHAPITRE" Then
Rows(i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(i).Select
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlRight
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next i
End Sub