Dim lapremieredisponible As String Dim lasecondedisponible As String Dim latroisiemedisponible As String Dim laquatriemedisponible As String Dim lacinquiemedisponible As String lapremieredisponible = Range("B65536").End(xlUp).Offset(1, 0) ladeuxiemedisponible = Range("B65536").End(xlUp).Offset(-1, 0) latroisiemedisponible = Range("B65536").End(xlUp).Offset(-2, 0) laquatriemedisponible = Range("B65536").End(xlUp).Offset(-3, 0) lacinquiemedisponible = Range("B65536").End(xlUp).Offset(-4, 0) Label10.Caption = lapremieredisponible & vbLf & lapdeuxiemedisponible & vbLf & latroisiemedisponible & vbLf & laquatriemedisponible & vbLf & lacinquiemedisponible
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMais dans l'absolu, celui la marche?
Tu ne crois pas que tu aurais ta réponse en l'essayant, plutôt que de poser cette question ?
Dim dercel As Range Set dercel = Range("B" & Rows.Count).End(xlUp) dercel.Select For i = 0 To -4 Step -1 toto = toto & " " & dercel.Offset(i, 0).Value Next Label1.Caption = Trim(toto) Set dercel = Nothing
Dim dercel As Range Set dercel = Range("B" & Rows.Count).End(xlUp) dercel.Select For i = 0 To -4 Step -1 toto = toto & " " & dercel.Offset(i, 0).Value Next Label1.Caption = Trim(toto) Set dercel = Nothing
Fastoche, non ?
Si tu veux maintenant que je t'aide dans le futur, tu vas me faire le plaisir d'analyser ce code ultra simple, puis d'en commenter chacune des lignes (pour me montrer ta volonté de comprendre)
c'est "donnant-donnant"
Dim dercel As Range 'définit "dercel" comme une plage de cellule Set dercel = Range("B" & Rows.Count).End(xlUp)''récupérer la zone de cellule de la colonne B For i = 0 To -4 Step -1 'pour les cellules de 0 à -4 sélectionnées en partant de la dernière active à une marche de -1 toto toto & " " & dercel.Offset(i, 0).Value 'variable "toto" les cellules précédemment sélectionnés. Next Label1.Caption = Trim(toto)'Affichage de "toto" en supprimant les espaces inutiles. Set dercel = Nothing ' La j'avoue que je pèche et que je ne comprend pas trop l'utilité de ce texte
toto = toto & " " & dercel.Offset(i, 0).Value
Me renvoie à l'erreur d’exécution 1004, "Erreur définie par l'application où par l'objet" :/
Dim dercel As Range, toto as long Set dercel = Range("B" & Rows.Count).End(xlUp) if dercel.row > 4 then toto 5 else toto dercel.row toto = dercel.row For i = 0 To -toto Step -1 toto = toto & " " & dercel.Offset(i, 0).Value Next Label1.Caption = Trim(toto) Set dercel = Nothing
Pour le reste : lorsque l'on crée un objet (et une plage en est un) on lui attribue la valeur Nothing pour libérer la mémoire.