Vider cellules et refaire quadrillage

[papapaul]

🙂 Bonjour Forum, tout le monde
En fonction des données de la colonne A.
Si par exemple A2 est exactement pareil que A3,
ou encore A4 et pareil que A5,A6,A7
je voudrais supprimer le contenu des cellules
A3 à D3, ou A5 à D7
mais conserver intactes A2 à D2 ou A4 à D4
et le contenu des autres colonnes et cellules de F à X
et surtout pour faciliter la lecture
refaire le quadrillage de toutes les plages
comme dans mon exemple joint.😕
Faire tout ca avec une seule macro
C'est compliqué pour moi.🙁
Merci d'avance à ceux qui pourront me donner des exemples.
Bonne journée à tous 🙄

 

[skoobi]

Re : Vider cellules et refaire quadrillage

Bonjour papapaul, le forum,

test ceci:

Sub essai()
Dim liste As New Collection

For nbre = 1 To Range(Range("a2"), Range("a2").End(xlDown)).Count
    On Error Resume Next
    liste.Add Cells(nbre + 1, 1), CStr(Cells(nbre + 1, 1))
        If Err.Number <> 0 Then
            Range(Cells(nbre + 1, 1), Cells(nbre + 1, 4)).Value = ""
            Range(Cells(nbre + 1, 1), Cells(nbre + 1, 4)).Borders(xlEdgeTop).LineStyle = xlNone
        End If
Next
On Error GoTo 0
For v = 1 To liste.Count
    liste.Remove 1
Next
End Sub

bonne après-midi

 

[Catrice]

Re : Vider cellules et refaire quadrillage

Bonjour,

Ci-joint une version sans macro utilisant les MFC Mise en Forme Conditionnelle dans la Feuil1

Et une version utilisant les macros dans la Feuil2

Sub Test()
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(i, 1).Resize(1, 4).ClearContents
Cells(i, 1).Resize(1, 4).Borders(xlEdgeTop).LineStyle = xlNone
End If
Next
End Sub

 

[papapaul]

Re : Vider cellules et refaire quadrillage

🙂 Skoobi, Catrice, vous êtes formidables

Je viens de tester vite fait et je pense
que les 2 solutions marchent.
En quelques lignes seulement mon problème
semble résolu alors que j'étais parti dans des trucs
hyper compliqués.
VBA vu comme ca, c'est magique.😀

Dix milles mercis à vous 2 et au forum en général. 😉