je recherche une macro qui me mette des bordures sur les cellules des
colonnes E,F,G mais que si sur la même ligne , la cellule A n'est pas vide:
en résumé , pour chaque ligne ou la cellule A contient une valeur
je veux que les cases E,F,G de la même ligne soient "bordurées"
merci pour votre aide
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
Daniel
Bonsoir. Evite de poster dans un même fil pour un sujet différent. Essaie :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) Plage.Select For Each c In Plage If c <> "" Then c.Offset(0, 4).BorderAround LineStyle:=xlContinuous, Weight:=xlThin c.Offset(0, 5).BorderAround LineStyle:=xlContinuous, Weight:=xlThin c.Offset(0, 6).BorderAround LineStyle:=xlContinuous, Weight:=xlThin End If Next c End Sub
Cordialement. Daniel "Yansec" a écrit dans le message de news: eRHPLU$
Bonsoir
je recherche une macro qui me mette des bordures sur les cellules des colonnes E,F,G mais que si sur la même ligne , la cellule A n'est pas vide: en résumé , pour chaque ligne ou la cellule A contient une valeur je veux que les cases E,F,G de la même ligne soient "bordurées" merci pour votre aide
Bonsoir.
Evite de poster dans un même fil pour un sujet différent.
Essaie :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
Plage.Select
For Each c In Plage
If c <> "" Then
c.Offset(0, 4).BorderAround LineStyle:=xlContinuous, Weight:=xlThin
c.Offset(0, 5).BorderAround LineStyle:=xlContinuous, Weight:=xlThin
c.Offset(0, 6).BorderAround LineStyle:=xlContinuous, Weight:=xlThin
End If
Next c
End Sub
Cordialement.
Daniel
"Yansec" <btrivero@orange.fr> a écrit dans le message de news:
eRHPLU$PHHA.4280@TK2MSFTNGP02.phx.gbl...
Bonsoir
je recherche une macro qui me mette des bordures sur les cellules des
colonnes E,F,G mais que si sur la même ligne , la cellule A n'est pas
vide:
en résumé , pour chaque ligne ou la cellule A contient une valeur
je veux que les cases E,F,G de la même ligne soient "bordurées"
merci pour votre aide
Bonsoir. Evite de poster dans un même fil pour un sujet différent. Essaie :
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) Plage.Select For Each c In Plage If c <> "" Then c.Offset(0, 4).BorderAround LineStyle:=xlContinuous, Weight:=xlThin c.Offset(0, 5).BorderAround LineStyle:=xlContinuous, Weight:=xlThin c.Offset(0, 6).BorderAround LineStyle:=xlContinuous, Weight:=xlThin End If Next c End Sub
Cordialement. Daniel "Yansec" a écrit dans le message de news: eRHPLU$
Bonsoir
je recherche une macro qui me mette des bordures sur les cellules des colonnes E,F,G mais que si sur la même ligne , la cellule A n'est pas vide: en résumé , pour chaque ligne ou la cellule A contient une valeur je veux que les cases E,F,G de la même ligne soient "bordurées" merci pour votre aide
