Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Simplification pour ménage d'été

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Temjeh
  • 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 !

S'inscrire
T

Temjeh

Guest
Bonjour le forum

Je suis dans le ménage pour l'été

Comment est-ce possible de simplifier ceci pour ne pas le répéter sur chaque mois :

Private Sub CommandButton9_Click()
'<>
Dim coz
coz = ComboBox2

Dim co
co = ComboBox1

If ComboBox2 = "" Then
MsgBox "***Sélectionner le mois***"

Else
If coz = "Janvier" Then

Sheets("JANVIER").Select
Label66 = ComboBox1.Value
Label15 = ActiveSheet.Name
Range("B1").Activate

TextBox1 = Range("B37")
TextBox19 = Range("E37")
TextBox20 = Range("H37")
TextBox21 = Range("K37")
TextBox26 = Range("N5")
TextBox27 = Range("N6")
TextBox28 = Range("N7")
TextBox29 = Range("N8")

Else

If ComboBox1 = "" Then
MsgBox "***Sélectionner la dépense***"

Else
If co = "Gas" Then
Range("B1").Activate
Range("B1").End(xlDown).Offset(1, 0).Select

Else
If co = "Réparations" Then
Range("E1").Activate
Range("E1").End(xlDown).Offset(1, 0).Select

Else
If co = "Entretien" Then
Range("H1").Activate
Range("H1").End(xlDown).Offset(1, 0).Select

Else
If co = "Autre" Then
Range("K1").Activate
Range("K1").End(xlDown).Offset(1, 0).Select


End If
End If
End If
End If
End If
End If

J'ai la même chose pour Février,mars, avril...jusqu'à Décembre ce qui me fait un code de 4 pieds de long

If coz = "Février" Then
...
...
...
If coz = "Mars" Then

Merci à l'avance

Temjeh

A+
 
Trier par date Trier par votes
Bonjour Temjeh, le forum

ton code étant le même pour chaque feuille

au lieu de
If coz = "Janvier" Then
Sheets("JANVIER").Select

fait
Sheets(coz).Select

Cordialement, A+
 
Vote positif 0 Vote négatif
Merci beaucoup
Voici mon final:moins de 50 lignes aulieu de 600 !!!!!!!!!!!!!!!!!

Private Sub CommandButton9_Click()
'<>
Dim coz
coz = ComboBox2

Dim co
co = ComboBox1

If ComboBox2 = "" Then
MsgBox "***Sélectionner le mois***"
Else

Sheets(coz).Select

Label66 = ComboBox1.Value
Label15 = ActiveSheet.Name
Range("B1").Activate

TextBox1 = Range("B37")
TextBox19 = Range("E37")
TextBox20 = Range("H37")
TextBox21 = Range("K37")
TextBox26 = Range("N5")
TextBox27 = Range("N6")
TextBox28 = Range("N7")
TextBox29 = Range("N8")


If ComboBox1 = "" Then
MsgBox "***Sélectionner la dépense***"

Else
If co = "Gas" Then
Range("B1").Activate
Range("B1").End(xlDown).Offset(1, 0).Select

Else
If co = "Réparations" Then
Range("E1").Activate
Range("E1").End(xlDown).Offset(1, 0).Select

Else
If co = "Entretien" Then
Range("H1").Activate
Range("H1").End(xlDown).Offset(1, 0).Select

Else
If co = "Autre" Then
Range("K1").Activate
Range("K1").End(xlDown).Offset(1, 0).Select


End If
End If
End If
End If
End If
End If


End Sub

Temjeh
 
Vote positif 0 Vote négatif
Re Temjeh, le forum

Encore moi

pour info tes Range("").Activate ne servent absolument à rien devant
Range("").End(xlDown).Offset(1, 0).Select
cela revient à activer une cellule avant d'en sélectionner une autre, tu peux les supprimer.

A+
 
Vote positif 0 Vote négatif
Bonsoir Temjeh, Yeahou, le Forum

Une autre façon d'écrire ton code, même si il fait la même chose, mais plus simple à lire, et plus rapide avec le Select Case qui évite cette cascade de If Else, Else, Else... Et puis en déclarant les Variables....

Option Explicit

Private Sub CommandButton9_Click()
Dim co As String, coz As String
co = ComboBox1
coz = ComboBox2

If co = "" Then MsgBox "***Sélectionner la dépense***": Exit Sub
If coz = "" Then MsgBox "***Sélectionner le mois***": Exit Sub

Sheets(coz).Select

Label66 = co
Label15 = ActiveSheet.Name

With ActiveSheet
TextBox1 = .Range("B37")
TextBox19 = .Range("E37")
TextBox20 = .Range("H37")
TextBox21 = .Range("K37")
TextBox26 = .Range("N5")
TextBox27 = .Range("N6")
TextBox28 = .Range("N7")
TextBox29 = .Range("N8")

Select Case co
Case "Gas": .Range("B1").End(xlDown).Offset(1, 0).Select
Case "Réparations": .Range("E1").End(xlDown).Offset(1, 0).Select
Case "Entretien": .Range("H1").End(xlDown).Offset(1, 0).Select
Case "Autre": .Range("K1").End(xlDown).Offset(1, 0).Select
Case Else: MsgBox "Y a un sbinz lol !!!"
End Select
End With

End Sub

NB sans aucune simulation en réél sur un UserForm (d'ailleurs je suis surpris des numéro des Controls... 29 TextBoxes !!

Bonne Soirée
@+Thierry
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
256
Did25
D
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
597
patricktoulon
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
443
ManuEven
M
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
704
bsalv
B
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
961
oguruma
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
760
dadu35
D
D
  • Question Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
592
fanch55
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
837
AtTheOne
H
  • Résolu(e)
sub en function
Réponses
2
Affichages
467
Hunter296
H
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
567
francha62
F
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
541
Francky79
F
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
647
piga25
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
885
crocrocro
C
E
  • Question Question
XL 2013 vba excel
Réponses
6
Affichages
643
sylvanu
L
  • Résolu(e)
Microsoft 365 Changer code pour sélectionner 3lignes avec un pas de 1
Réponses
4
Affichages
499
laplayast
L
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
1 K
patricktoulon
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
870
Mody200
M
  • Résolu(e)
XL 2016 If ActiveCell = "Contenu d'une TextBox" Then
2
Réponses
27
Affichages
1 K
TooFatBoy
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…