Identification de la colonne selctionnée dans macro

[Fab117]

Salut,
Lorsque j'exécute ma macro, je souhaiterais qu'il identifie la colonne de la cellule selectionnée et lui attribue un numéro de variable.

Enfait, pour chaque ligne j'ai une série d'information.
Depuis un autre onglet, je vais chercher des informations que je colle dès la première colonne vide. Après je lui demande de comparer des informations sur la même ligne.

Quelque chose du style :

Dim ColonneInitiale as xxxxx
Set ColonneInitial ....
Range(ColonneInitiale + 3 & 5).Select

Quelqu'un a-t-il uine proposition ?
Merci d'avance.

Fab

 

[Creepy]

Re : Identification de la colonne selctionnée dans macro

Bonjour le Forum, Fab117,

Si j'ai bien compris la demande (pas sûr !) le code ci-dessous fera ce que tu demandes.

Sub Col_Sel()
    Dim Ma_Colonne As Integer
    Ma_Colonne = ActiveCell.Column
    MsgBox Ma_Colonne ' A supprimer juste pour test
End Sub

A+

Creepy

 

[PascalXLD]

Re : Identification de la colonne selctionnée dans macro

Bonjour

Par contre il faut passer par cells et non range

Range(ColonneInitiale + 3 & 5)

qui ne marchera pas

a remplacer par

cells(5, ColonneInitiale + 3)

 

[Fab117]

Re : Identification de la colonne selctionnée dans macro

Merci à tous les 2, ça marche parfaitement.
Encore un petit point :
Si je veux qu'il sélectionne la plage :
ColonneInitiale à ColonneInitiale + 4 et des lignes i à i + 200
Comment puis-je faire ?
J'ai essayé :
Cells(i, ColonneInitiale & ":" & i + 200, ColonneInitiale + 4).Select

Merci.

Fab

 

[Creepy]

Re : Identification de la colonne selctionnée dans macro

RE All,

Là il faut passer par un range (plage en anglais) comme ceci par exemple :

Range(Cells(1, 1), Cells(5, 5)).Select

A+

Creepy

 

[Fab117]

Re : Identification de la colonne selctionnée dans macro

Super,
Encore une fois ça fonctionne parfaitement.
Merci et bonne fin de journée.

Fab