Bonjour si quelqu'un pouvait me dire comment effectuer cette manip ça
m'enleverai une sacré épine des doigts:
Je voudrai comparer le contenu d'une cellule (A) au contenu d'une colonne de
18 cellules, et si la cellule (A) correspond à une cellule de la colonne,
l'effacer de la colonne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal
Bonjour Une petite macro Sub Efface() For Each Cell In Range("B1:B18") If Cell.Value = Range("a1") Then Cell.Value = "" End If Next End Sub "Dams63" a écrit dans le message de news:
Bonjour si quelqu'un pouvait me dire comment effectuer cette manip ça m'enleverai une sacré épine des doigts:
Je voudrai comparer le contenu d'une cellule (A) au contenu d'une colonne de 18 cellules, et si la cellule (A) correspond à une cellule de la colonne, l'effacer de la colonne.
Merci j'espère que c'est assez clair
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000756-0, 12/07/2007 Analyse le : 13/07/2007 07:41:50 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000756-0, 12/07/2007 Analyse le : 13/07/2007 08:38:27 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour
Une petite macro
Sub Efface()
For Each Cell In Range("B1:B18")
If Cell.Value = Range("a1") Then
Cell.Value = ""
End If
Next
End Sub
"Dams63" <damienvo@free.fr> a écrit dans le message de news:
OY9k9VNxHHA.3400@TK2MSFTNGP03.phx.gbl...
Bonjour si quelqu'un pouvait me dire comment effectuer cette manip ça
m'enleverai une sacré épine des doigts:
Je voudrai comparer le contenu d'une cellule (A) au contenu d'une colonne
de 18 cellules, et si la cellule (A) correspond à une cellule de la
colonne, l'effacer de la colonne.
Merci j'espère que c'est assez clair
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000756-0, 12/07/2007
Analyse le : 13/07/2007 07:41:50
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000756-0, 12/07/2007
Analyse le : 13/07/2007 08:38:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour Une petite macro Sub Efface() For Each Cell In Range("B1:B18") If Cell.Value = Range("a1") Then Cell.Value = "" End If Next End Sub "Dams63" a écrit dans le message de news:
Bonjour si quelqu'un pouvait me dire comment effectuer cette manip ça m'enleverai une sacré épine des doigts:
Je voudrai comparer le contenu d'une cellule (A) au contenu d'une colonne de 18 cellules, et si la cellule (A) correspond à une cellule de la colonne, l'effacer de la colonne.
Merci j'espère que c'est assez clair
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000756-0, 12/07/2007 Analyse le : 13/07/2007 07:41:50 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000756-0, 12/07/2007 Analyse le : 13/07/2007 08:38:27 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
CAP2
Salut,
une petite macro (tu devras sélectionner ta colonne avant de lancer la macro) en partant du principe que la valeur cherchée est en A1 :
Sub toto() Dim cell As Range
For Each cell In Selection If cell = [A1] Then cell.ClearContents End If Next
End Sub
Ca marche ?
CAP2
Salut,
une petite macro (tu devras sélectionner ta colonne avant de lancer la
macro) en partant du principe que la valeur cherchée est en A1 :
Sub toto()
Dim cell As Range
For Each cell In Selection
If cell = [A1] Then
cell.ClearContents
End If
Next