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 :

Mise en forme de cellules


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Septembre 2018
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 33
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Septembre 2018
    Messages : 16
    Par défaut Mise en forme de cellules
    Bonjour,

    J´ai cree une macro qui complete plusieurs fichiers excel à partir d´infos qui sont situés sur le fichier excel où est le code.

    La macro crée une nouvelle ligne et la complète.
    Cependant j´aimerai aussi qu´elle ajoute des bordures pour la nouvelle ligne crée mais je n´arrive pas à trouver une formulation simple pour ajouter des bordures à la derniere ligne non vide

    Avez vous quelques idee ?

    Merci beaucoup

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    Bonjour mariet, la forum
    essayer avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub encadrer_si()
    Dim cellule As Range
    For Each cellule In Range("B2:H25")
    If cellule <> "" Then
    cellule.Borders.Weight = xlThin
    End If
    Next
    End Sub

  3. #3
    Membre averti
    Femme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Septembre 2018
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 33
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Septembre 2018
    Messages : 16
    Par défaut
    Citation Envoyé par BENNASR Voir le message
    Bonjour mariet, la forum
    essayer avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub encadrer_si()
    Dim cellule As Range
    For Each cellule In Range("B2:H25")
    If cellule <> "" Then
    cellule.Borders.Weight = xlThin
    End If
    Next
    End Sub
    Oui parfait ca marche bien, merci

  4. #4
    Membre averti
    Femme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Septembre 2018
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 33
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Septembre 2018
    Messages : 16
    Par défaut
    Et une autre petite question,

    Sur cette derniere ligne non vide, j´aimerai fusionner à chaque fois la cellule de la colone B et celle de la colonne C,
    Avez vous une idee pour automatiser cela ?

    Merci

  5. #5
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par mariet18 Voir le message
    Bonjour,

    Créez une macro et enregistrez les séquences pour réaliser une bordure sur l'aire de votre nouvelle ligne, arrêtez la macro et regardez le code.
    Sinon, je faisais comme vous avant de connaître les tableaux sous forme de base de données. Vous n'avez plus à gérer l'encadrement avec un ListObject.

  6. #6
    Membre averti
    Femme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Septembre 2018
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 33
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Septembre 2018
    Messages : 16
    Par défaut
    Citation Envoyé par Eric KERGRESSE Voir le message
    Bonjour,

    Créez une macro et enregistrez les séquences pour réaliser une bordure sur l'aire de votre nouvelle ligne, arrêtez la macro et regardez le code.
    Sinon, je faisais comme vous avant de connaître les tableaux sous forme de base de données. Vous n'avez plus à gérer l'encadrement avec un ListObject.

    oui j´ai déjà essaye de faire ca mais le code est un peu long et selectionne des cases particulieres alors que le nom de la ligne est variable en fonction des fichiers ..

  7. #7
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par mariet18 Voir le message
    oui j´ai déjà essaye de faire ca mais le code est un peu long et selectionne des cases particulieres alors que le nom de la ligne est variable en fonction des fichiers ..
    Quel code avez-vous réussi à faire ?

Discussions similaires

  1. fonction pour la mise en forme de cellule
    Par alexkickstand dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/09/2007, 23h39
  2. Réponses: 3
    Dernier message: 19/07/2007, 09h19
  3. Mise en forme des cellules d'une flexgrid
    Par ecarbill dans le forum VB 6 et antérieur
    Réponses: 12
    Dernier message: 30/08/2006, 10h57
  4. [VBA-E] mise en forme des cellules
    Par Cirdan Telemnar dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/07/2006, 19h44
  5. [POI] difficultés dans la mise en forme des cellules
    Par corbier32 dans le forum Documents
    Réponses: 2
    Dernier message: 03/05/2006, 09h48

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