Savoir si Activecell est bien dans la colonne nommée

Bonjour,

Set champ = Union([respon01], [respon02])
If Not Intersect(champ, ActiveCell) Is Nothing Then
MsgBox "xx"
Else
MsgBox "yy"
End If

JB
http://boisgontierjacques.free.fr/

On 27 mar, 16:58, StDonat <StDo...@discussions.microsoft.com> wrote:

Bonjour

J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01, Col C=Respon02
etc.. ;)
Comment faire, en VBA, pour savoir si activecell est bien dans une colonn e
dont le nom commence par Respon ?
J’ai pensé a activecell.colonne.name mais sans succès…
Merci de votre aide

Bonjour,

Peut être comme ceci ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, _
Union(Range("Respon01"), _
Range("Respon02"))) Is Nothing Then
MsgBox "C'est dedans ;o)"
End If

End Sub


Hervé.


"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news:363351E5-7F9E-4459-AC31-E0A3531B8250@microsoft.com...

Bonjour

J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01,
ColC=Respon02
etc.. ;)
Comment faire, en VBA, pour savoir si activecell est bien dans une colonne
dont le nom commence par Respon ?
J’ai pensé a activecell.colonne.name mais sans succès…
Merci de votre aide

Set champ = [respon01]
For i = 2 To 3
Set champ = Union(champ, Range("respon" & Format(i, "00")))
Next i
If Not Intersect(champ, ActiveCell) Is Nothing Then
MsgBox "xx"
Else
MsgBox "yy"
End If

JB

On 27 mar, 17:10, JB <boisgont...@hotmail.com> wrote:

Bonjour,

  Set champ = Union([respon01], [respon02])
  If Not Intersect(champ, ActiveCell) Is Nothing Then
    MsgBox "xx"
  Else
    MsgBox "yy"
  End If

JBhttp://boisgontierjacques.free.fr/

On 27 mar, 16:58, StDonat <StDo...@discussions.microsoft.com> wrote:



> Bonjour

> J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01, C olC=Respon02
> etc.. ;)
> Comment faire, en VBA, pour savoir si activecell est bien dans une colo nne
> dont le nom commence par Respon ?
> J’ai pensé a activecell.colonne.name mais sans succès…
> Merci de votre aide- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de news:
363351E5-7F9E-4459-AC31-E0A3531B8250@microsoft.com...

Comment faire, en VBA, pour savoir si activecell est bien dans une colonne
dont le nom commence par Respon ?

Si c'est toute la colonne qui est nommée et que les noms de champ (ce qui est la
règle) sont en ligne 1, un simple test logique :

MsgBox Left(Cells(1, ActiveCell.Column).Value, 6) = "Respon"

Etc

bonjour,

For Each n In Names
If ActiveCell.Column = Range(n).Column And Left(n.Name, 6) = "Respon"
Then MsgBox n.Name
Next

isabelle

Le 2010-03-27 11:58, StDonat a écrit :

Bonjour

J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01, ColC=Respon02
etc.. ;)
Comment faire, en VBA, pour savoir si activecell est bien dans une colonne
dont le nom commence par Respon ?
J’ai pensé a activecell.colonne.name mais sans succès…
Merci de votre aide

bonjour,

x = Range(Columns(Selection.Column).Address).Name.Name
If Left(x, 6) = "Respon" Then MsgBox x

isabelle

Le 2010-03-27 11:58, StDonat a écrit :

Bonjour

J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01, ColC=Respon02
etc.. ;)
Comment faire, en VBA, pour savoir si activecell est bien dans une colonne
dont le nom commence par Respon ?
J’ai pensé a activecell.colonne.name mais sans succès…
Merci de votre aide

Merci à Tous pour toutes les solutions qui fonctionnent mais c'est la
solution d'Isabelle qui me convient le mieux

"isabelle" wrote:

bonjour,

x = Range(Columns(Selection.Column).Address).Name.Name
If Left(x, 6) = "Respon" Then MsgBox x

isabelle

Le 2010-03-27 11:58, StDonat a écrit :
> Bonjour
>
> J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01, ColC=Respon02
> etc.. ;)
> Comment faire, en VBA, pour savoir si activecell est bien dans une colonne
> dont le nom commence par Respon ?
> J’ai pensé a activecell.colonne.name mais sans succès…
> Merci de votre aide
>
>
.

yes ! à moi toutes les cacahouètes ;-)
isabelle

Le 2010-03-27 14:36, StDonat a écrit :

Merci à Tous pour toutes les solutions qui fonctionnent mais c'est la
solution d'Isabelle qui me convient le mieux

"isabelle" wrote:

bonjour,

x = Range(Columns(Selection.Column).Address).Name.Name
If Left(x, 6) = "Respon" Then MsgBox x

isabelle

Le 2010-03-27 11:58, StDonat a écrit :

Bonjour

J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01, ColC=Respon02
etc.. ;)
Comment faire, en VBA, pour savoir si activecell est bien dans une colonne
dont le nom commence par Respon ?
J’ai pensé a activecell.colonne.name mais sans succès…
Merci de votre aide

.

ba....mais non je savez bien que je partage toujours, allez bar open à
la IV65536 ;-)
isabelle

Le 2010-03-27 14:46, isabelle a écrit :

yes ! à moi toutes les cacahouètes ;-)
isabelle

Le 2010-03-27 14:36, StDonat a écrit :

Merci à Tous pour toutes les solutions qui fonctionnent mais c'est la
solution d'Isabelle qui me convient le mieux

"isabelle" wrote:

bonjour,

x = Range(Columns(Selection.Column).Address).Name.Name
If Left(x, 6) = "Respon" Then MsgBox x

isabelle

Le 2010-03-27 11:58, StDonat a écrit :

Bonjour

J’ai nommé plusieurs colonnes ( ColA=Respon01, ColB=Interv01,
ColC=Respon02
etc.. ;)
Comment faire, en VBA, pour savoir si activecell est bien dans une
colonne
dont le nom commence par Respon ?
J’ai pensé a activecell.colonne.name mais sans succès…
Merci de votre aide

.