Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro ligne supplémentaire

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Grégf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Grégf

Guest
Re bonjour,

J'ai enfin réussi à installer une macro (il va neiger !!!) qui fonctionne, mais j'ai toujours un souci car je suis obliger de cliquer sur la dernière ligne du tableau avant de cliquer sur le bouton. J'ai bien pris note de vos propositions sans macro de ce matin, mais j'aimerai garder la forme existante.
Est-il possible de régler cette macro pour qu'elle sois cliquable uniquement dans la dernière ligne du tableau en A9 du le fichier joint et que ça décale à chaque rajout de ligne.
Merci encore des réponses apportées aujourd'hui.
Cordialement
 

Pièces jointes

Trier par date Trier par votes
Hello

peut etre en ajoutant ceci en début de macro
VB: 
Range("B4").End(xlDown).Offset(1, 0).Select
ou plutot ceci
VB: 
Range("B32").End(xlUp).Offset(1, 0).Select
32 étant la ligne où se trouve ta première ville "Ales"
 
Vote positif 0 Vote négatif
Je vous joints mon résultat, mais je me suis peut-être mal exprimé, je veux rajouter une lignes toujours en fin de tableau (en B9 sur le fichier joint). Merci pour votre patiente (je n'y connais absolument rien en code et en macro ... une vrai buse dans ce domaine).
 

Pièces jointes

Vote positif 0 Vote négatif
le problème est de détecter la fin du tableau..
visiblement, les lignes de dessus ne sont pas forcément remplies..
donc. soit il faut détecter avec la couleur de fond - soit regarder si la cellule est formatée avec une liste de validation, soit transformer ton tableau en table excel.
 
Vote positif 0 Vote négatif
Bonjour,

J'y suis presque ... j'ai trouvé une macro que j'essaie d'adapter sans aucune connaissance à mon fameux tableau, mais j'ai 4 lignes D, G, J, N ou ma formule n'est pas recopiée ? Auriez-vous la solution ?
Merci cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Hello

Essaie ceci
VB: 
Sub Bouton1_Cliquer()
    DébutTablo = 6 'donne la première ligne du tableau
    i = DébutTablo
   

    While Cells(i, 4).HasFormula 'on vérifie que la colonne D contient une formule
        i = i + 1
    Wend
    FinTablo = i - 1  'la dernièire ligne du tableau
   
    Rows(FinTablo & ":" & FinTablo).Select 'on selectionne puis copie la dernière ligne du tableau
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
   
End Sub
 
Vote positif 0 Vote négatif
OK j'ai trouvé ma connerie, j'avais mis de la couleur pour repérer des décalages ... je m'excuse !!!
Par contre l'insertion de ligne se fait sur l'avant dernière ligne, peut-on la faire sur la dernière ? J'ai essayé en changeant les chiffre de ton code mais je n'y arrive pas (je vais acheter VBA pour les nuls pour essayer de comprendre un minimum ...). Merci encore.
 
Vote positif 0 Vote négatif
Pour l'insertion au dessus ou en dessous... ca ne change rien.. puisque au final, les deux dernières lignes sont identiques..

après. tu peux selectionner la dernière ligne en fin de macro
VB: 
Sub Bouton1_Cliquer()
    DébutTablo = 6 'donne la première ligne du tableau
    i = DébutTablo
   

    While Cells(i, 4).HasFormula 'on vérifie que la colonne D contient une formule
       i = i + 1
    Wend
    FinTablo = i - 1  'la dernière ligne du tableau
    Rows(FinTablo & ":" & FinTablo).Select 'on selectionne puis copie la dernière ligne du tableau
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
   Range("B" & FinTablo + 1).Select
End Sub
 
Vote positif 0 Vote négatif
à moins que ce soit ceci qu'il te faille... 🙂

VB: 
Sub Bouton1_Cliquer()
    DébutTablo = 6 'donne la première ligne du tableau
    i = DébutTablo
  
    While Cells(i, 4).HasFormula 'on vérifie que la colonne D contient une formule
       i = i + 1
    Wend
    FinTablo = i - 1  'la dernière ligne du tableau
    Rows(FinTablo & ":" & FinTablo).Select 'on selectionne puis copie la dernière ligne du tableau
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    FinTablo = FinTablo + 1
    Range("B" & FinTablo).Resize(1, 2).ClearContents
    Range("E" & FinTablo).ClearContents
    Range("H" & FinTablo).ClearContents
    Range("K" & FinTablo).ClearContents
    Range("N" & FinTablo).ClearContents
    Range("Q" & FinTablo).ClearContents
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
195
Marie L
M
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
1 K
rastafouette
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
222
sylvanu
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
443
sousou
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
266
Kristelle1555
K
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
402
vgendron
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
682
PHIL37
P
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
511
Phil69970
R
  • Question Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
529
rh.finances
R
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
2 K
Olihoes
O
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
1 K
Alain 79
A
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
950
desto
D
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
A
  • Question Question
XL 2010 Copier coller dernière ligne remplie d'un tableau
2
Réponses
16
Affichages
980
job75
I
  • Question Question
Microsoft 365 Déplacer la ligne visible après le filtre
Réponses
3
Affichages
667
iliess
I
F
  • Question Question
XL 2010 Appeler une macro dans une autre
Réponses
5
Affichages
694
Dranreb
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
824
Nadou69
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
757
casualexcel
C
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
713
fanou06
F
F
  • Résolu(e)
XL 2019 Effacer toute une ligne de cellules mais uniquement à l’intérieur d’un tableau
Réponses
14
Affichages
1 K
Formulatix
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…