[-RESOLUTO-]Remplacer la cellule par TextBox

Ilino · 29 Décembre 2014

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

Code:

'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

Code:

'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 · 30 Décembre 2014

Re : Remplacer la cellule par TextBox

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

Pierrot93 · 30 Décembre 2014

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 · 30 Décembre 2014

Re : Remplacer la cellule par TextBox

Bonjour Pierrot
merci ci dessous la modif de mon code

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 · 30 Décembre 2014

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 · 30 Décembre 2014

Re : Remplacer la cellule par TextBox

Pierrot93 à dit:
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 · 30 Décembre 2014

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

[-RESOLUTO-]Remplacer la cellule par TextBox

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Discussions similaires

[-RESOLUTO-]Remplacer la cellule par TextBox

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency