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 :

Copier tableau si 1ière et dernière cellule de la 2ième ligne ont une valeur


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    ouvrier chauffeur bus
    Inscrit en
    Octobre 2018
    Messages
    50
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : ouvrier chauffeur bus
    Secteur : Transports

    Informations forums :
    Inscription : Octobre 2018
    Messages : 50
    Par défaut Copier tableau si 1ière et dernière cellule de la 2ième ligne ont une valeur
    Bonjour,
    Je sollicite à nouveau votre aide pour réaliser une nouvelle macro que je tente d’adapter. J’ai 1 fichier avec 2 feuilles.
    Dans la Feuil1, il y a 3565 tableaux de 14 lignes et 325 colonnes par tableau
    TAB_1 (A1 : IA14)
    TAB_2 (A15 : IA28) …
    TAB_3565 (A49897 : IA49910)
    J’aimerais que la macro vérifie si la 1ière cellule et la dernière cellule de la 2ière ligne de chaque tableau ont un fond vert. Si c’est le cas, copier le tableau dans la Feuil2. Et ce pour les 3565 tableaux.
    Il y a déjà une macro que j’ai essayé d’adapter, hélas sans succès.
    Exemples :
    A) TAB_1 (A1 : IA14) : la 1ière cellule (AI5_fond blanc) et la dernière cellule (CZ5_fond blanc) ne répondent pas à la condition (1ére cellule et dernière cellule = fond vert) ne rien faire et passez au 2ième tableau.
    B) TAB_2 (A15 : IA28) : la 1ière cellule (AI19_fond vert) et la dernière cellule (CL19_fond blanc) ne répondent pas à la condition (1ére cellule et dernière cellule = fond vert) ne rien faire et passez au 3ième tableau.
    C) TAB_3 (A29 : IA42) : la 1ière cellule (AJ33_fond vert) et la dernière cellule (CR33_fond vert) répondent à la condition (1ére cellule et dernière cellule= fond vert) copier le TAB_3 à la Feuil2 et changer le fond vert en fond rouge pour les cellules (AJ33) et (CR33) ensuite passez au 4ième tableau.
    D) TAB_4 (A43 : IA56) : la 1ière cellule (AJ47_fond blanc) et la dernière cellule (DH47_fond vert) ne répondent pas à la condition (1ére cellule et dernière cellule = fond vert) ne rien faire et passez au 5ième tableau.
    E) TAB_5 (A57 : IA70) : la 1ière cellule (AQ61_fond blanc) et la dernière cellule (DF61_fond blanc) ne répondent pas à la condition (1ére cellule et dernière cellule = fond vert) ne rien faire et passez au 6ième tableau.
    F) TAB_6 (A71 : IA84) : la 1ière cellule (AI75_fond vert) et la dernière cellule (DG75_fond vert) répondent à la condition (1ére cellule et dernière cellule= fond vert) copier le TAB_6 à la Feuil2 et changer le fond vert en fond rouge pour les cellules (AI75) et (DG75) ensuite passez au 7ième tableau.
    G) Et ainsi de suite pour les 3565 tableaux.
    Dans le fichier joint, il y a la macro (M_1) que Thauthème à réaliser qui exécute les mêmes tâches mais pour la 1ière ligne de chaque tableau. Encore merci parce qu’elle fonctionne à merveille. Elle traite les 3565 tableaux en +/- 10 sec.
    Il y a également une macro (M_2) que j’ai essayé d’adapter sans succès.
    En espérant avoir été claire.
    Je vous remercie d’avance
    GEORGE_V
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [XL-2016] Sélectionner la dernière cellule de la première ligne
    Par Yoann91590 dans le forum Excel
    Réponses: 4
    Dernier message: 10/08/2018, 16h12
  2. Réponses: 10
    Dernier message: 03/03/2018, 21h03
  3. Dernière cellule non vide et ligne correspondante
    Par Phixidor dans le forum Excel
    Réponses: 3
    Dernier message: 29/03/2013, 12h53
  4. [XL-2003] Recopier une ligne selon une valeur d'une cellule donnée.
    Par bokgkik dans le forum Excel
    Réponses: 2
    Dernier message: 07/12/2011, 20h00
  5. Réponses: 1
    Dernier message: 12/12/2007, 14h38

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