billpancho
XLDnaute Nouveau
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
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
Dernière édition: