VBA excel problème de recopie
delaju
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
delaju Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
delaju Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
voici mon code, il fonctionne parfaitement mais me recopie ma selection cote a cote alors que je la voudrai l'une en dessous de l'autre
Sub Enregistre_et_Nouveau()
Dim nom As Workbook
Dim chemin As String, extension As String, nomfichier As String
Dim i As Byte
i = Sheets("enrticket").Range("IV1").End(xlToLeft).Column + 1
Sheets("ticket").Range("A6:d22").Copy Destination:=Sheets("enrticket").Cells(1, i)
'Worksheets("ticket").Range("A6:D22").Copy _
'Destination:=Worksheets("enrticket").Range("A1")
Dim c As Integer
'ActiveSheet.PrintOut Copies:=1
With ThisWorkbook
With ActiveSheet
c = .Range("D21").Value
.Range("D21").Value = c + 1
If .Name = "ticket" Then
.Range("A7:D16").ClearContents
End If
End With
.Save
End With
End Sub
Sub Enregistre_et_Nouveau()
Dim nom As Workbook
Dim chemin As String, extension As String, nomfichier As String
Dim i As Byte
i = Sheets("enrticket").Range("IV1").End(xlToLeft).Column + 1
Sheets("ticket").Range("A6:d22").Copy Destination:=Sheets("enrticket").Cells(1, i)
'Worksheets("ticket").Range("A6:D22").Copy _
'Destination:=Worksheets("enrticket").Range("A1")
Dim c As Integer
'ActiveSheet.PrintOut Copies:=1
With ThisWorkbook
With ActiveSheet
c = .Range("D21").Value
.Range("D21").Value = c + 1
If .Name = "ticket" Then
.Range("A7:D16").ClearContents
End If
End With
.Save
End With
End Sub
A voir également:
- VBA excel problème de recopie
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour,
normal puisque c'est ce que tu lui demandes avec
normal puisque c'est ce que tu lui demandes avec
i = Sheets("enrticket").Range("IV1").End(xlToLeft).Column + 1pour travailler en recopie verticale, il faut aller en A65536, faire un END(XLUP).ROW+1 :Dim i As Integer
i = Sheets("enrticket").Range("A65536").End(xlUp).Row+ 1
Sheets("ticket").Range("A6:d22").Copy Destination:=Sheets("enrticket").Cells(i, 1) A+
la technique du end(xlup) est classique et fonctionne....... à condition que la colonne sur laquelle elle s'applique ait des données!!!
question : as-tu des données en A6:A22 (et surtout en A22) sur ta feuille "ticket"?
en tout cas, monte ton fichier sur cjoint