IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Récuperer données de la cellule de droite


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Septembre 2010
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Septembre 2010
    Messages : 12
    Par défaut 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

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    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.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  3. #3
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 176
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 176
    Billets dans le blog
    2
    Par défaut
    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...

  4. #4
    Membre averti
    Inscrit en
    Septembre 2010
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Septembre 2010
    Messages : 12
    Par défaut
    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
    Fichiers attachés Fichiers attachés

  5. #5
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 176
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 176
    Billets dans le blog
    2
    Par défaut
    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

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    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

Discussions similaires

  1. Récuperer une donnée dans une cellule excel
    Par zorobab dans le forum VBA Outlook
    Réponses: 0
    Dernier message: 06/01/2010, 16h13
  2. Récuperer donnée MySQL dans une cellule
    Par me-to-you93 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/02/2008, 12h58
  3. [JTable] Récupérer données d'une cellule éditée
    Par lilou77 dans le forum Composants
    Réponses: 9
    Dernier message: 14/09/2005, 10h34
  4. Réponses: 13
    Dernier message: 28/07/2005, 13h11
  5. Réponses: 6
    Dernier message: 15/04/2004, 11h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo