[déplacé VB.NET - VBA] Incrementer le numero d'un tableau copié collé

Question

Bonjour, 

Je butte sur un problème d'incrémentation, j'espère que vous pourrez m'aider. 
J'ai crée une macro qui copie un tableau avec sa mise en forme et le colle sur click d'un bouton sur une autre feuille. 
Le tableau est collé en dessous du premier tableau, avec une ligne de séparation. 
La première colonne de mon tableau doit etre un numero en partant de 1. 
Je souhaiterais que lors du click, le tableau se colle et que la première colonne contienne le numero du tableau au dessus +1. 
Voila ma macro: 
Sub newevent()
Sheets("source").Select
Range("A27:M32").Select
Selection.Copy
Sheets("EVENT").Select
Dim line As Integer
line = Range("a65530").End(xlUp).Row + 7
Range("a" & line).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub


Merci d'avance, 

Olivia

elguevel · Answer

Tu postes dans un Forum VB.Net pour un probleme d'Excel. A mon avis tu ne vas pas avoir beaucoup de réponses.

cs_miniboo · Answer

oui je sais mais je n'ai pas trouvé le forum excel 
et comme je suis novice, je pensais que le visual basic que j'utilise dans excel s'appelait VB-net...

Merci, je vais chercher un meilleur endroit pour poster!

cs_Galain · Answer

Excel, Word et les produits Office en général utilisent le VBA (Visual Basic for Application)

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

PCPT · Answer

.... topic déplacé vers le forum approprié

cs_Ayr · Answer

Bon ben, maintenant que tu es au bon endroit , je te propose ce code :


Sub NewEvent()
    Dim SrcRangeReferences  As String
    Dim DestLine            As Integer
    Dim DestRangeReference  As String
    
    SrcRangeReferences = "A27:M32"
    DestLine = Sheets("EVENT").Range("a65530").End(xlUp).Row
    DestRangeReference = "A" & CStr(DestLine + Sheets("source").Range(SrcRangeReferences).Rows.Count + 1)
    
    Sheets("source").Range(SrcRangeReferences).Copy
    Call Sheets("EVENT").Range(DestRangeReference).PasteSpecial(Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False)
    Sheets("EVENT").Range(DestRangeReference).Value = Sheets("EVENT").Range("A" & CStr(DestLine)).Value + 1
End Sub

En gros, tu avais déjà presque ce qu'il te fallait puisque tu calcul "line = Range("a65530").End(xlUp).Row + 7" et que "Range("a65530").End(xlUp).Row" est la cellule où se trouve le numéro précédent de tableau.

La partie "Sheets("source").Range(SrcRangeReferences).Rows.Count" permet d'avoir automatiquement le nombre de lignes du tableau source, dans le cas où on viendrait à le modifier. Dans ce cas il faudrat juste modifier la valeur de "SrcRangeReferences" pour lui donner les nouvelles références de la plage.
Pas très joli parce que ça demande de modifier le code si on modifie le tableau mais ça minimise les changements à effectuer.

A+

cs_miniboo · Answer

genial!! merci beaucoup! je vais essayer ca des que possible mais je sens déja que ca va être parfait! 

encore merci

[déplacé VB.NET -> VBA] Incrementer le numero d'un tableau copié collé

6 réponses

Votre réponse

Discussions similaires