récupérer l'avant dernière valeur d'une colonne

[joums]

Bonjour à tous,

je souhaite récupérer l'avant dernière valeur d'une colonne et la mettre dans une textbox d'une userform.

voici le code utilisé pour récupérer la dernière valeur

TextBox1.Value = Sheets("parametre").Range("S65000").End(xlUp).Rows

comment faire

merci

 

[CB60]

Re : récupérer l'avant dernière valeur d'une colonne

Bonsoir
Il doit suffire de mettre moins 1 en bout de ton code

 

[joums]

Re : récupérer l'avant dernière valeur d'une colonne

Bonjour,

justement je croyais aussi mais en mettant -1
j'ai un bug " erreur d'éxécution 13, incompatibilité de type"

 

[laetitia90]

Re : récupérer l'avant dernière valeur d'une colonne

bonjour joums,cb60

TextBox1 = Sheets("parametre").Range("s65536").End(xlUp)(0)

 

[joums]

Re : récupérer l'avant dernière valeur d'une colonne

Bonjour,

je ne connais pas cette méthode à quoi correspond le (0) ??
merci

 

[joums]

Re : récupérer l'avant dernière valeur d'une colonne

en tout cas, cela marche très bien

encore merci

 

[laetitia90]

Re : récupérer l'avant dernière valeur d'une colonne

re,
1=correspond a la derniere 0 a l'avant,2 apres la derniere ect..
exemple
coller apres la derniere
Sheets(2).Range("s65536").End(xlUp)(2) = TextBox1.Value

 

[Staple1600]

Re : récupérer l'avant dernière valeur d'une colonne

Bonsoir à tous

Pour complément (et par pur désœuvrement dominical)

Sub Raccourcis()
Dim M_S$, racc, dl As Range

With [A1:A3]
    .Clear: .Value = Application.Transpose([{1,2,3}])
End With
'Ecriture clasique avec Offset
Set dl = [A65536].End(xlUp)
    M_S = "Dernière :" & dl.Offset(0).Value & vbLf
    M_S = M_S & "Avant-dernière: " & dl.Offset(-1) & vbLf
    M_S = M_S & "Première: " & dl.Offset(-2) & vbLf & vbLf
    M_S = M_S & "Pour voir avec l'écriture raccourcie," & vbLf & _
            "cliquer sur OUI, sinon sur NON."

racc = MsgBox(M_S, vbInformation + vbYesNo, "Ecriture classique")
'Ici emploi de l'écriture raccourcie
    If racc = 6 Then
        [B1] = "Dernière: " & dl(1)
        [B2] = "Avant-dernière: " & dl(0)
        [B3] = "Première: " & dl(-1)
    Else
    End
    End If
End Sub

 

[laetitia90]

Re : récupérer l'avant dernière valeur d'une colonne

re, bonjour Jean Marie
Trés belle demonstration
par contre cette ligne pas bien comprise??

Application.Transpose([{1,2,3}])... les symboles {} ??

 

[Staple1600]

Re : récupérer l'avant dernière valeur d'une colonne

Bonsoir laetitia90

C'est encore une écriture raccourcie

J'aurais pu écrire
Dim T
T=Array(1,2,3)

mais j'aime bien utiliser (même si certains le déconseillent) la méthode Evaluate, que l'on peut raccourcier avec les [ ]

Donc on peut écrire
T=Evaluate("{1,2,3}") ou en raccourci T=[{1,2,3})

PS: j'aurais pu aussi faire
[B1]=1:[A2]=2:[A3]=3

 

[laetitia90]

Re : récupérer l'avant dernière valeur d'une colonne

re ,
merci bien Jean Marie
contente tout compris
a+