XL 2019 contrôle de formulaire

[frederio]

Bonjour vous connais comment faire à un bouton de contrôle nom RETOUR et contrôle de formulaire d’un chiffre suite choix 1-34
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci

 

[Jacky67]

Bonjour vous connais comment faire à un bouton de contrôle nom RETOUR et contrôle de formulaire d’un chiffre suite choix 1-34
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci

Bonjour,
Si c'est pour afficher la journée 1-34 en début de page alors la Pj le fait.
Avec un peu de VBA

 

[frederio]

oui le faire avec VBA

comment a expliqué avec VBA ?

faire montre de expliquer

merci

 

[Jacky67]

oui le faire avec VBA

comment a expliqué avec VBA ?

faire montre de expliquer

merci

Re...
Avec le classeur ouvert
Appuyer simultanément sur Alt+F11
Dans la fenêtre à gauche ==>double clic sur ThisWorkbook
Tu dois trouver dans la fenêtre de droite le code ci-dessous (Sans les==> explications)

Option Explicit '==> Oblige la déclaration des variables
Private Sub Workbook_Open() '==>procédure qui serra lancée à chaque ouverture du classeur
Dim i& '==> déclaration de la variable i utilisée ci-dessous
With Sheets("BUNDESLIGA") '==> Détermine qu'elle feuille est concernée par les instructions suivantes
.ComboBox1.Clear' ==>Efface les données pouvant être présentes dans la liste déroulante (ici c'est un contrôle activeX "combobox")
For i = 1 To 34 '==>on commence une boucle de 1 à 34,(i aura la valeur 1,2,3....,34 )
.ComboBox1.AddItem i ' On inscrit cette valeur dans le Combobox
Next '==> suite de la boucle jusqu'à 34
End With '==>Fin des instructions avec la feuille concernée
End Sub '==> fin de la procédure

Ensuite dans la fenêtre à gauche ==>double clic sur BUNDESLIGA
Le code ci-dessous s'affiche dans la fenêtre de droite

Private Sub ComboBox1_Change()' ==> ce code sera exécuté à chaque fois que la saisie dans liste déroulante(Combobox ) change.
If ComboBox1 = "" Or ComboBox1.Value > 34 Or ComboBox1.Value < 1 Then ' ==>Condition si la saisie est vide ou si elle est <1 ou >34
ComboBox1.Value = "" '==> alors on efface ce qui est affiché dans la liste déroulante.
Application.Goto [a1], True '==>et on affiche la feuille en haut de page.
Exit Sub '==> si les conditions sont remplies on sort de la procédure et le code suivant ne serra pas exécuté.
End If '==> fin des conditions ci-dessus
Application.Goto Range("a" & ComboBox1.Value * 11 - 9), True '==>Si les conditions ne sont pas remplies, on calcule l'emplacement (ligne) qui doit être afficher en haut de page.
End Sub '==> fin de la procédure

Voila…...
Bon courage

 

[frederio]

si possible vidéo YouTube ou autre ? merci bcp

 

[Jacky67]

si possible vidéo YouTube ou autre ? merci bcp

Non, pas possible
Il faudra faire un minimum d'effort.

 

[frederio]

Désolé je comprends pas son texte difficile compliqué ,tu peux expliquer claire image en suite dérange pas Merci

 

[Jacky67]

Désolé je comprends pas son texte difficile compliqué ,tu peux expliquer claire image en suite dérange pas Merci

Qu'elle ligne de code tu ne comprends pas?

 

[frederio]

 

[Staple1600]

Bonsoir le fil, frederio, Jacky67

frederio
Un fichier dont l'extension est *.xlsx ne peut pas contenir de macros.
Il faut donc enregistrer ton classeur en *.xlsm

 

[Jacky67]

Regarde la pièce jointe 1038826

Regarde la pièce jointe 1038826

Re..
Le classeur que j'ai joint en #2 ne convient pas ?
Les textes de couleur verte sont les explications, ils ne sont pas exécutés

Ce lien n'existe plus

 

[Staple1600]

Re

Bing, de nouveau sous le joug de la cape d'invisibilité...🙁
(cf le message#10)

 

[Jacky67]

Re

Bing, de nouveau sous le joug de la cape d'invisibilité...🙁
(cf le message#10)

Mais NON
Bonsoir JM
Et bonne nuit

 

[frederio]

bonsoir
alt+F11>je vais déjà faire
comboBox1 > ne pas marche

 

[Staple1600]

Bonsoir le fil, frederio

je réitère ce que je disais précédemment

Bonsoir le fil, frederio, Jacky67

frederio
Un fichier dont l'extension est *.xlsx ne peut pas contenir de macros.
Il faut donc enregistrer ton classeur en *.xlsm

frederio
Ta copie d'écran montre que ton fichier se nomme ALLEMAGNE.xlsx
Il faut donc l'enregistrer en *.xlsm (pour conserver les macros)

EDITION: Bonsoir Jacky67