Discussion :

[NEC14]

Bonjour à tous,

A l'aide du code suivant et selon se qui se trouve dans la Combo (Cb3), des sommes s'affichent dans les TextBox (T4,T5,T8). Ces sommes se trouvent dans la feuille "Données" du Classeur.
Ces sommes changent à partir du 1er juillet et doivent donc faire référence à partir de cette date à une nouvelle feuille "Données2" du même classeur.
Comment faire pour que automatiquement du 1er janvier au 30 juin les données soient prises dans la feuille "Données" et qu'ensuite du 1er juillet au 31 décembre dans la feuille "Données2". La date se trouve dans le TextBox "T2" au format "dddd d mmmm yyyy".
J'ai mis le code que j'ai actuellement, je dois donc y ajouter ces 2 conditions et c'est là que je coince. Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Cb3_Change()
Dim cell As Range
    If Me.Cb3.Value <> "" Then
        For Each cell In Sheets("Données").Range("B2:F57")
            If UCase(Left(cell.Text, Len(Cb3.Text))) = UCase(Cb3.Text) Then
                Me.T4.Text = cell.Offset(0, 2).Text
                Me.T5.Text = cell.Offset(0, 1).Text
                Me.T8.Text = cell.Offset(0, 5).Text
                Exit Sub
            End If
        Next
    End If
End Sub

[Basicnav]

Bonjour,

sans me pencher plus sur le problème, si tu mets un SELECTCASE dans ton if avec comme condition la date supérieure ou inférieure, tu peux changer tes référence de feuilles non ?

sans doute un peu simpliste mais peut-être une voie à explorer.

[NEC14]

Bonjour,

Je pensais ajouter 2 conditions du genre

Si T2 est compris entre le 1/1 et le 30/6 alors se référer aux données de "Données" et si T2 est compris entre le 1/7 et le 31/12 alors "Données2".

Mais ça j'ai du mal à l'écrire. J'essaie de mon côté si vous avez une idée !
Merci

[Basicnav]

un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim madate as Date
Dim maFeuille as string
 
If Me.Cb3.Value <> "" Then
Select Case madate
    CASE 1/1 to 30/06
    maFeuille = Donnée
    CASE 1/07 to 31/12
    maFeuille = Donnée2
        For Each cell In Sheets("&maFeuille&").Range("B2:F57")
            If UCase(Left(cell.Text, Len(Cb3.Text))) = UCase(Cb3.Text) Then
                Me.T4.Text = cell.Offset(0, 2).Text
                Me.T5.Text = cell.Offset(0, 1).Text
                Me.T8.Text = cell.Offset(0, 5).Text
...

Attention, la syntaxe n'y est pas, je n'ai hélas pas le temps de vérifier...
je te renvoie au forum, désolé de ne pas pouvoir t'aider plus que ça

[NEC14]

Merci BasicNav je vais poursuivre dans ta lancée et je te donne le code complet dès que ça marche.

[NEC14]

Bonjour à tous,

Tout d'abord permettez moi de vous présenter tous mes voeux de santé de bonheur et de prospérité pour cette nouvelle année.

Je souhaiterai avoir votre avis sur ce code. Est-ce que la codification est bonne car cela ne marche pas chez moi, rien ne se passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Cb3_Change()
Dim Cell As Range
Dim MaDate As Date
Dim MaFeuille As String
 
MaDate = T2.Value 'date obtenue par saisie dans la TextBox
 
If Me.Cb3.Value <> "" Then 'si la date de T2 est comprise entre le 1/1 et 31/6 alors prendre les données dans la feuille "Données"
    Select Case MaDate
        Case 1 / 1 To 31 / 6
        MaFeuille = Données
 
        Case 1 / 7 To 31 / 12 'si la date de T2 est comprise entre le 1/7 et 31/12 alors prendre les données dans la feuille "Données2"
 
        MaFeuille = Données2
 
        For Each Cell In Sheets("MaFeuille").Range("B2:F57")
            If UCase(Left(Cell.Text, Len(Cb3.Text))) = UCase(Cb3.Text) Then
                Me.T4.Text = Cell.Offset(0, 2).Text
                Me.T5.Text = Cell.Offset(0, 1).Text
                Me.T8.Text = Cell.Offset(0, 5).Text
                Exit Sub
            End If
        Next
    End If
End Sub

Merci pour votre aide car je n'y arrive pas seul

J'ai fait un test alors une erreur apparait sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
MaDate = T2.Value 'date obtenue par saisie dans la TextBox
Le format de T2 est : "T2.Value = Format(T2.Tag, "dddd d mmmm yyyy")"

Incompatibilité de type. Lorsque je passe la souris sur cette ligne le résultat est : "MaDate="Lundi 4 janvier 2010"" - Si je passe la souris sur la ligne " Dim MaDate As Date" le résultat est :"Date=04-01-2010".
Le problème vient donc de là (je présume), que dois-je faire ?

[mercatog]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Cb3_Change()
Dim sht As Worksheet
Dim cell As Range
 
If Month(CDate(Me.T2.Value)) < 7 Then
    Set sht = Sheets("Données")
Else
    Set sht = Sheets("Données2")
End If
 
If Me.Cb3.Value <> "" Then
    For Each cell In sht.Range("B2:F57")
        If UCase(Left(cell.Text, Len(Cb3.Text))) = UCase(Cb3.Text) Then
            Me.T4.Text = cell.Offset(0, 2).Text
            Me.T5.Text = cell.Offset(0, 1).Text
            Me.T8.Text = cell.Offset(0, 5).Text
            Exit Sub
        End If
    Next
End If
Set sht = Nothing
End Sub

[NEC14]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Month(CDate(Me.T2.Value)) < 7 Then

Bonjour et merci Mercatog,

J'ai mis ton code en place mais il y a une incompatibilité de type sur cette ligne

Le format de T2 est : "T2.Value = Format(T2.Tag, "dddd d mmmm yyyy")" l'erreur peut-elle provenir de ce format ?

[mercatog]

Et si forcer MaDate (comme tu l'as testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Cb3_Change()
Dim sht As Worksheet
Dim cell As Range
Dim MaDate As Date
 
If Me.Cb3.Value <> "" Then
    MaDate = T2.Value
    If Month(MaDate) < 7 Then
        Set sht = Sheets("Données")
    Else
        Set sht = Sheets("Données2")
    End If
 
    For Each cell In sht.Range("B2:F57")
        If UCase(Left(cell.Text, Len(Cb3.Text))) = UCase(Cb3.Text) Then
            Me.T4.Text = cell.Offset(0, 2).Text
            Me.T5.Text = cell.Offset(0, 1).Text
            Me.T8.Text = cell.Offset(0, 5).Text
            Exit For
        End If
    Next
End If
    Set sht = Nothing
End Sub

[fgiambelluco]

Bonjour et bonne année à tous

Je pense que le problème vient de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"T2.Value = Format(T2.Tag, "dddd d mmmm yyyy")"

En effet, suite à cette instruction T2 ne contient plus une date mais du texte.

[NEC14]

Toujours le même message d'erreur sur la même ligne.

Bonjour fgiambelluco,

Merci pour cette info. Mais comment je résoud ce problème ?
J'ai essayé en mettant T2.Text mais rien n'y fait.
Cordialement

[fgiambelluco]

Re
Commece par supprimer la ligne T2.Value = Format(T2.Tag, "dddd d mmmm yyyy") de façon à garder une date dans la zone de texte T2.

[NEC14]

C'est fait, mais l'erreur persiste.
Lorsque je mets la souris sur MaDate la réponse est 00:00:00

[mercatog]

Par quoi est alimentée ta TextBox T2?

[NEC14]

par la date du jour à ce format (lundi 4 janvier 2010), mais cette zone peut être modifiée par l'utilisateur

[NEC14]

J'ai remplacé les formats mais rien n'y fait ça beugue toujours.

J'en avais oublié un.
J'ai donc transformé le format T2 "dddd d mmmm yyyy" en T2 "dd mmmm yyyy" et cela à l'air de fonctionner.

Merci à tous pour vos lumières et encore bonne année à tous