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

LUYGYS

XLDnaute Occasionnel
Il s agit d' effacer les cellules d' un click ou il y a un 8 et aucune autre en utilisant une série de boutons dans l' ordre comme une séquence code !
Un peut DE VBA est bien venu !
Merci d' avance a tous les collaborateurs. ! :)

PS: le 8 est juste pour indiquer quelles sont les cellules a effacer, les donnes dans ces cellules peut être divers et de formats complètement différents !!!!

LUYGYS
 

Pièces jointes

  • RESET COLONNES PRECHOISIES.xlsm
    86.3 KB · Affichages: 6
Dernière édition:

Staple1600

XLDnaute Barbatruc
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)
:rolleyes:

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 ?
 

youky(BJ)

XLDnaute Barbatruc
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
 

LUYGYS

XLDnaute Occasionnel
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)
:rolleyes:

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 ?
Bonjour.
il y a tellement de cellules a effacer et a utiliser une séquence de boutons qui finisse par effacer l 'ensemble de cellules que l' enregistreur de macro ça ne marche pas vraiment !
Il y a pas une autre solution !

Cordialement.

LUYGYS
 
Dernière édition:

LUYGYS

XLDnaute Occasionnel
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
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
 

Staple1600

XLDnaute Barbatruc
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
 

LUYGYS

XLDnaute Occasionnel
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
Bonjour Ce lien n'existe plus ça ne marche pas erreur message 424 objet required !!!!
Il est ou le problemo !!
Cordialement
LUYGYS
 
Haut Bas