Autres Récuperer la valeur de la derniere cellule non vide d'une colonne

Bizarre · 27 Décembre 2022

Bonjour ;

Actuellement pour remplir une textbox j’utilise ce code :

Me.TextBox29 = .Range("R" & DerLig) dans un autre fichier

J’aimerais savoir s’il existe aussi un code pour récupérer la valeur de la dernière cellule non vide ; même si dans la colonne il y a des cellules vides. Dans le fichier joint supposons que je veuille remplir la textbox6 (Disque avant ) avec la dernière valeur de la colonne I. Comment faire

TooFatBoy · 29 Décembre 2022

Je viens de me rendre compte que la colonne "cassette" existe aussi pour la route, donc tu trouveras en pièce jointe une nouvelle version du fichier (entièrement corrigé cette fois-ci : nom de tableau, en-têtes de colonnes, etc.).

TooFatBoy · 27 Décembre 2022

Bonjour,

Peut-être ceci :

VB:

Sub Test()
    Set DerCel = Range("Données_Sortie_Vélo[Disque avant route]")(Range("Données_Sortie_Vélo[Disque avant route]").Rows.Count)
    If DerCel = "" Then Set DerCel = DerCel.End(xlUp)
    textbox6.Value = DerCel.Value
End Sub

Bizarre · 27 Décembre 2022

Bonsoir TooFatboy
je viens de tester votre code et la textbox6 reste vide

TooFatBoy · 27 Décembre 2022

Il faut peut-être mettre Me.textbox6 (à tester).

Je viens de tester (j'avoue que je n'avais pas testé), et chez moi ça fonctionne, même sans le Me.

Exemple dans ta macro UserForm_Initialize :

VB:

Private Sub UserForm_Initialize()
'Pour initialiser le formulaire Données_sortie_vélo

    Application.ScreenUpdating = False
    TextBox1 = Format(CDate(Date), "dd.mm.yyyy") 'donnée de la sortie
    TextBox1 = Date     'Date de la de la sortie

    With Me
        .Top = 100 'Pour placer le formulaire à une certaine distance du haut
        .Width = 500 'Largeur
        .Height = 250 'Hauteur
        .Left = 230 'Pour placer le formulaire à une certaine distance de la gauche de l'ecran
    End With

    Set DerCel = Range("Données_Sortie_Vélo[Disque avant route]")(Range("Données_Sortie_Vélo[Disque avant route]").Rows.Count)
    If DerCel = "" Then Set DerCel = DerCel.End(xlUp)
    TextBox6.Value = DerCel.Value

End Sub

Bizarre · 27 Décembre 2022

Je viens de tester en modifiant comme indiqué mais textbox 6reste vide

TooFatBoy · 27 Décembre 2022

Bizarre à dit:
Je viens de tester en modifiant comme indiqué mais textbox 6reste vide

Vu que chez moi ça fonctionne, je ne vois pas que te dire de plus.

TooFatBoy · 27 Décembre 2022

En revanche, je n'ai pas géré le cas où il n'y a aucune donnée dans la colonne, ni le cas où le tableau est vide.

Phil69970 · 27 Décembre 2022

Bonjour @Bizarre et Marcel

Je te propose ce fichier
*J'ai réécrit le code de ton bouton .....

Merci de ton retour

@Phil69970

TooFatBoy · 27 Décembre 2022

Salut Phil69970 et merci car je n'avais pas vu où il fallait assigner TextBox6.Value.

Du coup je propose, sur ma proposition initiale :

VB:

Private Sub ComboBox2_Change()
    Set DerCel = Range("Données_Sortie_Vélo[Disque avant " & ComboBox2.Value & "]")(Range("Données_Sortie_Vélo[Disque avant " & ComboBox2.Value & "]").Rows.Count)
    If DerCel = "" Then Set DerCel = DerCel.End(xlUp)
    TextBox6.Value = DerCel.Value
End Sub

Phil69970 · 27 Décembre 2022

Re

Marcel je te propose ce test dans le fichier joint pour trouver la dernière ligne

@Phil69970

TooFatBoy · 27 Décembre 2022

Phil69970 à dit:
Marcel je te propose ce test dans le fichier joint pour trouver la dernière ligne

Ah oui, effectivement ça ne fonctionne pas. J'ai encore dû me gourrer quelque part...

Phil69970 · 27 Décembre 2022

Re

Et tu as essayé avec mon code ?

@Phil69970

TooFatBoy · 27 Décembre 2022

Phil69970 à dit:
Et tu as essayé avec mon code ?

J'ai dl le fichier, puis j'ai lancé le UserForm, et j'ai constaté que ça ne donnait pas la bonne valeur.

[edit]
Au temps pour moi. J'ai cru que tu me proposais un fichier dans lequel mon code ne fonctionnait pas.
Du coup je n'ai pas regardé le code, donc je n'ai pas vu que c'était le tien.
[/edit]

Phil69970 · 27 Décembre 2022

Re

Ferme USF et regarde le bouton dans la feuille

@Phil69970

TooFatBoy · 27 Décembre 2022

OK, je fais ça et je reviens.

Je n'avais pas vu le bouton.
Je viens de cliquer sur le bouton : ça m'ouvre une MsgBox qui donne les coordonnées du tableau.
Et je précise que ça marche nickel : toutes les valeurs affichées sont les bonnes.

Autres Récuperer la valeur de la derniere cellule non vide d'une colonne

Bizarre

XLDnaute Nouveau

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

Bizarre

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Bizarre

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires