RAZ automatique

[beetle56]

Bonjour,

Le programme ci-dessous me sert à effacer des lignes dans un tableau quand j'appuis sur un bouton.
Cependant, mon tableau ne s'efface pas avec une seul clique. je suis obligé de cliquer enormement de fois.

Merci pour votre aide et voici le programme.

Dim i As Integer
Sub décochons()
'Macro enregistrée le 23/07/2008 par LE MAITRE Romain

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("b10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("c10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("d10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("e10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("f10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop


End Sub

 

[pierrejean]

Re : RAZ automatique

bonjour beetle56

Ce code me parait assez mal adapté !!

Peux-tu soit expliquer comment est ton tableau soit (mieux) nous poster une copie exemple de ton fichier (sans données confidentielles)

 

[beetle56]

Re : RAZ automatique

Je peux vous envoyer mon fichier par mail car il est trop volumineux pour être uploader sur ce site internet

Voici mon adresse mail si vous ne voulez pas communiquer la votre:
lemaitre.romain@orange.fr

Merci