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

Boucle sur listbox (Résolu)

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

eideal44

Guest
Bonsoir,
J'aurais besoin d'un coup de main car j'ai créé du code sur excel mais je souhaiterais l'allégé si c'était possible.
Je vous mets mon code VBA :

Sub SEMAINE_ENTREE()
SEMAINE = DatePart("ww", TextBox4.Value, 2, 2)
If ListBox2.ListIndex = 0 Then
Cells(7, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(7, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 1 Then
Cells(23, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(23, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 2 Then
Cells(39, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(39, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 3 Then
Cells(55, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(55, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 4 Then
Cells(71, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(71, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 5 Then
Cells(87, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(87, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 6 Then
Cells(103, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(103, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 7 Then
Cells(119, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(119, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 8 Then
Cells(135, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(135, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 9 Then
Cells(151, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(151, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 10 Then
Cells(167, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(167, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf ListBox2.ListIndex = 11 Then
Cells(183, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(183, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
End If
End Sub

Si quelqu'un pouvait m'aider, ça serait génial car je commence à devenir mou du cerveau.

D'avance merci.

Eideal
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Boucle sur listbox

Bonjour,

Essaie comme ceci :

VB: 
Sub SEMAINE_ENTREE()
Dim X As Integer, Ladate As Date, Semaine As Integer

If IsDate(TextBox4.Value) Then
    Ladate = CDate(TextBox4.Value)
Else
    MsgBox "La date saisie n'est pas dans un format date reconnu par Excel."
    Exit Sub
End If
Semaine = DatePart("ww", Ladate, 2, 2)
 
X = ListBox2.ListIndex
For a = 7 To 183 Step 16
    Select Case X
        Case 0
            Cells(a, 4 + Semaine).Interior.ColorIndex = 10
            Cells(a, 4 + Semaine).Value = Left(TextBox4.Value, 2)
    End Select
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Boucle sur listbox

ça fontionne très bien sauf que ça me met les infos sur toutes les lignes (ligne 7, ligne 23, ligne 39,...), ce qui est logique avec la boucle. Est ce qu'on a la possibilité de déterminer une seule ligne où copier les informations, c'est à dire : si je choisis JANVIER dans listbox2 (listindex = 0), ça recopie l'information que sur la ligne 7, si je choisis FEVRIER dans le listbox (listindex = 1), ça recopie l'information que sur la ligne 23, ... et ainsi de suite jusqu'à DECEMBLE (listindex = 11). Est-ce que c'est possible??? D'avance merci
Eideal44
 
Vote positif 0 Vote négatif
Re : Boucle sur listbox

Et ceci :

VB: 
Sub SEMAINE_ENTREE()
Dim X As Integer, Ladate As Date
Dim Semaine As Integer, B As Integer
 
If IsDate(TextBox4.Value) Then
    Ladate = CDate(TextBox4.Value)
Else
    MsgBox "La date saisie n'est pas dans un format date reconnu par Excel."
    Exit Sub
End If
Semaine = DatePart("ww", Ladate, 2, 2)
If listbox2.ListIndex <> -1 Then
    X = listbox2.ListIndex
    For a = 7 To 183 Step 16
        Select Case X
            Case B
                Cells(a, 4 + Semaine).Interior.ColorIndex = 10
                Cells(a, 4 + Semaine).Value = Left(TextBox4.Value, 2)
                Exit For
        End Select
    Next
End Sub
 
Vote positif 0 Vote négatif
Re : Boucle sur listbox

j'ai trouvé une solution sans boucle :

SEMAINE = DatePart("ww", TextBox4.Value, 2, 2)
Mois = DatePart("m", TextBox4.Value, 2, 2)

B = 7

If Mois = 1 Then
Cells(B, 4 + SEMAINE).Interior.ColorIndex = 10
Cells(B, 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
ElseIf Mois > 1 Then
Cells(B + (16 * (Mois - 1)), 4 + SEMAINE).Interior.ColorIndex = 10
Cells(B + (16 * (Mois - 1)), 4 + SEMAINE).Value = Left(TextBox4.Value, 2)
End If

ça fonctionne

Merci MichD
 
Vote positif 0 Vote négatif
Re : Boucle sur listbox

le CASE B correspond à quoi?
Cliquez pour agrandir...

Dans la boucle lorsque B sera égale à listindex, écriture dans la feuille.


Dernière tentative :

VB: 
Sub SEMAINE_ENTREE()
 Dim X As Integer, Ladate As Date
 Dim Semaine As Integer, B As Integer
  
 If IsDate(TextBox4.Value) Then
     Ladate = CDate(TextBox4.Value)
 Else
     MsgBox "La date saisie n'est pas dans un format date reconnu par Excel."
     Exit Sub
 End If
 Semaine = DatePart("ww", Ladate, 2, 2)
 If ListBox2.ListIndex <> -1 Then
     X = ListBox2.ListIndex
     For a = 7 To 183 Step 16
         Select Case X = B
             Case True
                 Cells(a, 4 + Semaine).Interior.ColorIndex = 10
                 Cells(a, 4 + Semaine).Value = Left(TextBox4.Value, 2)
                 Exit For
         End Select
         B = B + 1
     Next
 End Sub
 
Dernière édition:
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

  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
  • Question Question
Microsoft 365 Travail sur une chaine dans une boucle
Réponses
10
Affichages
645
AtTheOne
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
645
JJ69
J
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
754
un internaute
U
K
  • Question Question
XL 2013 Worksheet_change copier/coller sur un autre classeur
Réponses
6
Affichages
1 K
Dafaka7
D
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
2 K
MONADESIGN82
M
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
S
  • Question Question
XL 2019 Transfer de données du formulaire vers un tableau après click sur le CommandButton1.
Réponses
4
Affichages
1 K
sgangbadjo
S
P
  • Question Question
XL 2016 Userform command button recherche
Réponses
7
Affichages
1 K
plaiiz
P
  • Question Question
XL 2016 If et else comment sortir de la boucle
Réponses
6
Affichages
2 K
migau
  • Question Question
XL 2016 Optimisation code agenda
Réponses
0
Affichages
1 K
Nicolas JACQUIN
T
  • Résolu(e)
XL 2019 Format de date dans ListBox US (MM/JJ/AAAA) à changer en FR (JJ/MM/AAAA).
3 4 5
Réponses
71
Affichages
9 K
job75
B
  • Question Question
XL 2013 [VBA] Extraction de données basé sur 2 à 3 conditions
Réponses
2
Affichages
2 K
bastienb
B
J
  • Résolu(e)
XL 2016 Récupération de Valeur de CheckBox (dans un UserForm) et placement dans une zone de texte
Réponses
2
Affichages
2 K
Jgral
J
F
  • Question Question
Boucle For, qui boucle sans cesse :(
2
Réponses
17
Affichages
2 K
Fariri
F
  • Question Question
XL 2016 largueur des colonnes listbox
Réponses
8
Affichages
2 K
patricktoulon
C
  • Résolu(e)
XL 2019 CHECKBOX
Réponses
3
Affichages
1 K
youky(BJ)
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…