Autres Effacer plusieurs cellules prédéfinis en utilisant une serie de boutons VBA macros

Staple1600 à dit:

Bonjour le fil, LUYGYS

Il s'agit de commencer son fil de discussion en n'oubliant pas le point 3 de la charte du forum
(section pour tous)


Et pour la résolution de la question, faire les effacements souhaités tout en laissant tourner l'enregistreur de macros serait déjà un début, non ?

Cliquez pour agrandir...

youky(BJ) à dit:

Bonjour Luygys,
Voici un début . . . 2 macros
Créer un nouvel onglet mettre la propriété Codename= Feuil1
Inserer un module et copier ces 2 macros
Pour les boutons faut jouer avec .visible
Bruno

VB:

Sub Efface()
'fait copy avant au cas d'annule
Feuil1.[A9:A1091].Value = Sheet2.[B9:B1091].Value
For k = 9 To 1091
If Cells(k, 2) = 8 Then Cells(k, 2) = ""
End Sub

Sub Remets()
Sheet2.[B9:B1091].Value = Feuil1.[A9:A1091].Value
End Sub

Cliquez pour agrandir...

LUYGYS à dit:

Bonjour !
J'ai essaie le VBA que vous avez fait sur la feuille 2 mais a part une message d erreur " END SUB " rien ne ce passe....il est ou le probléme !

Cordialement.

LUYGYS

Cliquez pour agrandir...

Staple1600 à dit:

Re,

LUYGYS
C'est donc parce qu'il y tellement de cellules, que cela t’empêche de commencer ta discussion par un petit Bonjour
(comme la charte du forum nous invite tous à le faire) ?

Sinon pour ta question, une autre façon de faire

VB:

Public T
Sub Efface()
Dim p As Range
T = Feuil1.[B9:B1091].Value: Set p = Cells(9, Columns.Count).Resize(3 * 361)
p.FormulaR1C1 = "=IF(RC2=8,""$"",0)": p.SpecialCells(-4123, 2).Offset(, -Columns.Count + 2) = ""
Columns(Columns.Count).Clear
End Sub
Sub Remets()
Feuil1.[B9:B1091].Value = T
End Sub

Cliquez pour agrandir...