Discussion :

[EricBOG]

Bonjour à tous!

Je débute en programmation VBA et je bloque sur un probleme qui à priori ne devrait pas être trop compliqué...
Je souhaite entrer un mois de l'année (entre 01 et 12) et ensuite recopier des lignes d'une feuille (DCD) à une autre (BUF) si le mois de la date de la ligne en question (qui se trouve en premiere case) correspond au mois entré.
J#ai essayé pas mal de chose (Format, Month, ...) que j'ai trouvé sur le net, mais rien y fait, je n'arrive pas à lire uniquement le mois de ma date...

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Whichmonth As String
Dim VraieLigneBUF As Double
 
Whichmonth = InputBox("Enter Month" & vbCrLf & vbCrLf, "forum Access")
 
VraieLigneDCD = 3
VraieLigneBUF = 3
While Not (IsEmpty(wsDCD.Cells(VraieLigneDCD, 1)))
   If Month(wsDCD.Cells(VraieLigneDCD, 1)) = Whichmonth Then
        wsBUF.Range("A" & VraieLigneBUF & ":" & "P" & VraieLigneBUF).Value = wsDCD.Range("A" & VraieLigneDCD & ":" & "P" & VraieLigneDCD).Value
        VraieLigneBUF = VraieLigneBUF + 1
    End If
VraieLigneDCD = VraieLigneDCD + 1
Wend

Merci d'avance à tous ceux qui prendront le temps de me répondre!

Eric

[EngueEngue]

Month(tadate)
a noter qu'il te renvoit un entier de 1 à 12.

Donc si tu veux tester avec 01 il va falloir faire du retraitement..

Code :

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

cint(right("01",1))

[EricBOG]

Salut,

Merci pour ta réponse, quelle rapidité!
Mais le probleme ne vient pas de là car même si je rentre "1", cela ne fonctionne pas.
De plus, j'ai essayé d'afficher (pour tester) avant de rentrer dans la boucle le résultat de la fonction Month(ma cellule...) et jài un message d'erreur.
Avec la fonction Format(ma celulle, "mm"), il ne m'affiche pas le mois, mais la date entière...

[EngueEngue]

Tu compares des chiens à des chats, prends l'habitude de vérifier les formats des variables que tu utilises

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Whichmonth As String
Dim VraieLigneBUF As Double
 
Whichmonth = InputBox("Enter Month" & vbCrLf & vbCrLf, "forum Access")
 
VraieLigneDCD = 3
VraieLigneBUF = 3
While Not (IsEmpty(wsDCD.Cells(VraieLigneDCD, 1)))
   If Month(cdate(wsDCD.Cells(VraieLigneDCD, 1))) = cint(Whichmonth) Then
        wsBUF.Range("A" & VraieLigneBUF & ":" & "P" & VraieLigneBUF).Value = wsDCD.Range("A" & VraieLigneDCD & ":" & "P" & VraieLigneDCD).Value
        VraieLigneBUF = VraieLigneBUF + 1
    End If
VraieLigneDCD = VraieLigneDCD + 1
Wend

[EricBOG]

J'avais également pensé au format en ajoutant cdate devant ma cellule...
Mais ca ne fonctionne toujours pas.
Toujours la même erreur : "Run-time error '13' Type mismatch"

(PS: j'ai qd meme pris le temps de rentrer tes corrections et d'essayer avant de te répondre)

[EngueEngue]

Bon... Chez moi ça marche.. File ton classeur