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 :

Reproduire la mise en forme d'une ligne ajoutée à un tableau


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2015
    Messages : 113
    Par défaut Reproduire la mise en forme d'une ligne ajoutée à un tableau
    Bonsoir tout le monde,

    SVP je veux ajouter une astuce à ce code là qui me permet d'ajouter une ligne à une colonne d'un tableau ,
    ce code est inséré dans un bouton d'un userform qui à partir d'entrer le nouveau nom de la nouvelle zone dans textbox1, il me permet juste de la rajouter dans la colonne de la feuille ( cette feuille contient déjà des cellules remplies:
    Au début je veux la rajouter et puis copier la mise en forme de la cellule précédente , puis je désie bien mettre en forme les cellules qui suivent cete cellule des mois de l'année

    exemple :
    Nom : av.PNG
Affichages : 4361
Taille : 23,7 KoNom : ap.PNG
Affichages : 4091
Taille : 13,2 Ko
    Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Private Sub CommandButton1_Click()
    Unload Me
    With Me
        ThisWorkbook.Worksheets("AuditMensuel").Range("A" & Rows.Count).End(xlUp)(2) = .TextBox1

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Que te dit enregistreur de macro?
    Si tu sélectionne la ligne précédente;que tu fais un copier et un collage spécial sur la dernière ligne?

  3. #3
    Membre Expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 266
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 266
    Par défaut
    Bonjour à tous,

    Tu veux à tout prix par macro ?
    Parce que si tu as 2010 il suffit de déclarer ta plage en Tableau (ruban insertion) et l'ajout d'une donnée te mettra les formats et les formules sur la nouvelle ligne.

    eric

  4. #4
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2015
    Messages : 113
    Par défaut
    @eriiic
    eric SVP , pourriez vous expliquer davantage ? parce que je n'ai pas bien saisi votre réponse merciii

    @rdurupt
    Bonjouuur ,
    j'aimerai bien éviter l'enregistreur de macro pcq j'ai tellement de macro insérées dans les boutons

  5. #5
    Membre émérite
    Homme Profil pro
    Programmeur analyste
    Inscrit en
    Février 2009
    Messages
    546
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Canada

    Informations professionnelles :
    Activité : Programmeur analyste
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 546
    Par défaut
    Citation Envoyé par rihab92 Voir le message
    Au début je veux la rajouter et puis copier la mise en forme de la cellule précédente , puis je désie bien mettre en forme les cellules qui suivent cete cellule des mois
    Bonjour,
    je ne suis pas certain d'avoir compris,
    vous pouvez toujours essayé cela.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub CommandButton1_Click()
        With ThisWorkbook.Worksheets("AuditMensuel")
            derniere_ligne = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("A" & derniere_ligne & ":M" & derniere_ligne).AutoFill Destination:=.Range("A" & derniere_ligne & ":M" & derniere_ligne + 1), Type:=xlFillDefault
            .Range("A" & derniere_ligne + 1 & ":M" & derniere_ligne + 1).ClearContents
            .Range("A" & derniere_ligne + 1) = TextBox1
        End With
        Unload Me
    End Sub

  6. #6
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Pourtant l'enregistreur de macro te fournirait une base de code que tu portais adapter pour en faire une méthode générique!

    Mais je comprend que le plus important n'est pas de comprendre mais d'avoir une Macro qui fonctionne!

  7. #7
    Membre Expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 266
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 266
    Par défaut
    Bonjour à tous,

    pourriez vous expliquer davantage ? parce que je n'ai pas bien saisi votre réponse merciii
    Voir ici : http://silkyroad.developpez.com/excel/tableau/
    eric

  8. #8
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2015
    Messages : 113
    Par défaut
    Citation Envoyé par rdurupt Voir le message
    Bonjour,
    Pourtant l'enregistreur de macro te fournirait une base de code que tu portais adapter pour en faire une méthode générique!

    Mais je comprend que le plus important n'est pas de comprendre mais d'avoir une Macro qui fonctionne!

    Merci pour votre aide. Pourtant, ce commentaire est assez sévère

    bonne journnée

  9. #9
    Invité
    Invité(e)
    Par défaut
    bonjour,
    oui je le reconnais, mais l'enregistreur de macro est un bon didacticiel!
    Code enregistreur de macro : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub Macro1()
    '
    ' Macro1 Macro
    '
     
    '
        Rows("1:1").Select
        Selection.Copy
        Range("A2").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
    End Sub
    le même code retravaillé!
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test()
    CopyFormat Rows("1:1"), Range("A2")
    End Sub
     
    Sub CopyFormat(Source As Range, Cible As Range)
    Source.Copy
    Cible.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End Sub

  10. #10
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2015
    Messages : 113
    Par défaut
    gnaiiiiin , merci beaaaaaucoup ,

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

Discussions similaires

  1. [XL-MAC 2011] Check-box qui active une mise en forme sur la ligne la contenant
    Par FlorentP dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 04/09/2014, 23h43
  2. Mise en surbrillance d'une ligne d'un tableau
    Par pc75 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 0
    Dernier message: 19/08/2011, 16h48
  3. [CR 2008] Section Details : alterner la mise en forme d'une ligne à l'autre
    Par mohamed301084 dans le forum SAP Crystal Reports
    Réponses: 7
    Dernier message: 27/03/2010, 18h55
  4. Copier/coller une mise en forme d'une ligne compléte en vba
    Par ptitrault dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 16/01/2009, 15h38
  5. mise en forme d'une cellule ajouter avec insertRow
    Par vacknov dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 31/07/2007, 08h33

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