Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Dans une macro sélection des lignes pour mise en forme

Dans une macro sélection des lignes pour mise en forme

2 réponses
Avatar
Françoise
Bonjour à tous;

je souhaite faire une macro qui mettra en forme les lignes d'une feuille dès
que celle-ci aura dans la cellule A, le mot "ligne" et un chiffre (ligne 1,
ligne 2, etc...)

voici ma macro, pouvez-vous m'aider pour lui dire "ligne 1, ligne 2, etc"
sachant que je ne sais pas à l'avance quelle sera la dernière ligne (ligne 5
ou ligne 250 ?)
-----
Range("A1").Select
Dim Rg As Range
With Worksheets("Plan de montage")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With

Do Until ActiveCell = ""
If ActiveCell = "Ligne" Then
Selection.Interior
Selection.ColorIndex = 15
Selection.Pattern = xlSolid
Selection.Font
Selection.Name = "Arial"
Selection.Size = 12
Selection.Strikethrough = False
Selection.Superscript = False
Selection.Subscript = False
Selection.OutlineFont = False
Selection.Shadow = False
Selection.Underline = xlUnderlineStyleNone
Selection.ColorIndex = xlAutomatic
Selection.Font.Bold = True

Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If

Loop
---
d'avance merci pour vos réponses
Françoise
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Voici une manière de procéder avec la méthode Find :
Sub Francoise()
Dim c As Range
With Worksheets("Plan de montage").Range("a1", Range("a65536").End(xlUp))
Set c = .Find("ligne", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
With c.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
With c.Font
.Name = "Arial"
.Size = 12
.Bold = True
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Cordialement
Pascal

"Françoise" a écrit dans le message de
news:
Bonjour à tous;

je souhaite faire une macro qui mettra en forme les lignes d'une feuille
dès

que celle-ci aura dans la cellule A, le mot "ligne" et un chiffre (ligne
1,

ligne 2, etc...)

voici ma macro, pouvez-vous m'aider pour lui dire "ligne 1, ligne 2, etc"
sachant que je ne sais pas à l'avance quelle sera la dernière ligne (ligne
5

ou ligne 250 ?)
-----
Range("A1").Select
Dim Rg As Range
With Worksheets("Plan de montage")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With

Do Until ActiveCell = ""
If ActiveCell = "Ligne" Then
Selection.Interior
Selection.ColorIndex = 15
Selection.Pattern = xlSolid
Selection.Font
Selection.Name = "Arial"
Selection.Size = 12
Selection.Strikethrough = False
Selection.Superscript = False
Selection.Subscript = False
Selection.OutlineFont = False
Selection.Shadow = False
Selection.Underline = xlUnderlineStyleNone
Selection.ColorIndex = xlAutomatic
Selection.Font.Bold = True

Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If

Loop
---
d'avance merci pour vos réponses
Françoise


Avatar
anonymousA
bonjour,

Peut t-il y avoir derriere le mot ligne autre chose que des chiffres ou pas ?

A+


Bonjour à tous;

je souhaite faire une macro qui mettra en forme les lignes d'une feuille dès
que celle-ci aura dans la cellule A, le mot "ligne" et un chiffre (ligne 1,
ligne 2, etc...)

voici ma macro, pouvez-vous m'aider pour lui dire "ligne 1, ligne 2, etc"
sachant que je ne sais pas à l'avance quelle sera la dernière ligne (ligne 5
ou ligne 250 ?)
-----
Range("A1").Select
Dim Rg As Range
With Worksheets("Plan de montage")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With

Do Until ActiveCell = ""
If ActiveCell = "Ligne" Then
Selection.Interior
Selection.ColorIndex = 15
Selection.Pattern = xlSolid
Selection.Font
Selection.Name = "Arial"
Selection.Size = 12
Selection.Strikethrough = False
Selection.Superscript = False
Selection.Subscript = False
Selection.OutlineFont = False
Selection.Shadow = False
Selection.Underline = xlUnderlineStyleNone
Selection.ColorIndex = xlAutomatic
Selection.Font.Bold = True

Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If

Loop
---
d'avance merci pour vos réponses
Françoise