VBA -fonction qui dépend de la sélection

Résolu
Chronix -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je cherche à écrire une fonction qui dépend des cellules que je sélectionne :

Je m'explique, je veux pouvoir sélectionner une cellule, que la fonction retourne l'adresse de la cellule (j'ai utilisé ActiveCell.Row & Activecell.Column),
PUIS que je clique sur une deuxième cellule, et que la fonction me renvoie l'adresse de cette deuxième cellule (en particulier pour savoir comment sont placées les cellules les unes par rapport aux autres)
C'est au niveau de la deuxième sélection que je ne sais pas faire... j'avais pensé utiliser quelque chose comme Cell.Select.Row & cell.Select.Column mais ca ne marche pas...

J'espere que je suis clair

Merci d'avance

2 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonsoir,

    Je pense que c'est plus un sub qu'une fonction que tu veux faire, une fonction retournant une valeur en ayant ses paramètres où en les trouvant sur la feuille mais n'autorisant pas ce type d'action.
    Dans cette hypothèse tu peux utiliser inputbox() mais avec type:=8
    ex:
    Dim r As Range
    Set r = Application.InputBox("cliquer une cellule", Type:=8)
    MsgBox ("Adresse=" & r.Address & ", valeur=" & r.Value)

    eric
    0
  2. Chronix
     
    Merci beaucoup,

    Oui effectivement c'était bien une Sub que j'avais écris... (erreur dans mon message... je ne suis pas encore tout a fait habitué au VBA)

    Je pense que je vais pouvoir utiliser ta méthode, j'ai testé ton exemple, et ça peut effectivement me permettre de faire ce que je voulais (ça permet à l'utilisateur de choisir une deuxième cellule)... je vais étudier les Inputbox plus en profondeur

    Merci encore!
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Si ça te parait ok n'oublie pas de mettre en résolu.
      merci
      0