maccro efface

fanfan38

XLDnaute Barbatruc

• 3 Juin 2008

• #2

Re : maccro efface

Bonjour
Joins un fichier car les explications sont...

A+ François

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 3 Juin 2008

• #3

Re : maccro efface

Salut al1000,Fanfan38

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 3 Juin 2008

• #4

Re : maccro efface

Salut al1000,Fanfan38

je joint la remarque de fanfan

essaye plutot ce code associe le a un bouton :

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 3 Juin 2008

• #5

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

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 4 Juin 2008

• #6

Re : maccro efface

Bonjour


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

a+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 4 Juin 2008

• #7

Re : maccro efface

Bonjour


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


a+

 

Pièces jointes

• essai.xls

  17 KB · Affichages: 91
• essai.xls

  17 KB · Affichages: 90
• essai.xls

  17 KB · Affichages: 91

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 4 Juin 2008

• #8

Re : maccro efface

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

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 4 Juin 2008

• #9

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

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 10 Juin 2008

• #10

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 10 Juin 2008

• #11

Re : maccro efface

Bonjour à tous,

Je ne sais si j'ai tout compris

A+

 

Pièces jointes

• Efface A si B différent de vide.zip

  11 KB · Affichages: 32

Dernière édition: 10 Juin 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 10 Juin 2008

• #12

Re : maccro efface

Re,

Je viens de tomber sur ce message

al1000 à dit:

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

Cliquez pour agrandir...

Je dépose un autre fichier

A+

 

Pièces jointes

• Efface A si B egal 1.zip

  11 KB · Affichages: 38

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 10 Juin 2008

• #13

Re : maccro efface

Bonsoir,

Autre solution :

Code:

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 10 Juin 2008

• #14

Re : maccro efface

Bonsoir,

Bonsoir, JC
Bonsoir, Lii


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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 11 Juin 2008

• #15

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 :

Code:

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" ?

 

Vote positif 0 Vote négatif