maccro efface

[al1000]

Bonjour,

j'ai dans la colonne "A" des noms et dans la colonne "B" soit 0 ou 1 en fonction du résultat de la formule.


Je recherche une macro quand je la lance par un bouton:

======== elle efface les noms dans la colonne "A"

Merci de votre aide

A+

 

[fanfan38]

Re : maccro efface

Bonjour
Joins un fichier car les explications sont...

A+ François

 

[BERRACHED said]

Re : maccro efface

Salut al1000,Fanfan38

 

[BERRACHED said]

Re : maccro efface

Salut al1000,Fanfan38

je joint la remarque de fanfan

essaye plutot ce code associe le a un bouton :

Sub Effacer()
    Columns("A:A").Select
    Selection.ClearContents
End Sub

Cordialement

 

[cibleo]

Re : maccro efface

Bonjour al1000,

Dans le post que je viens d'envoyer "Macro à modifier : insertion image", le fichier joint contient 2 macros nommées "Effacer" et Effacer tout".

Si çà peut t'aider, à adapter.

Cibleo

 

[al1000]

Re : maccro efface

Bonjour


je ne trouve pas le post de cibleo "Macro à modifier : insertion image",?

a+

 

[al1000]

Re : maccro efface

Bonjour


voici un fichier a chaque 1 dans la colonne B je veux effacer le nom dans le colonne A


a+

 

[fanfan38]

Re : maccro efface

Bonjour
Je te conseille de les masquer plutôt que de les effacer....
A+ François

 

[cibleo]

Re : maccro efface

Bonsoir al1000,

Dans le module 2, tu trouveras ces 2 macros.
La macro "Effacer" est affectée à un bouton, l'autre non.

Ci-joint le lien.
https://www.excel-downloads.com/threads/code-a-modifier-insertion-image.97929/

Bonne soirée, Cibleo

 

[al1000]

Re : maccro efface

bonjour,

fanfan

je voudrai que la macro efface juste le nom dans la colonne a

pas de ligne supprimée ou de lignes masquée)

a+

 

[JCGL]

Re : maccro efface

Bonjour à tous,

Je ne sais si j'ai tout compris

A+

 

[JCGL]

Re : maccro efface

Re,

Je viens de tomber sur ce message

Bonjour
voici un fichier a chaque 1 dans la colonne B je veux effacer le nom dans le colonne A
a+

Je dépose un autre fichier

A+

 

[Lii]

Re : maccro efface

Bonsoir,

Autre solution :

Private Sub CommandButton1_Click()
Dim Cellule As Range
  For Each Cellule In Range("B2:B" & Range(("B65536")).End(xlUp).Row)
    If Cellule = 1 Then Cellule.Offset(0, -1) = ""
  Next
End Sub

 

[Cousinhub]

Re : maccro efface

Bonsoir,

Bonsoir, JC 🙂
Bonsoir, Lii


Lii, peux-tu m'expliquer la différence entre ton code et celui de JCGL????😕

 

[Lii]

Re : maccro efface

Bonjour,

bhbh, tu parles du fond ou de la forme ?
Pour le premier, il est normal que ce soit le même, on répond à la même interprétation.
Pour la deuxième, je ne sais pas comment interpréter ta question ?
Est-il condamnable de présenter les choses de manière différente ?
Ceci dit, dans le :

Option Explicit
Dim i As Integer
Dim cel As Range

Sub Del()
Application.ScreenUpdating = False

  For i = 4 To Range("A65536").End(xlUp).Row
    If Cells(i, 2) = 1 Then Cells(i, 1).ClearContents
Next
End Sub

peux-tu m'expliquer l'intérêt de "Dim cel as Range" ?