Discussion :

[alxdlx2704]

Bonjour à tous,

Ma question semble difficile car j'ai recherché depuis un peu plus d'une heure sur des forums et je trouve pas de solutions à mon problème exactement.

Problématique : Interaction avec l'utilisateur pour séléctionner des cellules sans toucher en utilisant que la souris

Exemple :

J'ai un tableau
Je souhaite que l'utilisateur sélectionne la case A1, cliques ensuite sur un bouton pour l'attribuer à une fonction tel que selection de la colonne A

Soucis :

Lorsque l'utilisateur clique sur le bouton il déselectionne A1
Comment avoir une macro qui me donne la case séléctionner par l'utilisateur en ce moment?

Amicalement,

Alexandre

[Kimy_Ire]

Bonjour alxdlx2704,

Beaucoup de sujets traitent des problèmes de sélections obligatoires.
Je te propose de regarder les événements et plus particulièrement "Worksheet_SelectionChange".

Exemple simple : empêcher de sélectionner une autre cellule que A1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Range("A1").Select
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[Igloobel]

Bonjour,

Juste une piste : vas voir avec les Target By Val des macros evenementielles Worksheet_Change et Worksheet_SelectionChange

tu trouveras je pense ton bonheur car Target récupère l'adresse de la (des) cellule(s) sélectionnée(s)


tu dis

A+

PS Pendant que je redigeais mon post je me suis fait doublé par Kimy_Ire, mais je vois qu'on eu la même idée

[alxdlx2704]

Bonjour

Merci pour vos réponses rapides. Je veux pas contraindre mon utilisateur mais lui laisser tout open!
Process :

Il séléctione une cellule qui est importante

Il clique sur un bouton

Je récupère le nom de la cellule qu'il a séléctionné

Je pensais utiliser activeCell

[alxdlx2704]

Finalement,

J'ai trouvé ceci et cela devrait me suffire!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub claim_no()
Dim Val As Variant
 
 
CelN = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 270) + 2) & ActiveCell.row
Cells(2, 2) = CelN
 
End Sub

Merci beaucoup pour vos réponses