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 :

aide sur la création d'une macro pour un tableau


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2019
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2019
    Messages : 12
    Par défaut aide sur la création d'une macro pour un tableau
    Bonjour,
    Sauriez vous comment faire pour :
    Je vais vous expliquer avec une mise en situation.

    Feuil!6 ,la cellule E9 doit aller dans la colonne F de la feuil!8.
    Mais , Feuil!6, la cellule E10 doit elle aussi aller dans la colonne F de la feuil!8 mais doit se placer en dessous du ressultat enregistrer avant.
    Et la meme chôse se répéte jusqu'a la cellule E12 de la feuil!6 qui va aussi en F de la feuil!8.

    J'ai deja un bout de macro et je voudrais adapter la solution dessus.

    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
    Option Compare Text
     
    Sub Valide()
        Dim DerVal As Long
        Set f1 = Sheets("Feuil6")
        Set f2 = Sheets("Feuil8")
        Application.ScreenUpdating = False
        Derligf2 = f2.[B100000].End(xlUp).Row
        If Derligf2 < 3 Then Derligf2 = 2
        f2.Cells(Derligf2 + 1, "J") = f1.[E8] + f1.[E9] + f1.[E10] + f1.[E11]
        f2.Cells(Derligf2 + 1, "B") = f1.[E3]
        f2.Cells(Derligf2 + 1, "A") = f1.[B3]
        f2.Cells(Derligf2 + 1, "C") = f1.[B5]
        f2.Cells(Derligf2 + 1, "D") = f1.[B6]
        f2.Cells(Derligf2 + 1, "E") = f1.[E6]
     
     
     
    End Sub
    Merci de votre aide et de votre temps
    Coordialement

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par Destroyeur76 Voir le message
    Feuil!6 ,la cellule E9 doit aller dans la colonne F de la feuil!8.
    Mais , Feuil!6, la cellule E10 doit elle aussi aller dans la colonne F de la feuil!8 mais doit se placer en dessous du ressultat enregistrer avant.
    Et la meme chôse se répéte jusqu'a la cellule E12 de la feuil!6 qui va aussi en F de la feuil!8.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Feuil6").Range("E9:E12").Copy Worksheets("Feuil8").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)

  3. #3
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2019
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2019
    Messages : 12
    Par défaut
    bonjour, Menhin

    J'ai essayer de rentrer ton code, mais il me marque débegage et me le souligne en fluo Jaune , je n'ai pas réussi a le faire fonctionner.
    Mais je te remerci pour ce code et le temps que tu a passer a le faire.

  4. #4
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Quel est le message d'erreur ?
    Est-ce qu'il y a déjà une cellule non vide dans la colonne F de Feuil8 ?

  5. #5
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2019
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2019
    Messages : 12
    Par défaut
    bonjour, MENHIR,
    J'ai déja la cellule F1 occuper et la F2 d'occuper et le message d'erreurs est :IMPOSSIBLE DE MODIFIER UNE CELLULE FUSIONE.
    J'ai essayer de modifier ton code a partir du F en remétant (If.derligf2 <3 then ...) mais sa na pas voulue fonctionner.
    Mon code ressemble a sa, si tu a une idée ? , je te remercie pour le temps passer sur mon probléme. :

    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
    Option Compare Text
     
    Sub Valide()
        Dim DerVal As Long
        Set f1 = Sheets("Feuil6")
        Set f2 = Sheets("Feuil8")
        Application.ScreenUpdating = False
        Derligf2 = f2.[B100000].End(xlUp).Row
        If Derligf2 < 3 Then Derligf2 = 2
        f2.Cells(Derligf2 + 1, "J") = f1.[E8] + f1.[E9] + f1.[E10] + f1.[E11]
        f2.Cells(Derligf2 + 1, "B") = f1.[E3]
        f2.Cells(Derligf2 + 1, "A") = f1.[B3]
        f2.Cells(Derligf2 + 1, "C") = f1.[B5]
        f2.Cells(Derligf2 + 1, "D") = f1.[B6]
        f2.Cells(Derligf2 + 1, "E") = f1.[E6]
    Worksheets("Feuil6").Range("E9:E12").Copy Worksheets("Feuil8").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)
     
     
    End Sub

  6. #6
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par Destroyeur76 Voir le message
    le message d'erreurs est :IMPOSSIBLE DE MODIFIER UNE CELLULE FUSIONE.
    Je pense que le message est clair : ce sont tes fusions de cellules qui mettent le boxon.

  7. #7
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2019
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2019
    Messages : 12
    Par défaut
    Je pense que le message me dit sa car dans ma collone F , la ligne 2 est une cellule fusioner.
    Mais sur toutes mes collones la ligne 2 est fusionner , alor comment sa se fait que les autres formules fonctionnent ?

    merci de ton temps passer a m'aider.

  8. #8
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Les autres lignes sont des affectations de valeur.
    Cette nouvelle ligne est une copie de cellules.
    Ce n'est pas la même chose.

  9. #9
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2019
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2019
    Messages : 12
    Par défaut
    j'ai supprimer la fusion et maintenant sa me marque : erreur définit par l'applie ou par l'objet , donc cette formule est inutilisable.
    ou il y a une erreur par rapport a mes autre action contenue dans ma macro qui la rend inutilisable.
    Le but est que cette nouvelle ligne de code s'incorpore avec les anciennes.

  10. #10
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2019
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2019
    Messages : 12
    Par défaut
    Bonjour,

    Je vient de comprendre le probléme, ce qui a été fait c'est que les cellule sont prise en entiere ... comme un copier coller de toute la cellule.
    Mais ce que je veut faire moi, c'est casiment la meme chause mais je ne veut prendre que les valeurs contenue dans ces cellule, pas le reste et que sa fasse bien une boucle.

  11. #11
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Pour ne copier que les valeur, tu peux utiliser la méthode PasteSpecial(xlPasteValues).
    https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

    Pour faire une boucle, tout est expliqué ici : http://silkyroad.developpez.com/vba/boucles/
    Et aussi ici : http://bidou.developpez.com/article/VBA/

Discussions similaires

  1. [XL-2010] Aide sur la création d'une macro
    Par wonder68 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 17/05/2015, 19h05
  2. [XL-2003] création d'une macro pour formulaire
    Par Amadeon dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 18/05/2010, 12h56
  3. aide sur la création d'une BD
    Par missdev dans le forum Accès aux données
    Réponses: 4
    Dernier message: 27/07/2009, 19h36
  4. Création d'une macro pour remplissage auto
    Par Laura-c dans le forum Macros et VBA Excel
    Réponses: 25
    Dernier message: 19/06/2008, 16h40
  5. Aide sur la création d'une bdd sous MySQL
    Par Shellai-93 dans le forum Débuter
    Réponses: 20
    Dernier message: 18/08/2006, 11h15

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