Remettre une liste cascade sur une valeur prédéfinie

[eastonrad]

Bonsoir

J'ai une petite question: sur ma feuille de calcul, j'ai implanté un bouton Remise à zéro, qui à l'aide d'une macro, remplace le contenu d'une liste de cellule par 0
J'aimerais aussi que la liste déroulante se place sur une valeur précise (par exemple la première). Quelqu'un aurait il une idée du type de code à utiliser ?😕

Bonne soirée et merci d'avance ! 🙂

 

[Kotov]

Re : Remettre une liste cascade sur une valeur prédéfinie

Bonsoir,

Si tu utilises une combobox ou une listbox, je te propose la propriété ListIndex

Méthode :

ComboBox1.Listindex = 2 (sélectionne la 3ème ligne)
Listbox1.Listindex = 5 (sélectionne la 6ème ligne)


Note : le décalage est lié au fait que la 1ère ligne est référencée à l'index 0

Bonne soirée
Kotov

 

[eastonrad]

Re : Remettre une liste cascade sur une valeur prédéfinie

Bonjour

Merci pour ta réponse Kotov
En fait, je ne sais pas trop ce que j'utilise, je crois que c'est une ComboBox car son nom c'est "Zone_combinée_20".
La ligne de code que tu m'as donné se place dans la macro de mon bouton RAZ (remise à zéro) ?

Merci d'avance ! 🙂

 

[eastonrad]

Re : Remettre une liste cascade sur une valeur prédéfinie

Petit up ! 😛
Si quelqu'un a une suggestion, ou souhaite que je développe mon problème, faite le savoir ! 😀
Merci d'avance

 

[pierrejean]

Re : Remettre une liste cascade sur une valeur prédéfinie

bonjour eastonrad

bientot 24h00 pour un probleme certainement soluble en 10 mn
mais avec un fichier exemple (sans données confidentielles) qui lui peut etre réalsé en 2 à 3 mn !!!!!

 

[eastonrad]

Re : Remettre une liste cascade sur une valeur prédéfinie

Bonsoir PierreJean

Suite à ton conseil, j'ai réalisé un fichier édulcoré de mon problème.
En gros, il faut que quand j'appuie sur le bouton RAZ, les cases en jaunes passent à 0 et la liste déroulante se place sur le "-" soit la première ligne.
Voilà, si cela inspire quelqu'un 😀

 

[Kotov]

Re : Remettre une liste cascade sur une valeur prédéfinie

Bonjour Eastonrad, PierreJean, le forum,

PierreJean a raison, pourquoi ne pas avoir fourni tout de suite le fichier ?

En fait il te suffit de remplacer ta macro CommandButton1_Click par :

Private Sub CommandButton1_Click()
    Dim i As Byte
    For i = 17 To 20
        Cells(i, 4) = "0"
    Next i
    Cells(17, 4).Select
End Sub

Bonne journée
Kotov

 

[pierrejean]

Re : Remettre une liste cascade sur une valeur prédéfinie

bonsoir

mes excuses je me suis absenté un moment

Kotov a oublié de remettre à - la Zonecombinée ce qui est réalisé par

Range("F38") = 1

 

[Kotov]

Re : Remettre une liste cascade sur une valeur prédéfinie

Bonsoir PierreJean,

Je m'aperçois que j'ai répondu à côté de la plaque, en omettant la liste déroulante.


Edit : désolé PierreJean, je n'ai pas vu que tu avais également proposé un fichier joint.

En plus je n'ai pas lié ma cellule au résultat de la listebox

EastonRad : utilises plutôt le fichier de PierreJean, le mien est incomplet.
Avec mes excuses pour ce loupé lié à une journée difficile

J'ai besoin de repos, personne n'en vend sur ce forum ?? 😉


Bonne soirée
Kotov

 

[eastonrad]

Re : Remettre une liste cascade sur une valeur prédéfinie

Bonjour

Merci Pierrejean et Kotov pour vos proposition, c'est exactement ce qu'il me fallait 😀
J'essaie d'adapter cette solution à mon problème, merci pour vos réponses rapides ! 🙂

 

[eastonrad]

Re : Remettre une liste cascade sur une valeur prédéfinie

Rebonjour

J'ai un mini souci pour adapter la solution proposée à mon problème.
Déjà je ne saisi pas l'utilité de cette ligne dans la macro

Next i
Cells(17, 4).Select
Range("F38") = 1

Pourquoi celle là plutôt qu'une autre ?

Ensuite, la cellule liée ("F38" dans mon exemple) se trouve en réalité dans un autre onglet appelé base de données. Je n'arrive pas à trouver la synthaxe en VBA pour modifier la macro.
Voilà, désolé de vous ennuyer avec mes soucis de débutant, et merci d'avance pour votre aide ! 🙂

 

[pierrejean]

Re : Remettre une liste cascade sur une valeur prédéfinie

bonjour aeastonrad

pour le
Cells(17, 4).Select

tu as raison cette ligne est inutile (j'avais repris le code de Kotov sans l'analyser ligne par ligne)

pour modifier la cellule liée

Sheets("Nom de la feuille").Range("F38") = 1

ce qui doit donner:

Sheets("base de données").Range("F38") = 1

 

[eastonrad]

Re : Remettre une liste cascade sur une valeur prédéfinie

Re

Merci Pierrejean pour la synthaxe, elle marche très bien !
Sinon une dernière petite question: est il possible de modifier la taille de la police pour le contenu de la liste déroulante et pour le bouton RAZ ?

Merci encore ! 🙂

 

[Kotov]

Re : Remettre une liste cascade sur une valeur prédéfinie

Bonsoir EastonRad, Pierrejean,

La police du bouton et de la liste déroulante se modifient dans les propriétés de l'objet.

Désolé pour vous avoir égaré avec Cells(17, 4).Select, un survol trop rapide de l'énoncé du problème m'ayant fait croire que tu souhaitais activer cette cellule.

Bonne soirée
Kotov

 

[pierrejean]

Re : Remettre une liste cascade sur une valeur prédéfinie

bonsoir eastonrad

je ne connais pas suffisamment les controles que tu utilises pour te repondre efficacement