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

LUYGYS · 10 Novembre 2019

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

Staple1600 · 10 Novembre 2019

Re

Relire mon précédent message.

LUYGYS · 10 Novembre 2019

Staple1600 à dit:
Re

Relire mon précédent message.

Bonjour activesheet ça marche . par contre il y a une cellule qui le 8 n 'est pas efface b14 et plusieurs fois le macro remet ca ne marche pas
LUYGYS

Staple1600 · 10 Novembre 2019

Re

La macro Remets comme son l'indique sert à remettre les valeurs initiales
(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]

LUYGYS · 10 Novembre 2019

LUYGYS à dit:
Bonjour activesheet ça marche . par contre il y a une cellule qui le 8 n 'est pas efface b14 et plusieurs fois le macro remet ca ne marche pas
LUYGYS

Bonjour j 'ai remplace le dans les 2 macros feuil1 par active sheet mais impossible a n

Staple1600 · 10 Novembre 2019

Re

Ce n'est pas active sheet mais ActiveSheet

LUYGYS · 10 Novembre 2019

Staple1600 à dit:
Re

Ce n'est pas active sheet mais ActiveSheet

Bonjour .
je ai bien saisie activesheet.

youky(BJ) · 10 Novembre 2019

LUYGYS
As tu bien mis le Public T en haut du Module1
Bruno

LUYGYS · 10 Novembre 2019

Bonjour .
la sequence bouton reset couleur bordeaux ensuite bouton confirme et finalment pour effacer reset rouge ce ne marche pas.

Staple1600 · 10 Novembre 2019

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

LUYGYS · 10 Novembre 2019

youky(BJ) à dit:
LUYGYS
As tu bien mis le Public T en haut du Module1
Bruno

Bonjour.
non je vais le mettre

Staple1600 · 10 Novembre 2019

Re

Merci youky(bj) pour ta vigilance

LUYGYS
Heureusement que j'avais écrit...

Staple1600 à dit:
[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

LUYGYS · 10 Novembre 2019

Staple1600 à dit:
Re

Ce n'est pas active sheet mais ActiveSheet

bonjour il y a rien qui marche dans mon pc j ai bien suivi les conseils.

Staple1600 · 10 Novembre 2019

Re

Tu as essayé la macro du message#24?

LUYGYS · 10 Novembre 2019

youky(BJ) à dit:
LUYGYS
As tu bien mis le Public T en haut du Module1
Bruno

bonjour non je n' avais pas mit
mais ça ne marche pas di tout..
Cordialement
LUYGYS

LUYGYS · 10 Novembre 2019

Staple1600 à dit:
Re

Tu as essayé la macro du message#24?

oui j ai essai mais ca ne marche carre ment pas

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

LUYGYS

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

LUYGYS

XLDnaute Occasionnel

Discussions similaires