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 :

Macro report de donnée et incrémentation [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51
    Par défaut Macro report de donnée et incrémentation
    Bonjour,

    J'ai 2 feuilles,
    FeDo et FeT, que j'ai défini dans mon code,

    Dans FeT, j'ai un tableau en B10:K29,

    J'aimerai reporter des valeurs dans ce tableau à partir des colonnes T,U,V de FeDo,

    En faite,

    Si en T de FeDo, j'ai un chiffre supérieur à 0, alors j'inscris en B11 de FeT, la valeur de la cellule A qui se trouve sur la même ligne que le chiffre supérieur à 0.
    Pareil pour U mais cette fois en F11 et V en I11,

    Le problème c'est que j'aimerai qu'il passe automatiquement à la ligne si il y a déjà une valeur inscrite sur la FeT



    J'étais partie sur un code avec For Next .. mais je n'arrive à .. rien :/

    J'ai un code qui pourrait m'inspirer mais rien n'en ressort ..


    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
    17
    18
    19
    20
    a = 2
                                    Do While Cells(a, 2) <> ""
                                    a = a + 1
                                    Loop
     
     
                            i = 2 
                                    Do While FeDo.Cells(i,1) <> "" 
     
                                    If Cells(i, 21) > 0 Then
     
    FeT.Cells(a,2).Value=FeDo.Cells(i,1).Value
     
                                    a = a + 1
     
                                    End If
     
                            i = i + 1
     
            Loop
    Le problème c'est qu'il peut arriver que pdt 5-10 lignes il n'y ait rien d'inscrit dans les colonnes...

    Merci d'avance pour vos réponse et conseils !

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Peux tu fournir un fichier test avec un exemple en fin de traitement

  3. #3
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51
    Par défaut
    Voilà le fichier joint,

    J'ai juste pris les deux feuilles du fichier original et mis un exemple dedans !Et il n'y a pas les macros non plus
    Fichiers attachés Fichiers attachés

  4. #4
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Ok, avec le fichier je comprend mieux.

    Pour ajouter une ligne dans la colonne F
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("F11").Offset(Application.WorksheetFunction.CountA(Range("F11:F29")), 0).Value = "TEST"
    Cela devrait te mettre sur la voie

  5. #5
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51
    Par défaut
    Merci,

    Mais c'est normale que ça s'écrive en F15 le "TEST" uniquement ?

  6. #6
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    oui, c'est normal, il faut faire adapter cette ligne pour les autres colonnes

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 67
    Dernier message: 04/07/2015, 09h27
  2. [XL-2003] Macro de synthèse avec report de données
    Par Edaine dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 15/06/2011, 16h57
  3. [VBA-E] Macro Récupération de donnée afin d'en faire un rapport.
    Par strifer dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 25/07/2006, 15h37
  4. [VBA]macro Word avec données de MySQL
    Par Taz_8626 dans le forum VBA Word
    Réponses: 3
    Dernier message: 17/07/2006, 11h39
  5. [Crystal Report] sub et main report (récupération données)
    Par ptitsoleil87 dans le forum SAP Crystal Reports
    Réponses: 1
    Dernier message: 06/07/2006, 12h04

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