Macro : si cellule vide, sélectionner cette cellule

Résolu/Fermé

Clotsy - Modifié par Clotsy le 1/12/2015 à 12:33
Clotsy - 1 déc. 2015 à 13:34

Bonjour Sieurs et Dames de l'internet,

Je me tourne vers vous car je sens que mes compétences et ma patience ont atteint leurs limites respectives.
Mon problème est le suivant : je souhaiterais avoir une macro qui me détecte les cellules non vides. Une fois ces cellules détectées, je veux les sélectionner et leur appliquer une mise en forme particulière, c'est à dire encadrer la cellule avec des traits double. Dans la macro ci dessous, j'ai voulu en premier sélectionner les cellules non vides puis appliquer le format à cette sélection. Je ne suis pas sur d'avoir fait le bon choix, étant donné que ma macro ne marche pas !
Si vous voyez une solution, une piste, je suis preneur ! Car je tourne en rond depuis un petit moment !

Un grand merci à vous,
Clotsy

Dim cellule As Range
For Each cellule In Range("A5:J700")
   If cellule <> "" Then Select.(cellule <> "")
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    With Selection.Borders(xlEdgeTop).LineStyle = xlNone
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlDouble
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    End With
    End With
    End With
    Next
End Sub

A voir également:

Macro : si cellule vide, sélectionner cette cellule
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
1 déc. 2015 à 12:47

Bonjour,

Essaie comme cela

Sub Test()
Dim cellule As Range
    Application.ScreenUpdating = False
    For Each cellule In Range("A5:J700")
        If cellule <> "" Then
            With cellule
                .Borders(xlDiagonalDown).LineStyle = xlNone
                .Borders(xlDiagonalUp).LineStyle = xlNone
                With .Borders(xlEdgeLeft)
                    .LineStyle = xlDouble
                    .Weight = xlThick
                    .ColorIndex = xlAutomatic
                End With
                With .Borders(xlEdgeTop)
                    .LineStyle = xlDouble
                    .Weight = xlThick
                    .ColorIndex = xlAutomatic
                End With
                With .Borders(xlEdgeBottom)
                    .LineStyle = xlDouble
                    .Weight = xlThick
                    .ColorIndex = xlAutomatic
                End With
                With .Borders(xlEdgeRight)
                    .LineStyle = xlDouble
                    .Weight = xlThick
                    .ColorIndex = xlAutomatic
                End With
            End With
        End If
    Next
End Sub

A+

Clotsy
1 déc. 2015 à 13:34

Tout simplement parfait ! Bravo et merci :)

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters