macro copier coller de la derniere ligne

[flo2002]

Je voudrai copier la derniere ligne d'un tableau et la coller en +1.

J'ai fait ceci qui ne fonctionne pas:
Range('300:300').Select
Selection.End(xlUp).Offset(0, 0).Select
Application.CutCopyMode = False
Selection.Copy
Range('300:300').Select
Selection.End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Merci d'avance!

 

[ERIC S]

Bonjour

essaie

Range('A65536').End(xlUp).entirerow.Select
Selection.Copy
Range('A65536').End(xlUp).offset(1,0).Select
ActiveSheet.Paste
Application.CutCopyMode = False


A+

 

[Papaye]

Bonjour flo,

Essaye :

Sub volcan()

NbLignes = ActiveSheet.UsedRange.Rows.Count
Rows(CStr(NbLignes) & ':' & CStr(NbLignes)).Select
Selection.Copy
Rows(CStr(NbLignes + 1) & ':' & CStr(NbLignes + 1)).Select
ActiveSheet.Paste

End Sub

Papaye

 

[flo2002]

j'ai essayer les deux solutions mais je pense que j'ai un autre probleme. Je joins un fichier pour que vous ayez une vue globale du pb.
Merci d'avance [file name=forum_20060509142658.zip size=50560]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/forum_20060509142658.zip[/file]

 

[ERIC S]

re

Sub Ajouter1()

Sheets('Rolling_Forecast').Select
'donnée toujours présente en colonne B
Range('b65536').End(xlUp).EntireRow.Select
Selection.Copy
Range('b65536').End(xlUp).Offset(1, -1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

UserForm1.Show

UserForm2.Show

End Sub

___________________

Private Sub CommandButton1_Click()
If Me.ComboBox1.ListIndex = -1 Then
MsgBox 'Solution'
Exit Sub
End If
Range('b65536').End(xlUp).Value = Me.ComboBox1.Value
Unload Me
End Sub
_____________________
pistes à explorer

A+

 

[ERIC S]

re


pour tes listes au lieu de déclarer toute la colonne

=DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1)

te permet par exemple de valider une liste en colonne A avec titre (la longueur est donnée par nbval

A+

 

[flo2002]

Je pense que tu as viser dans le mille!!! on dirait que ca marche!

merci beaucoup je continu dans cette voix!

 

[flo2002]

liste incomplete dans macro

Option Explicit



Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
If Me.ComboBox1.ListIndex = -1 Then
MsgBox 'Solution'
Exit Sub
End If
Range('B' & Range('C65536').End(xlUp).Row) = Me.ComboBox1.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim Ligne As Integer, x As Integer
Ligne = Sheets('AFU').Range('A65536').End(xlUp).Row
For x = 1 To Ligne
Me.ComboBox1.AddItem Sheets('AFU').Range('E' & x)
Next
End Sub


avec ce code je n'arrive pas à ce qu'il me donne tous les choix possible de la liste. Il ne prend que les premiers alors qu'il devrait prendre tout 'E'

 

[Hervé]

Re:liste incomplete dans macro

bonjour tout le monde

peut etre comme ceci :

Private Sub UserForm_Initialize()
Dim Ligne As Integer, x As Integer
Ligne = Sheets('AFU').Range('E65536').End(xlUp).Row
For x = 1 To Ligne
Me.ComboBox1.AddItem Sheets('AFU').Range('E' & x)
Next
End Sub

 

[ERIC S]

Re:liste incomplete dans macro

re

plus rapide que moi Hervé

:ermm:

 

[flo2002]

Re:liste incomplete dans macro

Bien jouer! en meme temps j'ai vraiment pas les yeux en face des trous!

Merci encore!!!