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 :

couleur en VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    Septembre 2011
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2011
    Messages : 6
    Par défaut couleur en VBA
    Bonjour,

    je voudrais crée une formule ou un code VBA qui permettrai de retire les informations des cellule dont le fond est jaune ou gris et les copiers sur une autre feuille. y a t il moyen d'apres vous???

    Merci d'avance

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 176
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 176
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Voici un exemple avec une procédure Main qui invoque une procédure CopyIsColor en lui passant les arguments
    FromRng - La plage à parcourir
    Color - Le code RGB à tester
    toRange - L'adresse où copier la valeur (ici la couleur est copiée aussi)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Option Explicit
    Sub Main()
     Dim cFrom As Range, cTo As Range
     With ThisWorkbook
      Set cFrom = .Worksheets("Feuil1").Range("B3:B10")
      Set cTo = .Worksheets("Feuil2").Range("A1")
     End With
     CopyIsColor cFrom, vbYellow, cTo
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub CopyIsColor(FromRng As Range, color As Long, toRange As Range)
     Dim cel As Range
     For Each cel In FromRng
      If cel.Interior.color = color Then
       cel.Copy toRange.Offset(toRange.CurrentRegion.Rows.Count)
      End If
     Next
    End Sub
    [EDIT]
    Si tu veux copier la valeur sans la mise en forme
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
       ' cel.Copy toRange.Offset(toRange.CurrentRegion.Rows.Count)
       toRange.Offset(toRange.CurrentRegion.Rows.Count) = cel
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

Discussions similaires

  1. Couleur bulles VBA
    Par awa123 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/10/2012, 16h33
  2. problèmes de couleurs avec VBA
    Par flamel dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 05/11/2010, 21h53
  3. nom des couleurs en vba
    Par calvi2002 dans le forum Général VBA
    Réponses: 3
    Dernier message: 15/07/2009, 09h01
  4. MEFC par Excel & Reconnaissance couleurs par VBA
    Par westeban29 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 11/01/2008, 10h31
  5. Afficher une palette de couleur via VBA
    Par bernardmichel dans le forum VBA Access
    Réponses: 2
    Dernier message: 23/08/2007, 14h21

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