[XL-2007] Variable ne se vide pas [Résolu]

[familledacp]

Bonjour à tous et toutes

Voici mon code

Code :

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 :

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

Et pas besoin de

Code :

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 :

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

Bon courage