moustic54
XLDnaute Occasionnel
Bonjour à tous
Je n'y connais rien en code VBA et même en lisant les différents messages je n'ai pas trouvé.
Ma question va sans doute paraitre stupide à plus d'un posteur maitrisant Excel. je voudrais pouvoir imprimer un tableau d'un clic sur un bouton. Le tableau va évoluer de 50 lignes à 100 lignes et plus. donc imprimer le tableau jusqu'à la derniere ligne renseignée. Mais je ne sais pas faire.
J'ai aussi trouvé un code qui affiche une bulle d'aide lorsque l'on approche la souris du bouton mais lorsque je reprends le code : debocage avec erreur sur ("monshape"). Pourquoi ?
Je n'y connais rien en code VBA et même en lisant les différents messages je n'ai pas trouvé.
Ma question va sans doute paraitre stupide à plus d'un posteur maitrisant Excel. je voudrais pouvoir imprimer un tableau d'un clic sur un bouton. Le tableau va évoluer de 50 lignes à 100 lignes et plus. donc imprimer le tableau jusqu'à la derniere ligne renseignée. Mais je ne sais pas faire.
J'ai aussi trouvé un code qui affiche une bulle d'aide lorsque l'on approche la souris du bouton mais lorsque je reprends le code : debocage avec erreur sur ("monshape"). Pourquoi ?
Private Sub Bouton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 10 Or X > Bouton1.Width - 10 Or Y < 10 Or Y > Bouton1.Height - 10 Then
ActiveSheet.Shapes("monshape").Visible = False
Else
ActiveSheet.Shapes("monshape").Visible = True
End If
End Sub
If X < 10 Or X > Bouton1.Width - 10 Or Y < 10 Or Y > Bouton1.Height - 10 Then
ActiveSheet.Shapes("monshape").Visible = False
Else
ActiveSheet.Shapes("monshape").Visible = True
End If
End Sub