Autres vba SpinButton

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 !

samia89

XLDnaute Nouveau
bonsoir tout le monde j'ai besoin d'aide svp
j'ai une feuil nommé Dépens et SpinButton qui affiche les mois dans la Cellule "B1" a fin d'affiche les dépens du mois
ce que je veut si d'ajoute sur la feuil Dépens la Cellule "F1" pour insérer les années a fin qu'il m'affiche les résultats des Dépens du mois "B1" de l'année "F1" voila le code de SpinButton qui fonction bien mais juste pour les mois et voila une image des résultats par mois :

et voila le code

VB:
Private Sub SpinButton1_Change()
monmois = Range("C1")
If monmois = "" Then Exit Sub
If monmois > 12 Then Exit Sub
Range("B1") = Choose(monmois, "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
Range("A1:G1").Select


Range("A3:G43").Select
Selection.ClearContents

With Worksheets("BDDDépens").Range("H2:H3000")
    Set LaDate = .Find(monmois * 1.1, LookIn:=xlValues)
    If Not LaDate Is Nothing Then
        firstAddress = LaDate.Address
        Do
        a = a + 1
        Cells(a + 2, 1) = LaDate.Offset(0, -7)
        Cells(a + 2, 2) = LaDate.Offset(0, -6)
        Cells(a + 2, 3) = LaDate.Offset(0, -5)
        Cells(a + 2, 4) = LaDate.Offset(0, -4)
        Cells(a + 2, 5) = LaDate.Offset(0, -3)
        Cells(a + 2, 6) = LaDate.Offset(0, -2)
        Cells(a + 2, 7) = LaDate.Offset(0, -1)
        Set LaDate = .FindNext(LaDate)
        Loop While Not LaDate Is Nothing And LaDate.Address <> firstAddress
End If

image002.jpg

Excellente journée pour tt le monde
 
Bonjour,

Beaucoup de mal à comprendre ce que tu veux, et ça se complique encore si tu ne joins pas ton fichier, ou au minimum un fichier exemple. Des screenshots et un bout de code c'est sympa, mais ça peut tout et rien vouloir dire en fonction du contexte.

J'attends ton retour,
Bonne continuation
 
- 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

Discussions similaires

Réponses
5
Affichages
236
Réponses
4
Affichages
243
Réponses
4
Affichages
177
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
4
Affichages
548
Retour