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 :

mettre une mise en forme dans des tableaux complexe [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2013
    Messages
    238
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2013
    Messages : 238
    Points : 116
    Points
    116
    Par défaut mettre une mise en forme dans des tableaux complexe
    Bonjour a tous

    Donc pour ceux qui me connaisses, je suis toujours sur mes tableaux ^^

    Donc la je voudrait que quand dans ma colonne A de mes tableaux la somme est supérieure (et pas égale) à 0 lors le titre ce met en foncé

    Bien sur j'ai plusieurs tableau avec des titres différents
    Mais le titre ce trouve a chaque fois juste avant du titre de la colonne A qui est NOMBRE

    j'avais un code pour un tableau mais j'ai 35tableaux donc copier coller, non merci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    For j = 17 To 669 Step 1 '669
        If j > 19 And j < 44 Then
            Range("A17:K17").Select
            Selection.FormatConditions.Delete
            'Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=$A$19+$A$20+$A$21+$A$22+$A$23+$A$24+$A$25+$A$26+$A$27+$A$28+$A$29+$A$30+$A$31+$A$32+$A$33+$A$34+$A$35+$A$36+$A$37+$A$38+$A$39+$A$40+$A$41+$A$42+$A$43+$A$44>0"
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A" & j & ">0"
            Selection.FormatConditions(1).Interior.ColorIndex = 32
            Else
        End If
    Next

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Points : 5 901
    Points
    5 901
    Par défaut
    Bonjour,

    Je ne comprends pas ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    For j = 17 To 669 Step 1 '669
        If j > 19 And j < 44 Then
    Pourquoi ne pas y aller directement ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For j = 20 To 43 Step 1
    Pour le reste, je n'ai pas très bien compris où était ton problème...
    Peux-tu expliquer un peu plus ?

  3. #3
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2013
    Messages
    238
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2013
    Messages : 238
    Points : 116
    Points
    116
    Par défaut
    bha enfaite, je t'explique, j'ai des tableau qui font la même dimension en largeur (A:K) mais qui ne font pas la même dimension en longueur.

    et le premier tableaux commence en lignes 17
    et le dernier tableau fini en lignes 669

    j'ai besoin de faire une macro dynamique pour que quand l'un des tableaux s'agrandira, tout le code ne soit pas à retaper.
    Bon malheureusement je suis loin d'être un pro en vba, donc la dynamique des mes macro est a revoir ^^

  4. #4
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Points : 5 901
    Points
    5 901
    Par défaut
    Fie-toi au code fourni par Daniel.C dans une précédente question de ta part.
    Il t'a montré comment rechercher chaque tableau avec Find et FindNext.
    Il ne te reste qu'à te positionner par rapport à ligne qui contient NOMBRE

  5. #5
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2013
    Messages
    238
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2013
    Messages : 238
    Points : 116
    Points
    116
    Par défaut
    heu wai mais la il y a plus de variable
    je ne sais pas comment faire du tout !!

    je voulais essayer de faire la même chose mais c'est trop hard, je suis trop novice pour y arriver

  6. #6
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Points : 5 901
    Points
    5 901
    Par défaut
    Si tes données ne sont pas trop confidentielles, peut-être que tu pourrais joindre ton fichier. Ça aiderait ceux qui pourraient te donner un coup de main.

  7. #7
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2013
    Messages
    238
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2013
    Messages : 238
    Points : 116
    Points
    116
    Par défaut
    Donc voila je t'ai mis 3 tableaux et j'ai changé toute les valeurs car c'est quand même un minimum confidentielle ^^
    Fichiers attachés Fichiers attachés

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

Discussions similaires

  1. mettre une appli en icone dans la barre des taches
    Par oeil de nuit dans le forum Windows
    Réponses: 10
    Dernier message: 14/08/2006, 13h43
  2. Mettre une colonne en couleur dans un form datasheet
    Par le lynx dans le forum Access
    Réponses: 3
    Dernier message: 24/05/2006, 16h17
  3. Mise en forme dans un RTF via une syntaxe personnelle
    Par sqwalichou dans le forum Autres langages
    Réponses: 2
    Dernier message: 24/02/2006, 22h19
  4. Sauvegarder une mise en forme dans une RichTextBox
    Par jacma dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 29/12/2005, 12h19

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