Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

coordonnées d'une cellule active

Joël

XLDnaute Nouveau
Bonjour à Tous,

Je souhaiterais récupérer dans des variables sous VBA les coordonnés d'une cellule active d'une feuille EXcel.

Je voudrais lancer une impression(à partir d'un clic sur un bouton), d'un document au nom d'un apprenti(élève) qui figurerait dans une liste de nom dans une colonne.
Autrement, l'utilisateur se positionne sur un nom de la liste et clic sur un bouton pour lancer l'impression d'un document existant dans une autre feuille.

Merci d'avance à celles ou ceux qui pourront me répondre Joël
 

ERIC S

XLDnaute Barbatruc
si ta colonne avec les noms est A

dans ta feuille sous vba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Count = 1 Then Exit Sub
If Not Target.Column = 1 Or Target.Value = '' Then Exit Sub
Sheets(Target.Value).PrintOut
End Sub

A essayer

A+
 

Joël

XLDnaute Nouveau
Merci de vous pencher sur mon problème.

La liste des noms figure(dans une colonne) dans une feuille existante qu'on active pour voir la liste des noms

Est-ce plus clair ?

Merci Joël
 

ERIC S

XLDnaute Barbatruc
re

un eprécaution à prendre pour éviter les fausses manip (mettre avant la ligne printout)

confirm = msgbox('voulez-vous imprimer' & Target.Value,vbyesno)
if confirm=vbno then exit sub

A+
 

Joël

XLDnaute Nouveau
Merci Eric S,

Je voudrais simplement récupérer le n° de colonne et de ligne d'une cellule sur lequel on est positionné dans une feuille active.

Avec la propriété ActiveCell.Row ou ActiveCell.colomn j'ai obtenu le résultat que je recherchais.

Joël
 

porcinet82

XLDnaute Barbatruc
Salut tout le monde,

Une autre solution pour obtenir l'adresse dite relative de la cellule active :
ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)

Ce qui renvoie une adresse du genre A1

@+
 

Discussions similaires

Réponses
15
Affichages
902
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…