Cellule non vide

[maval]

Bonjour

Je suis à la recherche d'un code un peut spécial.
J'ai un formulaire avec un label pour me donner la dernière cellule de la colonne "C" non vide
et un textbox.
Ma question est-il possible de savoir le nom qui se trouve dans la colonne "B" a côté de la dernière cellule vide.

ex: Si la dernière cellule non vide de la colonne "C" est la "C7" et que le la "B7" il y a le nom Jean Paul j'aimerais avoir le nom Jean Paul dans la textBox.

Je vous remercie de votre aide

 

[R@chid]

Re : Cellule non vide

Bonsoir,
Est ce qu'il te convient de le faire par formule??
SI tes valeurs dans la colonne C sont numériques et qu'il n'y a pas de cellules vides entre ces dernières on peut le faire comme suite.

=DECALER(B1;NB(C:C);)

@ + +

Edit : Salut Job75

 

[job75]

Re : Cellule non vide

Bonjour maval, salut R@chid,

Avec un fichier .xlsx c'est normal qu'il n'y ait pas d'UserForm 🙄

J'ai donc créé ce bel UserForm avec son code :

Private Sub UserForm_Initialize()
With Range("C" & Rows.Count).End(xlUp)(2)
  Label2 = .Row
  TextBox1 = .Offset(, -1)
End With
End Sub

Fichier joint.

A+

 

[JCGL]

Re : Cellule non vide

Bonjour à tous,
Salut Rachid,
Salut Max,

Peux-tu essayer avec :

Option Explicit
Private Sub UserForm_Initialize()
Label1 = Application.WorksheetFunction.CountA(Columns(3))
Label4 = Cells(Application.WorksheetFunction.CountA(Columns(3)) + 1, 2)
End Sub

A+ à tous

Edition : Gérard : Tu ne prends pas l'apéro...

 

[job75]

Re : Cellule non vide

Bonjour le fil, salut Jean-Claude 🙂

Une solution intéressante avec dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If UserForms.Count = 0 Then UserForm1.Show 0 'non modal
With Range("C" & Rows.Count).End(xlUp)(2)
  UserForm1.Label2 = .Row
  UserForm1.Label4 = .Offset(, -1)
End With
End Sub

Et dans ThisWorkbook :

Private Sub Workbook_Activate()
Feuil1.[A1] = Feuil1.[A1].Formula
Me.Saved = True 'évite l'invite à la fermeture
End Sub

Fichier (2).

A+

 

[job75]

Re : Cellule non vide

Re,

Remarquer qu'on peut tester simplement l'UserForm par :

If UserForm1.Label2 = "" Then UserForm1.Show 0 'non modal

Fichier (3).

A+

 

[job75]

Re : Cellule non vide

Re,

Avec AppActivate le focus est toujours sur la feuille de calcul :

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("C" & Rows.Count).End(xlUp)(2)
  UserForm1.Label2 = .Row
  UserForm1.Label4 = .Offset(, -1)
End With
UserForm1.Show 0 'non modal
AppActivate "Microsoft Excel" 'focus sur la feuille
End Sub

Fichier (4).

A+

 

[maval]

Re : Cellule non vide

Bonjour Job75

Je te remercie beaucoup ainsi que Jean Claude et Rachid.

Et vous souhaite un bon dimanche