for each

if c.value="ici" then msgbox c.column

AV

Re ...

Une autre solution ...

Private Sub CommandButton1_Click()
For Each c In Range("A1:G5")
If c.Value = "ici" Then
MsgBox "La cellule contenant la valeur ""ici"" " & Chr(10) & " se trouve
dans la colonne N°" & ActiveCell.Row
End If
Next c
End Sub

Salutations

Dédé
"OR" <c_olivier@free.fr> a écrit dans le message de
news:3f0addab$0$9629$7a628cd7@news.club-internet.fr...

For each c in range("A1:G5")
if c.value="ici" then Comment récuperer la colonne de la cellule c ?
Next

Salut OR,

Tout d'abord un peu de politesse ne fait pas de mal...

Regarde cela, le résultat te donne le numéro de la colonne :

Sub test()
For Each c In Range("A1:G5")
If c.Value = "ici" Then
a = c.Column
Exit For 'sort de la boucle une fois la valeur trouvée
End If
Next
MsgBox a
End Sub

Bon courage,
--
Fripouillot


"OR" <c_olivier@free.fr> a écrit dans le message de
news:3f0addab$0$9629$7a628cd7@news.club-internet.fr...

For each c in range("A1:G5")
if c.value="ici" then Comment récuperer la colonne de la cellule c ?
Next

Bonjour,

La diversité fait notre force :-)

Sub test()

Dim c As Variant
Static Boucle As Integer


For Each c In Range("A1:G5")
If c.Value = "ici" Then
If (Mid$(c.Address, 2, 1) = "C") Then
Boucle = (Boucle + 1)
MsgBox "Colonne C" & " - " & Boucle
End If
End If
Next

End Sub

Michel

-----Message d'origine-----
For each c in range("A1:G5")
if c.value="ici" then Comment récuperer la colonne de la
cellule c ?

Next


.

Salut Dédé,

ActiveCell.Row ???!!!!

Je crois que tu voulais écrire: c.Column

Daniel M.

Private Sub CommandButton1_Click()
For Each c In Range("A1:G5")
If c.Value = "ici" Then
MsgBox "La cellule contenant la valeur ""ici"" " & Chr(10) & " se trouve
dans la colonne N°" & ActiveCell.Row
End If
Next c
End Sub

Une version très scolaire :

Sub IndexColonne()
Dim Récup() As Long
Dim C As Range
Dim i As Long
Dim a As Long
Dim s As Long
Dim t As Long
t = 0
s = 1
For Each C In Range("A1:G5")
If C.Value = "ici" Then 'Comment récuperer la colonne
de la cellule c ?
MsgBox "Mot trouvé :" & vbCr & "Colonne : " &
C.Columns.Column & _
vbCr & "Ligne : " & C.Rows.Row
i = C.Columns.Column
ReDim Preserve Récup(t To s + 1)
Récup(i) = i
s = UBound(Récup)
t = LBound(Récup)
End If
Next C
Stop
For i = 1 To s
If Récup(i) <> 0 Then
MsgBox "Le mot à été trouvé colonne " & Récup
(i)
End If
Next i
End Sub

Salut Daniel !

Ben pour info, je suis pas un AS du VBA et par exemple, cette solution, ben
je l'ai trouvé en faisant des tests et pi elle fonctionne ...

Maintenant, pour trouver l'adresse de la colonne de la cellule active .. ben
j'avais pas trouvé mieux ...

Merci de ta remarque !
Salutations
Dédé

"Daniel.M" <daniel.maher@bigfoot.com> a écrit dans le message de
news:O9zwYiYRDHA.1552@TK2MSFTNGP12.phx.gbl...

Salut Dédé,

ActiveCell.Row ???!!!!

Je crois que tu voulais écrire: c.Column

Daniel M.

Private Sub CommandButton1_Click()
For Each c In Range("A1:G5")
If c.Value = "ici" Then
MsgBox "La cellule contenant la valeur ""ici"" " & Chr(10) & " se trouve
dans la colonne N°" & ActiveCell.Row
End If
Next c
End Sub