VBA - 3 conditions
Bonjour,
j'aimerais traduire ces conditions dans VBA, pour toutes les cases dans la colonne:
1) Lorsque le numéro de TextBox1.Value correspond à la valeur dans la colonne B
2) Lorsque le mois et l'année de TextBox2.Value correspondent aux valeurs dans la colonne A
3) Inscrit la valeur de TextBox3.Value dans la colonne J
Voici ce que j'ai jusqu'à maintenant, seulement pour la condition 1, mais il en manque pour inclure la condition 2.
Pouvez-vous m'aider là dessus?
Private Sub CommandButton2_Click()
Dim projet As String, AnMois As Date, premier As String, c As Variant
projet = UserForm4.TextBox1.Value
AnMois = UserForm4.TextBox2.Value
If projet = "" Then Exit Sub
Set c = [B:B].Find(projet, , , xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
If Month(c.Offset(0, -1).Value) = Month(AnMois) And year(c.Offset(0, -1).Value) = year(AnMois) Then
c.Offset(0, 8).Value = UserForm4.TextBox3.Value
End If
Set c = [B:B].FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
Unload UserForm4
End Sub
Merci
Bonjour et bienvenue sur le forum
Tu devrais joindre ton fichier, au besoin anonymisé, et on pourrait peut-être te proposer quelque chose.
Bye !