Rechercher une date (Suite)
Rebonjour de la Martinique
Voilà, maintenant que cela fonctionne, j'aimerais ecrire dans la colonne en dessous a partir du moment ou la cellule n'est pas vide, sinon celle d'en dessous.
Le hic c'est que se sont des cellules fusionner. Et avec ce code je selectionne toujours la même cellule.
Merci d'avance pour votre aide
Code:
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
| Private Sub CB_OK2_Click()
Dim TheDate As Long, Index As Variant
TheDate = Range("A4")
With Worksheets("Planning")
Index = Application.Match(TheDate, .Range(.Cells(3, 1), .Cells(3, .Columns.Count)), 0)
If IsError(Index) Then
MsgBox "Résultat négatif. Rien trouvé.", _
vbOKOnly + vbInformation, _
"Résultat"
Else
'MsgBox "La date '" & Format(TheDate, "dd/mm/yyyy") & "' existe. Elle est située en cellule '" & _
'.Cells(3, Index).Address(0, 0) & _
'"' de la plage de cellules.", _
'vbInformation + vbOKOnly, _
'"Résultat"
.Cells(3, Index).End(xlDown).Offset(1, 1).Select
End If
End With
'ActiveCell = "Test Cellule"
End Sub |