[-RESOLUTO-]Remplacer la cellule par TextBox

[Ilino]

Forum Bonsoir
Ci-dessous 02 codes
1er code : masquer la ligne 45 si la cellule Z19 = 0

'masquer le titre de NB si VIDE
Rows("45:45").Hidden = [Z19] = "0"

2eme Code :Afficher et masquer les lignes de 46 au 55 selon le nombre saisi dans la cellule Z19

'AFFICHER LE NOMBRE DE NB
If Not Intersect(Rows(Target.Row), [Z19]) Is Nothing Then
  Application.ScreenUpdating = False
  Rows("46:55").Hidden = True
  Select Case CInt([Z19])
    Case 1 To 10
    Rows("45:" & (45 + CInt([Z19]))).Hidden = False
  End Select
End If

Mon souhait est de remplacer la cellule Z19 par un textbox1 D’un USF
grazie

 

[Ilino]

Re : Remplacer la cellule par TextBox

Bonjour Forum
Puis je avoir votre Help Forum ?
Grazie par avance

 

[Pierrot93]

Re : Remplacer la cellule par TextBox

Bonjour,

mets un petit fichier en pièce jointe, plus de chance d'avoir des réponses...

bonne journée
@+

 

[Ilino]

Re : Remplacer la cellule par TextBox

Bonjour Pierrot
merci ci dessous la modif de mon code

Private Sub CommandButton1_Click()' bouton valider
'masquer le titre de NB si VIDE
Rows("45:45").Hidden = TextBox1.Value = "00"

'AFFICHER LE NOMBRE DE NB
If TextBox1.Value <> "" Then
  Application.ScreenUpdating = False
  Rows("46:55").Hidden = True
  Select Case CInt(TextBox1)
    Case 1 To 10
    Rows("45:" & (45 + CInt(TextBox1))).Hidden = False
  End Select
End If
End Sub

j'ai remplacer

[Z19]

par

TextBox1

et

If Not Intersect(Rows(Target.Row), [Z19]) Is Nothing Then

par

If TextBox1.Value <> "" Then

Grazie par avance

 

[Pierrot93]

Re : Remplacer la cellule par TextBox

Re,

toujours pas de fichier... et cela ne fonctionne pas avec ton dernier code... peut être lieu de préciser le nom de l'usf devant "textbox"....

 

[Ilino]

Re : Remplacer la cellule par TextBox

Re,

toujours pas de fichier... et cela ne fonctionne pas avec ton dernier code... peut être lieu de préciser le nom de l'usf devant "textbox"....

OKy
je suis entrain de le préparer
A+

 

[Ilino]

Re : Remplacer la cellule par TextBox

Forum Bonjour
Après plusieurs testé du code ci dessus, je confirme qu'il fonction sans souci d’où mon PBLM est résolut
GRAZIE FORUM