Supprimer des bordures automatiquement pour des centaines de cellules

Bonjour

j'ai une feuille nommée "note de colisage" contenant plusieurs lignes

pour le tirage je veux supprimer les bordures de séparation de 4 cellules marquées en jaune et ce de toutes les cellules similaires

avez vous une idée pour faire ça

ci joint le fichier

merci de votre aide!

bien cordialement

Bonjour,

Je ne vois pas où sont les cellules marquées en jaune, ensuite... 504 feuilles?!

Je pense que les autres membres me rejoindront sur le fait que tu dois supprimer 503 feuilles et trouver plutôt un moyen d'avoir une feuille qui fait tout, si j'ai bien compris, tes feuilles 1 à 504 reprennent simplement des infos de ta base de données, c'est simplement une feuille de mise en forme en soit, tu as juste besoin d'une feuille dans laquelle tu changeras éventuellement les données que tu vas aller chercher à l'aide d'une cellule de sélection.

Parce que là...

Bonjour,

merci de votre réponse

c'est dans une seule feuille nommée "note de colisage" pas les autres

mon besoin et de supprimer les bordures de séparation des quatre cellules en jaunes car elles sont inutiles ce sont des valeurs pour le même carton et toutes les cellules similaires j'ai marqué en jaunes quelques uns

merci encore

Je ne vois toujours pas de cellules en jaune dans ton tableau de 5000 lignes.... suis-je aveugle?

voila le bon fichier

Est-ce que ceci répond correctement à ta demande?

Sub Macro1()
Dim plage As Range
der_lig = Range("b" & Rows.Count).End(xlUp).Row + 1
ncarton = Range("b5")
nblig = 1
lig_dep = 5

For i = 6 To der_lig
    If (Cells(i, 1) <> ncarton And Cells(i, 1) <> "") Or Cells(i, 2) = "" Or i = der_lig Then
        If nblig > 1 Then
            Set plage = Range("a" & lig_dep, "f" & i - 1)
            With plage
                .Borders(xlDiagonalDown).LineStyle = xlNone
                .Borders(xlDiagonalUp).LineStyle = xlNone
            End With

            With plage.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With

            With plage.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With

            With plage.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With

            With plage.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With

            With plage.Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With

            plage.Borders(xlInsideHorizontal).LineStyle = xlNone
            Set plage = Nothing
            nblig = 1
        End If

        If Cells(i, 1) <> "" Then
            lig_dep = i
            ncarton = Cells(i, 1)
        End If
    Else
        nblig = nblig + 1
    End If
Next i

End Sub

J'ai testé chez moi et ça marche, mais je ne sais pas si ça marche comme tu voudrais.

Bonjour,

En quelle année ce classeur a-t'il été crée ?

Il est peut être temps de reprendre tout à zéro !?

Et repenser le nombre de feuilles (pour impression !?)

Cdlt.

Bonjour Ausecour et Jean-Eric

tout d'abord, merci Ausecour votre code fait exactement ce que je veux ,merci!

Jean-Eric,

j'ai aimé faire tout dans une seule feuille mais j'ai pas eu le courage pour refaire tout sinon merci pour votre intervention

bien cordialement

Bonjour,

En quelle année ce classeur a-t'il été crée ?

Il est peut être temps de reprendre tout à zéro !?

Et repenser le nombre de feuilles (pour impression !?)

Cdlt.

Ah ça me rassure, je ne suis pas le seul à penser ça, bonne journée et bonne continuation

Rechercher des sujets similaires à "supprimer bordures automatiquement centaines"