Récuperer données de la cellule de droite

Version imprimable

22/09/2010, 09h34
flosauveur69

Récuperer données de la cellule de droite

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
22/09/2010, 17h22
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.
22/09/2010, 17h26
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...
22/09/2010, 18h00
flosauveur69

1 pièce(s) jointe(s)

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

Re,

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

Code:

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

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

Code:

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