Bonjour le Forum,
J'ai une procédure (de Mr ouskel'n'or) pour rechercher des données dans une plage de dates uniquement lorsque l'année correspond, la valeur qu'elle renvoie est dans un format "$A$1:$A$52" or tout mon programme travail avec des valeurs style "=Données!R1C1:R"52"C1"
Ma question est il possible de convertir ou existe il une solution de recherche qui me donnerait une repose dans mon format de coordonnée ?
De plus lors de la recherche, dans la reponse il y a a chaque fois la plage 1 soit $A$1 qui s'affiche hors j'en ai pas besoin comment faire pour n'affiche que la plage de réponse
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub test() Dim serie1 As Range, Cell As Range 'Pour utiliser Union, la première cellule de la série doit être précisée Set serie1 = Range("A1") With Worksheets("Feuil1") For Each Cell In .Range("A1:A" & .Range("A" & .Columns("A").Rows.Count).End(xlUp).Row) If IsDate(Cell) Then 'traite les cellules vides If Year(Cell) = 2006 Then Set serie1 = Application.Union(serie1, Cell) End If End If Next End With MsgBox serie1.Address End Sub
Partager