VBA- trouver la colonne d'un item dans une plage de cellule

Hervé

XLDnaute Barbatruc

• 20 Mai 2014

• #16

Re : VBA- trouver la colonne d'un item dans une plage de cellule

re, salut mj 🙂

merci à tous, c'est quand même pas croyable qu'on ne puisse pas récup le numéro de colonne sans passer par un calcul.

je m’étais jamais aperçu de ceci

a plus pour de nouvelles questions de débutants🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mai 2014

• #17

Re : VBA- trouver la colonne d'un item dans une plage de cellule

Bonsoir à tous

Pareil mais écrit pas pareil 😉

Code:

Sub a()
Dim plg As Range
Dim c As Range
Set plg = Range("c12:e18")
For Each c In plg
c = c.Column - plg.Item(1).Column + 1
Next c
End Sub

Voir peut-être si on peut tiré un truc avec Item.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 20 Mai 2014

• #18

Re : VBA- trouver la colonne d'un item dans une plage de cellule

Re à toutes, tous
Sans calcul le fichier de ce post fonctionne.
Cordialement

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 21 Mai 2014

• #19

Re : VBA- trouver la colonne d'un item dans une plage de cellule

Re

Efgé: avec ton fichier, sur XL 2013, j'ai un petit problème. J'ai rajouté 2 lignes pour la correction 😱:

Code:

Private Sub CommandButton1_Click()
Dim R As Range
Set R = Range("c8:g20")
'Range("E10").Select
MsgBox R.Cells(Selection).Column
MsgBox ActiveCell.Column - (Range("c8:e20").Columns(1).Column) + 1
MsgBox ActiveCell.Column - R.Cells(Selection).Column
End Sub

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 21 Mai 2014

• #20

Re : VBA- trouver la colonne d'un item dans une plage de cellule

re tous 🙂

marchera si debut plage pas en colonne 1 ???

Private Sub CommandButton1_Click()
Dim R As Range
Set R = Range("a8:e20")
Range("D10").Select
MsgBox R.Cells(Selection).Column
End Sub

Cliquez pour agrandir...

error 1004

 

Vote positif 0 Vote négatif