Macro à compléter

Zeni -
Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention - 17 oct. 2016 à 23:40

Bonjour à tous

J'ai fait une macro dans le but est à l'aider d'une userform de créer une ligne sur un tableau lorsque j'appuie dessus et je souhaiterais que la ligne soit créer à la fin du tableau uniquement mais je ne sais pas comment modifier la formule. Quelqu'un a-t-il une solution à me proposer ?

Le tableau est de C12 à G30.

Sub Lignes()
'
' Lignes Macro
'
    Rows("21:21").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C20:G20").Select
    Selection.Copy
    Range("C21:G21").Select
    ActiveSheet.Paste
End Sub

Merci pour votre aide.

Afficher la suite

A voir également:

Macro à compléter
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro maker - Télécharger - Divers Utilitaires
Macro word - Guide

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

Bonjour,

Essaie comme cela

Sub Lignes()
Dim Plage As Range
    Set Plage = Range("C" & Rows.Count).End(xlUp).Resize(, 5)
    Plage.Copy Plage.Offset(1)
End Sub

A+

Zeni

Bonjour,

Oui ca fonctionne vraiment bien. J'ai deux autres tableaux de C34 à G52 et de
C56 à G38 il y a donc trois userforms. Je voulais appliquer la macro à chaque tableau , Est-ce possible ? :-)

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526 > Zeni

Euh ! un tableau de C34 à G52, j'arrive à me faire une idée.
Par contre, un tableau de C56 à G38, ça me semble douteux.

De plus, à chaque lancement de la macro la dimension des tableaux va évoluer. Tu ne crains pas les chevauchements ?

A+

Zeni

Heu pardon G68 oui je le crains mais est-ce que ca ne serait pas possible de faire en sorte de rajouter une ligne à la fin du tableau en copiant la ligne du dessus ainsi il n'y aurait pas de chevauchement ?

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526 > Zeni

Si tu insères une ligne à chaque lancement de la macro, la position des tableaux 2 et 3 va évoluer (les tableaux vont "descendre").
Il faut pouvoir déterminer cette position afin de permettre le rajout d'une ligne au tableau choisi.
Et pour cela, il faut disposer d'une référence pour chacun des tableaux.
Il faut également vérifier quelle est la meilleure façon de déterminer la dernière ligne renseignée du tableau.
Le plus simple, c'est que tu joignes un exemple de ton fichier.

Tu vas dans https://www.cjoint.com/ 
Tu cliques sur [Parcourir] pour sélectionner ton fichier 
Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
Au bout de quelques secondes la deuxième page s'affiche, avec le lien en bleu souligné ; clic droit dessus et "Copier l’adresse du lien" 
Tu reviens dans ta discussion sur commencamarche , et dans ton message de réponse tu fais "Coller".

A+

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

EXCEL transformer chiffres en lettre -facture

convertir des chiffres en lettres avec une unique formule

Votre réponse

Discussions similaires