Nombre de cellule non vide dans"Zone texte "Contrôle ActiveX"

[maval]

Bonjour

J'ai sur une feuille des "Zone texte "Contrôle ActiveX" et j'aimerais que dans la textbox13 on retrouve le nombre de ligne non vide de la colonne "B". Mon code actuel est ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim I As Byte
 Dim LeRep As String
 If Target.Count > 1 Then Exit Sub
 If Target.Row > 2 And Target <> "" Then
     For I = 1 To 12
         Me.OLEObjects("TextBox" & I).Object.Value = Me.Cells(Target.Row, I).Value
     Next I
     LeRep = "E:\Film\Jacquette\"
     Me.Image1.Picture = LoadPicture(LeRep & Cells(Target.Row, 2) & ".jpg")
 End If
 
 End Sub

Je vous remercie d'avance

 

[PMO2]

Re : Nombre de cellule non vide dans"Zone texte "Contrôle ActiveX"

Bonjour,

Peut être comme ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim I As Byte
 Dim LeRep As String
 If Target.Count > 1 Then Exit Sub
 If Target.Row > 2 And Target <> "" Then
     For I = 1 To 12
         Me.OLEObjects("TextBox" & I).Object.Value = Me.Cells(Target.Row, I).Value
     Next I
     
     '/// ajout
     Me.OLEObjects("TextBox13").Object.Value = Application.WorksheetFunction.CountA(Columns(2))
     '///
     
     LeRep = "E:\Film\Jacquette\"
     Me.Image1.Picture = LoadPicture(LeRep & Cells(Target.Row, 2) & ".jpg")
 End If
 
 End Sub

 

[maval]

Re : Nombre de cellule non vide dans"Zone texte "Contrôle ActiveX"

Bonjour PM02

Je te remercie beaucoup sa fonctionne Nickel, si je peut abuser j'ai mis code pour la hauteur des lignes qui fonctionne mais j'aimerai qui ne soit pas attribuer au 2 premières lignes mon code:

  Dim R As Range
   Application.ScreenUpdating = False
   Selection.Rows.AutoFit
   For Each R In Selection
     If Rows(R.Row).RowHeight < 19.5 Then Rows(R.Row).RowHeight = 19.5
   Next

Pourrai tu me dire comment faire?

Merci d'avance

 

[PMO2]

Re : Nombre de cellule non vide dans"Zone texte "Contrôle ActiveX"

Essayez

Sub aa()
Dim R As Range
Application.ScreenUpdating = False
Selection.Rows.AutoFit
For Each R In Selection
  If R.Row > 2 Then
    If Rows(R.Row).RowHeight < 19.5 Then Rows(R.Row).RowHeight = 19.5
  End If
Next R
Application.ScreenUpdating = True
End Sub

 

[maval]

Re : Nombre de cellule non vide dans"Zone texte "Contrôle ActiveX"

Re,

Non si je met le code dans

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et quand je click sur une cellule de la ligne "1" sa me met la ligne a 19.5

Merci @+