extraire l'adresse d'une colonne

mmaatthh · 12 Octobre 2008

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 · 12 Octobre 2008

Re : extraire l'adresse d'une colonne

Bonsoir

Essaie ceci:

Code:

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 · 12 Octobre 2008

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 · 12 Octobre 2008

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

extraire l'adresse d'une colonne

mmaatthh

Guest

Staple1600

XLDnaute Barbatruc

mmaatthh

Guest

mmaatthh

Guest

Discussions similaires

extraire l'adresse d'une colonne

mmaatthh

Guest

Staple1600

XLDnaute Barbatruc

mmaatthh

Guest

mmaatthh

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency