Connaitre l'indice de la cellule sélectionnée. [Résolu]

Signaler
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009
-
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
-
Bonjour,

Ayant cherché dans l'aide en ligne de Microsoft Visual Basic depuis Excel et sur divers forums je ne trouve pas la méthode ou propriété qui permette de connaitre les "coordonnées" de la cellule sélectionnée.

Ce que je veux faire est simple (je pense): sur l'événement change de la cellule d'une feuille je veux faire une différence entre la valeur saisie et la valeur d'une cellule ayant les mêmes "coordonnées" sur une autre feuille du même classeur.
En fonction de la valeur de différence je veux insérer une image sur la cellule sélectionnée.

J'imagine que c'est évidemment possible. Dans tous les exemples que j'ai pu lire l'objet Range a toujours une valeur en dure de renseignée.

Bien évidemment je ne suis pas un pro en VB sous excel.

Merci pour votre aide.

11 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
4
Re,

Tu peux tester un truc comme ceci (fonctionne pour du texte, pas testé pour image):
Feuille.Cells.horizontalAlignment = xlCenter
ou
Feuille.Cells.horizontalAlignment = 3

Sinon voici 2 discussions qui pourraient te servir :

Lien1
Lien2

L'expérience, c'est une connerie par jour, mais jamais la même..
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Car même avec ActiveCell ...
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

ActiveCell.Address

ou pour l'evenement Change :

Target.address

A+
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
4
Bonjour,

tacellule.address evrait te renvoyer l'adresse sous forme SA$1

L'expérience, c'est une connerie par jour, mais jamais la même..
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Merci à vous.

Je continue.
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
4
Oups un peu long grillé de 4 minutes ^^
lmyfgame, si ton problème est résolu, merci de cloturer le topic en cliquant sur la ou les réponses qui t'ont permis de résoudre ton souci.

Cela permet aux membres désireux d'aider de ne pas venir sur un sujet déjà résolu et donc passer plus de temps pour aider d'autres personnes, et également d'indiquer à des personnes qui rencontreraient le même problème que toi que cette solution est fonctionnelle.

L'expérience, c'est une connerie par jour, mais jamais la même..
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Pas de soucis je le ferai une fois que j'aurai été au bout de ce que j'exposais càd jusqu'à insérer une image dans la cellule sélectionnée en fonction de la valeur de la différence entre la cellule active et la même cellule sur une autre feuille.

Je ne manquerai pas d'indiquer toute avancée ou question
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Me voilà déjà revenu

j'ai une erreur indice n'appartient pas à la sélection quand je veux chercher la valeur d'une cellule sur une autre feuille que celle sélectionnée:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim EntreeSemaine As Integer
Dim EntreeTheoriqueSemaine As Integer
Dim diff As Integer

Dim Cell_Theo As Range
Set Cell_Theo = Worksheets("Feuil5").Range(Target.Address) //C'est là que j'ai l'erreur

EntreeSemaine = Target.Value

EntreeTheoriqueSemaine = Cell_Theo.Value


diff = EntreeTheoriqueSemaine - EntreeSemaine


Je pensais pouvoir faire référence à la cellule ainsi pourtant
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
re,

ben ça fonctionne chez moi

la feuille feuil5 existe t'elle ?
les cellules de la feuille feuil5 sont elles protégées ?

A+
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Bon je récupère bien la valeur de ma cellule et je n'ai plus l'erreur.

J'avais renommé Feuil5 mais comme je la voyais dans l'éditeur VB je me disais que je pouvais y faire référence.



Je continue, merci encore.
Messages postés
10
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
25 septembre 2009

Je parviens bien à insérer une image en fonction d'une valeur calculée mais elle n'est pas centrée dans ma cellule.

Est ce possible ? Je ne vois pas de propriété center.

Le Code:

Set imj = ActiveSheet.Pictures.Insert("C:\TEMP\Good.bmp")
With imj.ShapeRange
.Left = Cell_EnCours(Target.Address).Left
.Top = Cell_EnCours(Target.Address).Top
End With