extraire l'adresse d'une colonne

[mmaatthh]

bonjour
Dans une sélection du genre A1;D10, j'ai dans chaque cellule un nom. Il y a aucun doublon de nom dans les colonnes. Je tente de faire une macro qui parcourait chaque cellule de la sélection et qui ajouterai le nom "Marie" si il y a aucune marie dans la colonne.
Merci Mathieu
je tente plusieurs piste depuis quelques minutes et je tourne en rond.

 

[Staple1600]

Re : extraire l'adresse d'une colonne

Bonsoir



Essaie ceci:

Sub La_Marie()
Set rng = Selection
x = Application.WorksheetFunction.CountIf(rng, "Marie")
If x = 0 Then Cells(rng.Rows.Count + 1, rng.Column) = "Marie"
End Sub

 

[mmaatthh]

Re : extraire l'adresse d'une colonne

Merci staple1600
Grâce à ton code j'ai abouti à ceci
Merci

Sub La_Marie()
Dim acell As Object
Range(Selection.Address).Select
For Each acell In Selection
Set rng = Range(Cells(1, acell.Column), Cells(10, acell.Column))
x = Application.WorksheetFunction.CountIf(rng, "Marie")
If x = 0 Then acell = "Marie"
Next
End Sub

 

[mmaatthh]

Re : extraire l'adresse d'une colonne

petite modification
Sub La_Marie()
Dim acell As Object
Range(Selection.Address).Select
For Each acell In Selection
Set rng = Range(Cells(1, acell.Column), Cells(10, acell.Column))
x = Application.WorksheetFunction.CountIf(rng, "Marie")
If acell = "" and x = 0 Then acell = "Marie"
Next
End Sub