Discussion :

[flosauveur69]

Bonjour,

Dans une cellule je voudrais récupérer les infos d'une cellule qui est à droite de celle cité.

En clair:
Dans la cellule A1 du fichier 1, je voudrais récupérer ce qui est dans la cellule à droite de la cellule où il y a écrit "date" du fichier 2.

Merci de votre aide

[AlainTech]

Bonjour,

Pour ce que je peux en comprendre, vu la clarté de l'énoncé (que signifie, pour toi, la cellule citée?), F1 sur le mot Offset devrait t'aider.

[tototiti2008]

Bonjour flosauveur, bonjour Alaintech,

Oui, ou une autre façon de comprendre serait éventuellement d'utiliser la fonction RECHERCHEV

Mais l'énoncé est tellement clair...

[flosauveur69]

Re,

voici un exemple pour être plus clair:

alors en fait je voudrais récupérer toutes les cellules qui sont à droite des cellules "DATE:" et les mettre dans l'onglet suivant dans un tableau les unes après les autres et dans l'autre. Je vous met le fichier joint avec en rouge ce que je veux récupérer. Je vous y ai mis qu'un bout car en fait, il y a une multitude de date..

merci

[tototiti2008]

Re,

ça correspond plus à l'Offset proposé par Alain :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim i As Long, j As Long
    j = 2
    For i = 1 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
        If Sheets("Feuil1").Range("A" & i).Value Like "Date:*" Then
            Sheets("Feuil2").Range("A" & j).Value = Sheets("Feuil1").Range("B" & i).Value
            j = j + 1
        End If
    Next i
End Sub

[mercatog]

Autre manière par filtre automatique (mieux si nombre de données est assez conséquent)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .AutoFilterMode = False
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A1:B" & LastLig).AutoFilter field:=1, Criteria1:="Date:*"
    On Error Resume Next
    .Range("B2:B" & LastLig).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil2").Range("A2")
    On Error GoTo 0
    .AutoFilterMode = False
End With