Discussion :

[familledacp]

Bonjour à tous et toutes

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim matertransfert As String
matertransfert = ListBox1.List(ListBox1.ListIndex)
Workbooks("NovoMaterBAse.xls").Close SaveChanges:=False
ActiveWindow.WindowState = xlMaximized
Unload UserForm1
Dim LaDerniere As String
LaDerniere = Range("B4:B65536").Find(N, lookat:=xlWhole).Row
Dim LaCase As String
LaCase = "B" & LaDerniere + 1
LaDerniere = Empty
Worksheets("Novomaterbase").Range(LaCase) = matertransfert

Mon souci est lorsque je reclique sur le bouton pour refaire la manip, ce que je copie du "NovoMaterBase" se repositionne au même endroit de la feuille redevene active

Je pense pourtant ré-initialiser la variable "LaDerniere" sur l'avant dernière ligne et refaire une recherche de la première ligne disponible dans la colonne B

Merci pour vos lumières

Daniel

[Jean-Pierre49]

Bonjour

Si j’ai bien compris LaDerniere est la dernière ligne

Alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim LaDerniere as long
LaDerniere  = Range("B65536").End(xlUp).Row

Et pas besoin de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaDerniere = Empty

[familledacp]

Jean Pierre

C'est parfait, cela fonctionne !

Mille mercis

daniel

[Jean-Pierre49]

Je vois que tu es sur 2007

alors et suite à une remarque judicieuse de Jérôme

Pour plus de 65536 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B" & Rows.Count).End(xlUp).Row

Bon courage