probleme spinbutton avec vba en exel 2000

Question

Bonsoir tout le monde

J'ai un probleme avec le code ci dessous. Je pense que c'est du a la version car ce code fonctionne avec vba exel 2003.

Et la je bosse avec exel 2000 sur mon poste personnel.

Voici ce que j'ai fais.

Dans userform initialise j'ai mis

With UserForm1

Select Case .RowHeight


Case Is <= 10
.SpinButton1.Value = 10


Case Is >= 30
.SpinButton1.Value = 30


Case Else
.SpinButton1.Value = Nom.RowHeight


End Select


.Label8.Caption = _
" Hauteur de ligne : " & SpinButton1.Value

End With

Dans le module j'ai mis.

With UserForm1

.RowHeight = .SpinButton1.Value

End With

Le probleme c'est qu'il me signal l'erreur de compilation en selectionnant .RowHeight en disant "membre de methode ou de donn&#233;es introuvable"

Ce que je souhaite faire c'est de pouvoir changer la hauteur de ligne sur un feuille exel.

Pouvez vous m'aider svp?

Merci

Cordialement

A bient&#244;t

cs_khaled_m · Answer

bonjour 

est ce que tu veux changer la hauteur d'un seul ligne ou de plusieurs ligne en m&#234;me temps

cs_khaled_m · Answer

si j'ai bien compris t'as question ce programme fera la faire :

I = 1
While I <= 10
     Rows(I).RowHeight = 10
     I = I + 1
Wend
While I <= 65536
    Rows(I).RowHeight = 30
     I = I + 1
Wend

valtrase · Answer

Lut,
UserForm1 n'a pas de propri&#233;t&#233; .RowHeight
Moi je coderais comme ceci
'*** Userform_Initialise
With UserForm1
   .SpinButton1.Min= 10
   .SpinButton.Max=30
   .Label8.Caption = _
      " Hauteur de ligne : " & SpinButton1.Value
End With

et dans le code de ton SpinButton
Private Sub SpinButton1_Change()
'*** Si tu veux changer la hauteur de toutes les lignes
ActiveSheet.Rows.Height = SpinButton1.Value
'*** et si tu veux changer que la hauteur de la ligne active
'ActiveSheet.Rows(ActiveCell.Row).Height = SpinButton1.Value
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjour tout le monde

Je souhaite modifier la hauteur de ligne lors de l'insertion d'un mot via le formulaire, je veux dire modifier la ligne et apres inserer le mot.

J'ai mis ton code 218510  valtrase, il signal l'erreur d'execution 1004 " impossible de d&#233;finir la propri&#233;t&#233; heigth dans la classe Range".

En selectionnant le code ci dessous

ActiveSheet.Rows(ActiveCell.Row).Height  = SpinButton1.Value

Que dois je faire pour regler le probleme?

Merci

Cordialement

A bient&#244;t

jpleroisse · Answer

Bonjour,

J'ai modifi&#233; le code de Valtrase.



Private Sub UserForm_Initialize()

With UserForm1

   .SpinButton1.Min = 10

   .SpinButton1.Max = 30

End With

End Sub



'et dans le code de ton SpinButton

Private Sub SpinButton1_Change()

Application.ScreenUpdating = False

'*** Si tu veux changer la hauteur de toutes les lignes

    Cells.Select

    Selection.RowHeight = SpinButton1.Value

    Cells(1, 1).Select

'*** et si tu veux changer que la hauteur de la ligne active

   'Selection.RowHeight = SpinButton1.Value

   Label1.Caption = _

      " Hauteur de ligne : " & SpinButton1.Value

    Application.ScreenUpdating = True

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

developvbdebut · Answer

Bonsoir tout le monde

Il ya encore un petit probleme.

Il fait les modification &#224; la mauvaise feuille.

Je souhaite qu'il face les modifications &#224; la feuille tableau &#224; partir de la cellule A2, que lorsque je tape le Nom dans la forme, je veux avoir la possibilit&#233; de changer la taille de la ligne avant d'inserer le Nom.

Voici le code Worksheet correspondant.

Set Nom = Worksheets("tableau").Range("A2")
Do While Not IsEmpty(Nom)
Set Nom = Nom.Offset(1, 0)
Loop

Pouvez vous m'aider?

Merci

Cordialement

A bient&#244;t

valtrase · Answer

D&#233;sol&#233; tapp&#233; trop vite ......
Private Sub SpinButton1_Change()
Label8.Caption = SpinButton1.Value
Worksheets("tableau").Range("A2").RowHeight = SpinButton1.Value
End Sub

Pour ton deuxi&#232;me probl&#232;me, et &#224; propos de ton code (je ne le comprend pas!!!) j'ai pas de soluce. Explique plus clairement 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjour tout le monde

Le code ne fonctionne pas, il dit utilisation incorect de la propri&#233;t&#233; en selectionnant .value. de SpinButton1.Value.

Peut on r&#233;gler le probleme?

Merci

Cordialement 

A bient&#244;t

valtrase · Answer

T'es sous quelle version d'Excel ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonsoir tout le monde

Je les dis au d&#233;buts de ce sujet, je travail avec exel 2000.

Merci.

Cordialement

A bient&#244;t

valtrase · Answer

Y'a pas de raison je teste en g&#233;n&#233;ral tous les codes que je mets sur code source celui l&#224; tourne impec.
Je pense que cela viens de ta prog tu n'as pas du tapper le code comme on te l'a dis
tu peux m'envoyer ta source j'y jetterais un coup d'oeil
[mailto:valtrase@free.fr valtrase@free.fr]

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjour tout le monde

Je vous remontre les codes que j'ai mis.

Voici le code ci desssous du userform initialise.

Private Sub UserForm_Initialize()

With UserForm1

.SpinButton1.Min = 10
.SpinButton1.Max = 30



End With

End Sub

Voici ci dessous le code pour spinbutton. 

Private Sub SpinButton1_Change()


Label8.Caption = SpinButton1.Value


Worksheets("tableau").Range("A2").RowHeight


SpinButton1.Value

End Sub

Avez vous trouv&#233; une erreur?

Merci

Cordialement

A bient&#244;t

Probleme spinbutton avec vba en exel 2000

12 réponses

Discussions similaires