comparer une cellule à une colonne

Le
Dams63
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pascal
Le #4899381
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"
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
Le #4899371
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
Dams63
Le #4899181
Ecoutez merci bcp à vous deux, les deux solutions marchent impeccablement,
merci bcp pour vos réponses je vais enfin pouvoir avancer.
CAP2
Le #4899161
Merci à toi pour le retour !

Bonne journée

CAP2
Publicité
Poster une réponse
Anonyme