effacer des colonnes automatiquement

[ghorghorbey1er]

Bonjour,
J'aimerai bien connaitre la macro qui me permettrait en appuyant sur un bouton d'effacer le contenu de mes colonnes 1 et 2 (et non les colonnes) automatiquement.
Merci d'avance pour toutes vos réponses.

 

[Pierrot93]

Re : effacer des colonnes automatiquement

Bonjour,
essaye ceci :

Range("A:B").ClearContents

bon après midi
@+

 

[ghorghorbey1er]

Re : effacer des colonnes automatiquement

Bon ok ça marche merci pour ta réponse. Maintenant un peu plus compliqué lol.
En fait, je dois tout effacer dans la colonne 1 et 2 sauf la première ligne.
Merci d'avance pour toutes réponses.

 

[Pierrot93]

Re : effacer des colonnes automatiquement

Re,

Range("A2:B" & Cells(Rows.Count, 2).End(xlUp).Row).ClearContents

ou :

Range("A2", Cells(Rows.Count, 2).End(xlUp)).ClearContents

 

[ghorghorbey1er]

Re : effacer des colonnes automatiquement

Merci encore pour cette réponse rapide.
Mais je pense qu'il y a un petit problème car l'effacement s'arrête à la ligne 7 après j'ai toujours les données qui restent présentes.

 

[Pierrot93]

Re : effacer des colonnes automatiquement

Re,

la dernière ligne est déterminée par rapport à la colonne B... si veux utiliser la colonne A modifie l'argument "colonne" du "cells"

Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents

 

[ghorghorbey1er]

Re : effacer des colonnes automatiquement

Je suis débutant en VBA mais ça marche pas correctement.

Voilà ma macro liée à mon bouton:
Private Sub CommandButton1_Click()
'Déterminer les différents objets
Dim classeurSource As Workbook
Dim classeurDestination As Workbook
Dim cell_source_1er As Range
Dim cell_source_der As Range
Dim cell_target As Range
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("\\Caracas\V2000\PLAN_PROGRES\DACs_par_processus\z-Admin QA\Requete\T02_DetailAudit Requête.xls", , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'définir les colonnes à copier
Set cell_source_1er = classeurSource.Sheets("T02_DetailAudit_Requête").Range("a2:bb2")
Set cell_source_der = cell_source_1er.End(xlDown)
'définir la feuille excel et la position de copie
Set cell_target = classeurDestination.Sheets("Feuil2").Range("a2")
'copier les données de la "T02_DetailAudit_Requête" du classeur source vers la "Feuil1" du classeur de destination
classeurSource.Sheets("T02_DetailAudit_Requête").Range(cell_source_1er, cell_source_der).Copy classeurDestination.Sheets("Feuil2").Range("a2")
'fermer le classeur source
classeurSource.Close False
End Sub

Explication : comment vous pouvez le voir je vais chercher des infos dans un autre classeur et je les copie sur ma feuille 2.
Comment est ce que je peux faire pour effecer les données déjà présentes lors d'une mise à jour pécédente avant de les mettres à jour de nouveau.

 

[Pierrot93]

Re : effacer des colonnes automatiquement

Re,

bah... vois pas le "ClearContents" dans ce que tu montres... donc forcement pas d'effacement...

 

[ghorghorbey1er]

Re : effacer des colonnes automatiquement

Oui lol je voudrais seulement savoir où je dois le placer pour que cela efface les données déjà existantes avant de les remplacer.
Merci d'avance

 

[ghorghorbey1er]

Re : effacer des colonnes automatiquement

Bon en relisant attentivement mes bêtises j'ai même simplifier le code en supprimant une ligne inutile.

Private Sub CommandButton1_Click()
'Déterminer les différents objets
Dim classeurSource As Workbook
Dim classeurDestination As Workbook
Dim cell_source_1er As Range
Dim cell_source_der As Range
Dim cell_target As Range
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("\\Caracas\V2000\PLAN_PROGRES\DACs_par_processus\z-Admin QA\Requete\T02_DetailAudit Requête.xls", , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'définir les colonnes à copier
Set cell_source_1er = classeurSource.Sheets("T02_DetailAudit_Requête").Range("a2:bb2")
Set cell_source_der = cell_source_1er.End(xlDown)
'copier les données de la "T02_DetailAudit_Requête" du classeur source vers la "Feuil1" du classeur de destination
classeurSource.Sheets("T02_DetailAudit_Requête").Range(cell_source_1er, cell_source_der).Copy classeurDestination.Sheets("Feuil2").Range("a2")
'fermer le classeur source
classeurSource.Close False
End Sub

 

[Pierrot93]

Re : effacer des colonnes automatiquement

Re,

essaye avec ceci, en lieu et place de l'instruction de copie :

With classeurDestination.Sheets("Feuil2")
    .Range("A2", .Cells(Rows.Count, 2).End(xlUp)).ClearContents
    classeurSource.Sheets("T02_DetailAudit_Requête").Range(cell_source_1er, cell_source_der).Copy Destination:=.Range("a2")
End With

 

[ghorghorbey1er]

Re : effacer des colonnes automatiquement

ça fonctionne nikel chrome.
Merci Beaucoup!!!