Comment insérer un tableau ou une zone de texte flottante dans une feuille de calcul Excel ?

Si vous avez un tableau ou une zone de texte contenant des données importantes que vous souhaitez toujours voir à l'écran, même lorsque vous faites défiler la feuille de calcul vers le haut ou vers le bas. Cela peut être une tâche intéressante ; dans cet article, je vais vous présenter une astuce rapide pour y parvenir.

Insérer un tableau flottant dans Excel avec du code VBA

Insérer une zone de texte flottante dans Excel avec du code VBA

Insérer un tableau flottant dans Excel avec du code VBA

Il n'y a pas de méthode directe pour insérer un tableau flottant, vous devez donc convertir les données du tableau en image, puis appliquer un code pour terminer l'opération. Veuillez procéder comme suit :

1. Sélectionnez le tableau de données que vous souhaitez garder visible, puis cliquez sur Copier > Copier en tant qu'image sous l' Accueil, voir capture d'écran :

2. Dans la fenêtre contextuelle Copier une image, sélectionnez Tel qu'affiché à l'écran dans la section Apparence, et choisissez Image sous la section Format, cliquez sur OK pour fermer la boîte de dialogue, puis cliquez sur une cellule pour afficher l'image, enfin, appuyez sur Ctrl + V pour coller cette image, voir capture d'écran :

3. Après avoir converti le tableau en image, faites un clic droit sur l'onglet de la feuille qui contient l'image du tableau que vous souhaitez toujours garder visible, puis choisissez Affichage du code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic pour applications ouverte, copiez et collez le code suivant dans le Module vide :

Code VBA : Insérer un tableau flottant dans Excel :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Remarque : Dans ce code, Picure1 est le nom de l'image que vous avez créée, veuillez le modifier selon vos besoins.

4. Ensuite, enregistrez et fermez la fenêtre de code. Maintenant, lorsque vous faites défiler la feuille de calcul et cliquez sur une cellule, l'image du tableau reste toujours dans le coin supérieur droit de la feuille de calcul.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Insérer une zone de texte flottante dans Excel avec du code VBA

Pour insérer une zone de texte flottante, voici également un code VBA pour résoudre cette tâche.

1. Tout d'abord, vous devez insérer une zone de texte depuis l'onglet Développeur, cliquez sur Développeur > Insérer > Zone de texte (contrôle ActiveX), puis dessinez la zone de texte et entrez les informations dont vous avez besoin dans la zone de texte. Voir capture d'écran :

2. Ensuite, faites un clic droit sur l'onglet de la feuille qui contient la zone de texte que vous souhaitez toujours garder visible, puis choisissez Affichage du code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic pour Applications ouverte, copiez et collez le code suivant dans le Module vide :

Code VBA : Insérer une zone de texte flottante dans Excel :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Remarque : Dans ce code, TextBox1 est le nom de la zone de texte que vous avez insérée, veuillez le modifier selon vos besoins.

3. Ensuite, enregistrez et fermez la fenêtre de code. Maintenant, lorsque vous faites défiler la feuille de calcul n'importe où, la zone de texte insérée reste toujours dans le coin supérieur droit de la feuille de calcul.