Microsoft 365 VBA : effacer les données dans les feuilles Excel

MarieParis à dit:

Je ne comprends pas pourquoi mon code ne marche pas : je n'arrive pas à effacer les données.

Cliquez pour agrandir...

Roblochon à dit:

Bonjour,

Bonjour,

Je ne vois pas trop pourquoi vous ne travaillez que sur la cellule A1 mais voyez le code suivant et ses commentaire. Le test If n'est pas forcément obligatoire suivant le cas.

VB:

Sub TEST()

    Dim ws As Worksheet 'Objet worksheet


    For Each ws In Worksheets

        'on efface les données précedentes
        With ws
            If .Cells(1, 1).Value <> "" Then
                ' Pour supprimer toutes les données du tableau de A1
                ' Décommenter la ligne ci-dessous
                '.Cells(1, 1).CurrentRegion.ClearContents
                '
                ' valoriser les cellules d'entête par la ligne suivant :
                .Cells(1, 1).Resize(, 2).Value = Application.Transpose(Array("Code", "Libellé"))
                '
                ' Ou par les deux lignes suivantes
                '.Cells(1, 1).Value = "Code"
                '.Cells(1, 2).Value = "Libelle"
            End If
        End With
    Next
End Sub

Il vaut mieux déclarer vos variables objets par le type attendu, vous profiterez ainsi de l'intellisense dès que vous mettrez un point collé après.
Regarde la pièce jointe 1112792

Cordialement

[Edit] Oups ! à la bourre [/Edit]

Cliquez pour agrandir...

dysorthographie à dit:

Bonjour,
Ws représente déjà ton onglet pas besoin de te compliquer la vie avec ws.name!

Code:

For Each ws In Worksheets  'ws représente succécivement les onglets !
'on efface les données précedentes
    If ws.Cells(1, 1).Value <> "" Then
        Ws.cells.ClearContents
    ws.Cells(1, 1).Value = "Code"
    ws.Cells(1, 2).Value = "Libelle"
    End If
Next
End sub

Si tu as 500 onglet, faut pas être épileptique Sheets(ws.Name).Select!

Cliquez pour agrandir...

job75 à dit:

Bonjour à tous,

Pour répondre à la question :

Le problème vient de Selection.ClearContents.

Comme vous n'avez pas modifié la sélection, Selection est la sélection en cours, voire la cellule active.

A+

Cliquez pour agrandir...

MarieParis à dit:

j'obtiens le mot "Code" dans les cellules A1 et B1 avec Array.

Cliquez pour agrandir...

.Cells(1, 1).Resize(, 2).Value = Array("Code", "Libellé")

Cliquez pour agrandir...

Roblochon à dit:

Oui, excusez-moi, c'est une erreur :


Cordialement

Cliquez pour agrandir...

Roblochon à dit:

Oui, excusez-moi, c'est une erreur :


Cordialement

Cliquez pour agrandir...

Roblochon à dit:

Oui, excusez-moi, c'est une erreur :


Cordialement

Cliquez pour agrandir...