Bonjour Le forum,
j'ai un petit soucis sur la recherche d'une date, une fois trouvée la cellule trouvée en rapport avec la date, action je sélectionne la cellule +1 (en rapport avec la ligne créee (7))
pouvez vous m'aider sur le petit code ci-dessous ( partie soulignée) le reste fonctionne
je vous remercie par avance.
thierry
j'ai un petit soucis sur la recherche d'une date, une fois trouvée la cellule trouvée en rapport avec la date, action je sélectionne la cellule +1 (en rapport avec la ligne créee (7))
pouvez vous m'aider sur le petit code ci-dessous ( partie soulignée) le reste fonctionne
je vous remercie par avance.
thierry
VB:
Private Sub Dateintervention()
Dim TheDate As Long, Index As Variant
Dim s As Variant
Dim d As Date
Dim Calendrier As Date
Dim c As Variant
Dim cellule As Range
Dim FeuillePrecedente As String
Dim Dateintervention As Variant
Dim NbHeures As Variant
Dim NbJours As Variant
FeuillePrecedente = ActiveSheet.Name
d = Dateintervention
lrow = Selection.Row()
TheDate = Dateintervention
Dateintervention = InputBox("Quelle est la date d'intervention ?", "Date d'intervention", "")
Sheets("Recap Dev.Fac").Range("B2").Value = Dateintervention
Sheets("Recap Dev.Fac").Range("B2").NumberFormat = "dd/mm/yy"
Range("B16").Value = Dateintervention
Range("B16").NumberFormat = "dd/mm/yy"
Sheets("Planning ").Select
Rows("7").Select
lrow = Selection.Row()
Rows(lrow).Select
Selection.Copy
Rows(lrow + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.EnableEvents = False
Range(Cells(7, 1), Cells(7, 7)).Interior.ColorIndex = 34
Range("A7").Value = Sheets(FeuillePrecedente).Range("B2").Value
Range("C7").Value = Sheets(FeuillePrecedente).Range("F4").Value
Range("D7").Value = Sheets(FeuillePrecedente).Range("H4").Value
Range("E7").Value = Sheets(FeuillePrecedente).Range("F5").Value
[U] For Each s In ActiveWorkbook.Sheets
With Sheets("Planning ").Range(Cells(3, 8), Cells(3, 371))
Set c = .Find(What:=Format(d, "dd/ mmmm /yyyy"), LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
cellule.Interior.ColorIndex = 4
Sheets("Planning ").Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s[/U]
NbJours = InputBox("Quel est le nombre de jours prévu ?", "Nombre de jours", "")
Range("G7").Value = NbJours
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Application.EnableEvents = False
End Sub