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: 9
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

La macro Remets comme son l'indique sert à remettre les valeurs initiales :rolleyes:
(J'ai suivi l'exemple fourni par Youki(bj)
[C'est un vœu pieux, pas une critique - donc inutile de s'énerver]
Ce serait chouette d'être un peu attentif et ne de pas "bêtement" lancer la macro sans chercher à comprendre ce qu'elle fait...
[/C'est un vœu pieux, pas une critique - donc inutile de s'énerver]
 

Staple1600

XLDnaute Barbatruc
Re

Je viens de retester
(toujours pas de problème sur mon PC)
VB:
Sub Efface_II()
Dim p As Range
With ActiveSheet
  T = .[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 With
End Sub
 

Staple1600

XLDnaute Barbatruc
Re

Merci youky(bj) pour ta vigilance ;)

LUYGYS
Heureusement que j'avais écrit...
[C'est un vœu pieux, pas une critique - donc inutile de s'énerver]
Ce serait chouette d'être un peu attentif et ne de pas "bêtement" lancer la macro sans chercher à comprendre ce qu'elle fait...
[/C'est un vœu pieux, pas une critique - donc inutile de s'énerver]

PS: Relire mon précédent message, où j'ai reposté la macro avec ActiveSheet
 

Discussions similaires

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal