167 votes

Existe-t-il un moyen de faire défiler les pages par pixel, plutôt que par cellule, dans Excel ou OpenOffice Calc ?

Nous avons beaucoup de feuilles de calcul qui contiennent des listes de fichiers sonores numérotés pour une application éducative. Nous utilisons des fonctions de tableur telles que le "remplissage vers le bas" pour la numérotation, et nous utilisons souvent des formules pour vérifier si le contenu des cellules est le même lorsque des modifications sont apportées. Nous avons le texte associé au son dans une colonne, et les traductions correspondantes dans d'autres langues dans d'autres colonnes. Nous envoyons donc la feuille de calcul avec le texte anglais pour traduction, et nous la recevons en retour avec les traductions remplies par e-mail.

Malheureusement, les cellules sont souvent grandes et contiennent beaucoup de texte. Le défilement est très difficile, car la cellule est souvent coupée par les bords de l'écran et, lorsque vous essayez de la faire défiler, elle saute à la cellule suivante, de sorte que vous ne pouvez jamais voir le contenu complet de la cellule.

Existe-t-il un moyen de faire défiler le document dans OpenOffice Calc ou MS Excel, non pas par cellule, mais par nombre de pixels (défilement fluide) ?
Merci d'avance pour vos conseils.

0voto

mgutt Points 727

Une autre solution consisterait à utiliser une macro VBA qui permet d'automatiser le traitement des données. réduit la hauteur d'une cellule à la valeur par défaut, comme 12,75 points, après avoir quitté la ligne. Et si vous sélectionnez la cellule, la hauteur de la cellule est définie comme suit AutoFit qui affiche le texte complet d'une cellule.

Code :

Public LastCell As Object

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.CountLarge = 1 Then
        'MsgBox "Cell " & Target.Address & " clicked."
        If Not LastCell Is Nothing Then
            If LastCell.Row <> ActiveCell.Row Then
                'MsgBox "Set Entire Row Height of " & LastCell.Address & " from " & LastCell.RowHeight & " to a smaller value"
                LastCell.EntireRow.RowHeight = 12.75
                Set LastCell = Nothing
            End If
        End If
        'MsgBox "Set Entire Row from " & ActiveCell.RowHeight & " to AutoFit"
        ActiveCell.EntireRow.AutoFit
        Set LastCell = ActiveCell
    End If
End Sub

Sortie :

enter image description here

enter image description here

Si vous avez besoin de visualiser le contenu complet d'une feuille, vous pouvez ajouter une fonctionnalité qui définit AutoFit pour toutes les lignes en sélectionnant une colonne après votre contenu habituel.

SistemesEz.com

SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.

Powered by:

X