K
Katou1604
Guest
Bonjour à toutes et à tous.
Je suis en train de développer un petit programme de gestion d'une base de données.
Je suis novice en VBA et souhaiterais un petit peu d'aide sur une boucle que je n'arrive pas à faire[/B].
Comment puis-je adapter les codes ci-dessous pour que ceux-ci s'éxécutent sur toute ma colonne (ceux-ci fonctionnent très bien... mais sur une seule cellule de ma colonne)?
Je souhaiterais que le calcul soit effectué sur TOUTES les cellules de ma colonne.
Ce que ces codes me permettent de faire : calcul de la différence en nombre de jours entre deux dates (=2 TextBox) et répercussion du résultat (= 1 TextBox).
Lorsque je change une date dans mes TextBox le résultat est automatiquement recalculé.
Dans mon formulaire :
Dans "Microsoft Excel Objets" --> feuil1 (TABLEAU DE BORD)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPlage As Range
Set MaPlage = Application.Intersect(Target, Application.Union(Range("ET223:EU223"), Range("FK223")))
If Not MaPlage Is Nothing Then
TDB.NBJOURRETOURBALMA.Value = Range("EV223")
End If
End Sub
Dans "Feuilles" --> TDB
Private Sub UserForm_Initialize()
RECEPTION_BALMA.ControlSource = "ET223"
RETOUR_BALMA.ControlSource = "EU223"
With Worksheets("TABLEAU DE BORD")
Range("EV223").Formula = .Range("FK223")
Range("EV223").Value = .Range("EV223").Value
End With
NBJOURRETOURBALMA.Value = Range("EV223")
End Sub
J'espère avoir été suffisamment explicite.
Avec tous mes remerciements pour votre aide.
Je suis en train de développer un petit programme de gestion d'une base de données.
Je suis novice en VBA et souhaiterais un petit peu d'aide sur une boucle que je n'arrive pas à faire[/B].
Comment puis-je adapter les codes ci-dessous pour que ceux-ci s'éxécutent sur toute ma colonne (ceux-ci fonctionnent très bien... mais sur une seule cellule de ma colonne)?
Je souhaiterais que le calcul soit effectué sur TOUTES les cellules de ma colonne.
Ce que ces codes me permettent de faire : calcul de la différence en nombre de jours entre deux dates (=2 TextBox) et répercussion du résultat (= 1 TextBox).
Lorsque je change une date dans mes TextBox le résultat est automatiquement recalculé.
Dans mon formulaire :
Dans "Microsoft Excel Objets" --> feuil1 (TABLEAU DE BORD)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPlage As Range
Set MaPlage = Application.Intersect(Target, Application.Union(Range("ET223:EU223"), Range("FK223")))
If Not MaPlage Is Nothing Then
TDB.NBJOURRETOURBALMA.Value = Range("EV223")
End If
End Sub
Dans "Feuilles" --> TDB
Private Sub UserForm_Initialize()
RECEPTION_BALMA.ControlSource = "ET223"
RETOUR_BALMA.ControlSource = "EU223"
With Worksheets("TABLEAU DE BORD")
Range("EV223").Formula = .Range("FK223")
Range("EV223").Value = .Range("EV223").Value
End With
NBJOURRETOURBALMA.Value = Range("EV223")
End Sub
J'espère avoir été suffisamment explicite.
Avec tous mes remerciements pour votre aide.