Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour LineBaker,
Un petit exemple : Choisis l'événement de ton choix ou un bouton de commande pour déclencher la procédure
'------------------------- Private Sub UserForm_Initialize()
Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A65536").End(xlUp).Row Me.TextBox1 = .Range("A" & DerLig).Value Me.TextBox2 = .Range("A" & DerLig).Offset(, 1).Value 'and so on... End With
End Sub '-------------------------
Salutations!
"Linebaker" a écrit dans le message de news: jfV7f.62086$ Bonjour,
Comment faire pour afficher un résultat, donc dernière cellule non vide d'une colonne, dans un userform ?
Merci
Bonjour LineBaker,
Un petit exemple : Choisis l'événement de ton choix ou un bouton de commande pour déclencher la procédure
'-------------------------
Private Sub UserForm_Initialize()
Dim DerLig As Long
With Worksheets("Feuil1")
DerLig = .Range("A65536").End(xlUp).Row
Me.TextBox1 = .Range("A" & DerLig).Value
Me.TextBox2 = .Range("A" & DerLig).Offset(, 1).Value
'and so on...
End With
End Sub
'-------------------------
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news: jfV7f.62086$sJ5.1845172@wagner.videotron.net...
Bonjour,
Comment faire pour afficher un résultat, donc dernière cellule non vide
d'une colonne, dans un userform ?
Un petit exemple : Choisis l'événement de ton choix ou un bouton de commande pour déclencher la procédure
'------------------------- Private Sub UserForm_Initialize()
Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A65536").End(xlUp).Row Me.TextBox1 = .Range("A" & DerLig).Value Me.TextBox2 = .Range("A" & DerLig).Offset(, 1).Value 'and so on... End With
End Sub '-------------------------
Salutations!
"Linebaker" a écrit dans le message de news: jfV7f.62086$ Bonjour,
Comment faire pour afficher un résultat, donc dernière cellule non vide d'une colonne, dans un userform ?
Merci
Linebaker
Bonjour michdenis,
Cela fonctionne très bien.
Merci
"michdenis" a écrit dans le message de news: %
Bonjour LineBaker,
Un petit exemple : Choisis l'événement de ton choix ou un bouton de commande pour déclencher la procédure
'------------------------- Private Sub UserForm_Initialize()
Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A65536").End(xlUp).Row Me.TextBox1 = .Range("A" & DerLig).Value Me.TextBox2 = .Range("A" & DerLig).Offset(, 1).Value 'and so on... End With
End Sub '-------------------------
Salutations!
"Linebaker" a écrit dans le message de news: jfV7f.62086$ Bonjour,
Comment faire pour afficher un résultat, donc dernière cellule non vide d'une colonne, dans un userform ?
Merci
Bonjour michdenis,
Cela fonctionne très bien.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%2327Fj6p2FHA.1184@TK2MSFTNGP12.phx.gbl...
Bonjour LineBaker,
Un petit exemple : Choisis l'événement de ton choix ou un bouton de
commande pour déclencher la procédure
'-------------------------
Private Sub UserForm_Initialize()
Dim DerLig As Long
With Worksheets("Feuil1")
DerLig = .Range("A65536").End(xlUp).Row
Me.TextBox1 = .Range("A" & DerLig).Value
Me.TextBox2 = .Range("A" & DerLig).Offset(, 1).Value
'and so on...
End With
End Sub
'-------------------------
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news:
jfV7f.62086$sJ5.1845172@wagner.videotron.net...
Bonjour,
Comment faire pour afficher un résultat, donc dernière cellule non vide
d'une colonne, dans un userform ?
Un petit exemple : Choisis l'événement de ton choix ou un bouton de commande pour déclencher la procédure
'------------------------- Private Sub UserForm_Initialize()
Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A65536").End(xlUp).Row Me.TextBox1 = .Range("A" & DerLig).Value Me.TextBox2 = .Range("A" & DerLig).Offset(, 1).Value 'and so on... End With
End Sub '-------------------------
Salutations!
"Linebaker" a écrit dans le message de news: jfV7f.62086$ Bonjour,
Comment faire pour afficher un résultat, donc dernière cellule non vide d'une colonne, dans un userform ?
