Macro à compléter

Zeni -
Gyrus Messages postés 3360 Statut Membre - 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
Macro word - Guide
Macro recorder - Télécharger - Divers Utilitaires
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro express - Télécharger - Divers Utilitaires

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3360 Statut Membre 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+
0
1. 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 ? :-)
  
  0
  1. Gyrus Messages postés 3360 Statut Membre 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+
    
    0
2. 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 ?
  
  0
  1. Gyrus Messages postés 3360 Statut Membre 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+
    
    0

Macro à compléter

1 réponse

Discussions similaires

Newsletters