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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Sub rechercheHorizon()
Dim MaVariable As String, CelluleDate As Range, Horizon As Range 'Déclarations
Sheets("Planning").Activate
MaVariable = InputBox("Renseigner la date ", "Jour du début de l'horizon PHP", Date)
Cells(1, 1).Select
ok = False
If MaVariable <> "" Then
If IsDate(MaVariable) Then
ok = True
MaVariable = Format(MaVariable, "yyyy-mm-dd")
End If
End If
If ok = False Then
MsgBox MaVariable & vbLf & "n'est pas valide"
Exit Sub
End If
Range("C3").NumberFormat = "m/d/yyyy"
Range("C3").Value = MaVariable
Dim Quoi As Date
Quoi = Range("C3").Value
Rows(6).NumberFormat = "m/d/yyyy"
Set CelluleDate = Sheets("Planning").Rows(6).Find(What:=Quoi, LookIn:=xlFormulas, LookAt:=xlWhole) 'La variable "cellulemois" est égale à la cellule dont la valeur est égale à la variable Mois que l'on a saisie plus tôt
If Not CelluleDate Is Nothing Then 'Si pas de résultat trouvé, la variable cellulemois est nulle
Cells(CelluleDate.Row, CelluleDate.Column).Offset(1, 0).Select 'Selection la cellule qui se trouve 4 cases en dessous de la cellule trouvée avec la fonction ".find"
Set Horizon = Range(ActiveCell, ActiveCell.Offset(19, 8)) 'Définir "Horizion" comme tableau. Il part de la cellule selectionnée et fait 19 lignes + 8 colonnes
Horizon.Select
End If 'Fin de condition
End Sub |
Partager