Macro de positionnement

[atlantique444]

Bonjour,

Dans un tableau (x lignes et y colonnes), je souhaite pouvoir activer une macro en cliquant sur un bouton qui m'indique si la cellule active est bien en colonne A ou non.
Pour cela, j'ai écris la macro suivante :

Sub Macro1()
If SelectedColumn = A Then
MsgBox "Colonne A"
Else
MsgBox "Erreur de colonne"
End If
End Sub

Mais cela ne fonctionne pas. Que la cellule active soit en A2 ou en D8 ou peu importe la macro m'indique toujours que je suis bien en colonne A.

Pouvez vous m'aider. l'erreur vient de la ligne suivante
if SelectedColumn = A Then

Merci

 

[Pierrot93]

Re : Macro de positionnement

Bonjour,

modifie peut être ainsi :

Sub Macro1()
If ActiveCell.Column = 1 Then
    MsgBox "Colonne A"
Else
    MsgBox "Erreur de colonne"
End If
End Sub

bon après midi
@+

 

[Robert]

Re : Macro de positionnement

Bonjour Atlantique, bonjour le forum,

Essaie come ça :

Sub Macro1()
If ActiveCell.Column = 1 Then
    MsgBox "Colonne A"
Else
    MsgBox "Erreur de colonne"
End If
End Sub

Edition :

Arf ! Trop rapide Pierrot... Je te salue.