[RESOLU] Rowheight de la Class Range

[billpancho]

Bonjour,

Etant extrèmement débutant je fouine de forum en forum pour trouver des codes, tenter de les comprendre et les adapter, je bute pourtant sur un truc très simple je pense, voici mon code et vba me répond "impossible de définir..." Pourquoi ?

Private Sub Actualiser_Click()

Dim niv1 As Integer

niv1 = CInt(TextBox1)

If niv1 Then
Sheets("Plan").Select
Range("A2").Select
Selection.RowHeight = Application.CentimetersToPoints(niv1)

End If
End Sub

J'ai déclaré mon "Niv1"; j'ai fait le Cint, j'ai même sélectionné une cell en particulier car je souhaite ne changer que la ligne 2, et cela ne marche pas... Je ne comprends pas trop comment application.centimeterstopoints fonctionne

 

[Pierrot93]

Re : Propriété Rowheight de la Class Range

bonjour,

bah .. ton code fonctionne chez moi... ce, placé dans le module de l'usf (je suppose ton textbox) .. sans plus de détails difficle d'en dire plus...

bonne journée
@+

 

[billpancho]

Re : Propriété Rowheight de la Class Range

J'ai essayé de lancer le code seul sur un nouveau fichier avec un form ne comprenant qu'une Textbox1 et un bouton Actualiser et cela ne fonctionne pas...

Pour vous rendre compte, un imprim écran avec le code mais je ne comprends pas pourquoi ca marche chez toi...

 

[Pierrot93]

Re : Propriété Rowheight de la Class Range

Bonjour,

pas facile de travailler sur une image... en plus peu visible...

bonne journée
@+

 

[billpancho]

Re : Propriété Rowheight de la Class Range

Salut,

Il n'y a rien de spécial sur l'image si ce n'est que le code est écrit dans userform1 et c'est exactement le même code que la haut...
Si tu as réussi à le faire fonctionner chez toi peux-tu stp m'envoyer le fichier excel que je regarde la différence.

A l'avance merci

A+

 

[Pierrot93]

Re : Propriété Rowheight de la Class Range

Re,

Si tu as réussi à le faire fonctionner chez toi peux-tu stp m'envoyer le fichier excel que je regarde la différence.

bah.. depuis le temps... plus le fichier moi...

 

[billpancho]

Re : Propriété Rowheight de la Class Range

Ah ok !

Tiens je l'ai isolé sur un fichier à part...
Si tu peux me dire ce qui cloche ...
A+Regarde la pièce jointe Classeur1.xlsm

 

[Pierrot93]

Re : Propriété Rowheight de la Class Range

Re,

fonctionne très bien chez moi sous 2003... quelle valeur tu mets dans la textbox ?

 

[Si...]

Re : Propriété Rowheight de la Class Range

salut

CInt pose problème Si... le contenu n'est pas numérique. Essaie plutôt Val qui retourne 0 dans le cas cité.

Private Sub CommandButton1_Click()
  Range("A2").RowHeight = Application.CentimetersToPoints(Val(TextBox1))
End Sub

 

[billpancho]

Re : Propriété Rowheight de la Class Range

En effet, cela fonctionne bien, j'avais juste oublié qu'il existé une hauteur max de 409 p par ligne soit environ 15 cm

Merci a vous pour votre aide