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

Autres vba SpinButton

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


Excellente journée pour tt le monde
 

xUpsilon

XLDnaute Accro
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…