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

[VBA_dev_Anne_Marie]

Bonjour,

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

Sub TEST()

Dim ws As Object


For Each ws In Worksheets
  
'on efface les données précedentes
    If Sheets(ws.Name).Cells(1, 1).Value <> "" Then
        Sheets(ws.Name).Select
        Selection.ClearContents
    Sheets(ws.Name).Cells(1, 1).Value = "Code"
    Sheets(ws.Name).Cells(1, 2).Value = "Libelle"
    End If
 
Next
End Sub

Merci pour votre aide.

 

[Wayki]

Salut,
Parce qu'excel ne sait pas ce qu'est ws.
Tu lui dis juste que ça correspond à un objet.
Tu dois dire set ws = quelque chose
Un fichier serait la bienvenue.
A +

 

[dysorthographie]

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

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!

 

[Hasco]

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.

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.

Cordialement

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

 

[job75]

Bonjour à tous,

Pour répondre à la question :

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

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+

 

[VBA_dev_Anne_Marie]

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.

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]

Merci beaucoup Roblochon, la suppression marche très bien, mais j'obtiens le mot "Code" dans les cellules A1 et B1 avec Array.

 

[VBA_dev_Anne_Marie]

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

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!

Merci beaucoup !

 

[VBA_dev_Anne_Marie]

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+

Merci beaucoup !

 

[Hasco]

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

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

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

Cordialement

 

[dysorthographie]

on peut également!

.range("A1:B1").Value =Array("Code", "Libellé")

 

[VBA_dev_Anne_Marie]

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


Cordialement

Merci beaucoup !

 

[VBA_dev_Anne_Marie]

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


Cordialement

Merci beaucoup

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


Cordialement

Merci beaucoup !