Amélioration/simplification de mon code
Résolu/Fermé
bassmart
Messages postés
277
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
30 août 2022
-
10 mai 2016 à 22:11
Whismeril Messages postés 18279 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 17 mars 2023 - 11 mai 2016 à 16:23
Whismeril Messages postés 18279 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 17 mars 2023 - 11 mai 2016 à 16:23
A voir également:
- Amélioration/simplification de mon code
- Code asci - Guide
- Code 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
- Netflix code - Guide
- Code puk maroc telecom ✓ - Forum Mobile
2 réponses
Whismeril
Messages postés
18279
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 mars 2023
888
10 mai 2016 à 22:52
10 mai 2016 à 22:52
Bonsoir,
En mettant ce code dans un sub ou Fuction qui ne sert qu'à ça:
En mettant ce code dans un sub ou Fuction qui ne sert qu'à ça:
Sub Tito
Sheets.Add.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Graphique"
Call zone_texte
If ComboBox1 <= 3 Then
Call graphique
Exit Sub
End if
Sheets.Add.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Graphique2"
Call zone_texte
If ComboBox1 <= 6 Then
Call graphique
Exit Sub
End if
Sheets.Add.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Graphique3"
Call zone_texte
Call graphique
End sub
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
11 mai 2016 à 14:14
11 mai 2016 à 14:14
Bonjour a vous deux,
ceci devrait aller
Private Sub ComboBox1_Change()
Mais vous n'avez pas droit a l'erreur, vous n'avez qu'un seul choix!!!!!!!!!
ceci devrait aller
Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
Tito (ComboBox1.Value)
End If
End Sub
Sub Tito(Choix)
Sheets.Add.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Graphique"
Call zone_texte
If Choix <= 3 Then
Call graphique
Exit Sub
End If
Sheets.Add.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Graphique2"
Call zone_texte
If Choix <= 6 Then
Call graphique
Exit Sub
End If
If Choix <= 9 Then
Call graphique
Sheets.Add.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Graphique3"
Call zone_texte
Call graphique
End If
End Sub
Mais vous n'avez pas droit a l'erreur, vous n'avez qu'un seul choix!!!!!!!!!
bassmart
Messages postés
277
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
30 août 2022
1
11 mai 2016 à 14:30
11 mai 2016 à 14:30
Merci beaucoup!
Finalement les 2 codes marches, en recopiant le code je n'avais tout simplement pas mis les exit sub dans mon code.
Ça m'apprendra, la prochaine fois je vais tout simplement copier le code!
Merci à vous deux!
Finalement les 2 codes marches, en recopiant le code je n'avais tout simplement pas mis les exit sub dans mon code.
Ça m'apprendra, la prochaine fois je vais tout simplement copier le code!
Merci à vous deux!
Whismeril
Messages postés
18279
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 mars 2023
888
11 mai 2016 à 16:23
11 mai 2016 à 16:23
Bonsoir,
copier / coller c'est le secret!
copier / coller c'est le secret!
11 mai 2016 à 13:49
Si ComboBox1 est inférieur ou égal à 3, il ajoute uniquement la feuille "graphique", si Combobox1 est inférieur ou égal à 6, il ajoute la feuille "graphique" et "graphique2" et si Combobox1 est inférieur ou égal à 9, il ajoute les trois feuilles.
merci!