Macro: Set Plage = une seule cellule

[francois]

bjr le forum,

1) je voudrais que la fonction
Set Plage = Application.InputBox('Choose the right item in the unit item column', Type:=8)
n(autorise que la selection d'une seule cellule
et/ou alors, comment peut-on trouver le nombre de ligne colonne et cellule d'une plage sélectionnée.

2) Comment puis je faire pour trouver le rang (sheet(i)) de ma feuille active ?

merci pour votre aide

 

[2passage]

Bonjour,

Pour ce que je comprends :

1-
En bouclant et en controlant que ca ne fait qu'une cellule, mais pour moi Inputbox demande un texte donc ca donnerait un truc du genre
do while range(plage).cells.count <> 1
Set Plage = Application.InputBox('Choose the right item in the unit item column', Type:=8)
loop

2- tu dois vouloir Activesheet.Index

A+

 

[francois]

je regarde
merci

 

[Francois]

Ca ne marche pas...
Est ce que vous pourriez svp me confirmer les fonctions visual basic qui permettent de compter le nombre de ligne colonne et cellule d'une plage de cellule.

Merci d'avance

 

[MichelXld]

bonjuor François , bonjour 2Passage

si tu veux verifier le nombre de cellules selectionnées

Dim plage As Range
Set plage = Application.InputBox('Choose the right item in the unit item column', Type:=8)
MsgBox plage.Cells.Count



bon apres midi
MichelXld

 

[2passage]

Re,

a priori c'est rows.count, columns.counts et cells.count pour un range donné

Et le code que je t'ai donné ne marche pas parce qu'il faut definir plage avant le controle, sinon le cells.count se plante :

Set plage = Range('a:a')
Do While plage.Cells.Count <> 1
Set plage = Application.InputBox('Choose the right item in the unit item column', Type:=8)
Loop
MsgBox plage.Cells.Count

Comme ça ca marche tres bien (le Set est obligatoire pour la définition des ranges)
A+

 

[francois]

j'essaye et je vs tiens o courant
merci

 

[Francois]

bon ji arrive pas je recommence la semaine prochain j'ia besoin de repos
merci

 

[Francois]

Un grand merci 2paasage, la macro marche

 

[2passage]

No problem