XL 2010 Objet compteur avec cellule liée variable

  • Initiateur de la discussion Initiateur de la discussion cathodique
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cathodique

XLDnaute Barbatruc
Bonjour,

Je mets le contrôle de formulaire "Compteur" et je voudrais que la cellule liée à ce compteur soit variable.
ou plus exactement la cellule active. J'espère que ma demande est claire.
En vous remerciant par avance.
inserer compteur.gif

ps: c'est pour aider dans cette discussion

A+
 

Pièces jointes

Solution
Bonjour cathodique, Phil69970,

Le code de la feuille est très simple :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
DrawingObjects("Compteur 1") = Val(ActiveCell)
End Sub

Sub Incremente()
ActiveCell = DrawingObjects("Compteur 1")
End Sub
Pas de "cellule liée".

A+
@cathodique

Je crois que j'ai répondu à ta question ici c'est pas la peine de remettre le fichier 😉

@Phil69970
Eh, non tu n'as pas répondu. Tu as fais ce que j'ai aussi fait. Soit utiliser le spinbutton activeX.

Je voulais savoir si on pouvait avec le contrôle de formulaire (compteur) utiliser la cellule active comme cellule liée au compteur.

En tout cas merci pour ton retour.

Bonne soirée
 
Bonjour cathodique, Phil69970,

Le code de la feuille est très simple :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
DrawingObjects("Compteur 1") = Val(ActiveCell)
End Sub

Sub Incremente()
ActiveCell = DrawingObjects("Compteur 1")
End Sub
Pas de "cellule liée".

A+
 

Pièces jointes

Bonjour cathodique, Phil69970,

Le code de la feuille est très simple :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
DrawingObjects("Compteur 1") = Val(ActiveCell)
End Sub

Sub Incremente()
ActiveCell = DrawingObjects("Compteur 1")
End Sub
Pas de "cellule liée".

A+
Bonjour Job75😉,

C'est impeccable. Toute ma reconnaissance et gratitude.
Bien que c'était pour aider, ça me permet aussi d'apprendre.
Encore merci pour le partage de tes connaissances.

Bonne journée.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
132
Réponses
4
Affichages
147
Réponses
10
Affichages
300
Réponses
2
Affichages
141
Retour