Supprimer valeur dans tableau sauf si une colonne est vide

Le 09/03/2012 à 10:00

Bonjour,

J'aimerais supprimer les valeurs de la colonne F (sauf le Total ) sauf si la colonne C est vide.

car pour les lignes blanches, le chiffre A est calculé automatiquement en fonction du 2ème tableau...

J'aimerais créer un bouton sous "Mis-à-jour" nommé "Tout supprimer" qui supprime toute les valeurs sans supprimer

les formules des lignes blanches

Merci d'avance

15test.xlsm (30.67 Ko)

Le 09/03/2012 à 13:05

Bonjour

Essaie avec ce code :

Sub test()
'Macro Dan le 09/03/12
Dim i As Byte
Application.ScreenUpdating = False
i = 6
Do While UCase(Range("E" & i)) <> "TOTAL CA"
    With Range("F" & i)
        If Not .HasFormula Then .ClearContents
    End With
    i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

Macro à associer à un bouton

Attention que total CA doit se trouver non fusionné et dans la cellule E47 !!!

D'une manière générale évite toujours les ceelules fusionnées

Amicalement

Edit Dan :

au fait si ta colonne A ne comporte pas de données dans le deuxième tableau du bas, tu peux prendre plutôt ce code ci qui est plus rapide. On évite la boucle Do

Sub test()
'MAcro Dan
Dim plage As Range
On error resume next
Set plage = Range("F6:F" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23)
If Not plage Is Nothing Then plage.ClearContents
End Sub

Amicalement

Le 09/03/2012 à 13:21

Bonjour

A tester

22david1986-suppression-donnees-v001.xlsm (31.01 Ko)

Le 09/03/2012 à 16:11

Merci pour vos réponses...

Dan, quand j’exécute le macro de ta formule 1, j'ai ce message :

"Erreur d’exécution "6"

Dépassement de capacité

Si je fais "Fin", ca efface bien ma colonne F comme il faut

D’où peut venir cette erreur? si ça marche ça doit pas être méchant..