Besoin d'une assistance, d'une application
MS Office
Consultez GEMCCAP

Affichage dynamique d'un champ dans un état

Si un champ de votre état ne contient pas toujours la même quantité de texte, par exemple un champ "commentaire", parfois vide, parfois quelques mots et parfois une vrai littérature.

• En mode création, sélectionnez le contrôle correspondant à ce champ et affichez la fenêtre des Propriétés
• Dans l'onglet Format, mettez les propriétés Auto extensible et Auto réductible à Oui.

Maintenant le contrôle s'affichera uniquement si le champ contient une données non nulle et sa taille s'ajustera en hauteur à la longueur du texte contenu dans le champ.

Mettre une photo (image) dans une zone de texte

• Afficher la barre d'outil Dessin
• Cliquez sur le triangle de l'outil Couleur de remplissage
• Cliquez sur Motifs et Textures...
• Dans l'onglet Image, cliquez sur le bouton Image et recherchez votre photo (ou image quelconque). L'image s'ajustera à la taille de votre zone de texte (effet de zoom)

Plusieurs formats de caractère dans une même cellule

• Sélectionnez plusieurs caractères du texte de votre cellule dans la barre de formule
• Utilisez la barre d'outil Mise en forme ou clic-droit sur la sélection et choisissez Format de cellule pour mettre en forme ce morceau de texte indépendamment du reste.

La même valeur dans une plage de cellule

• Sélectionnez votre plage
• Tapez votre valeur
• Appuyez sur Ctrl+Entrée

Forcer le format texte, par exemple pour écrire "Juillet 2003" sans qu'Excel ne le transforme en 01/07/03

Tapez une apostrophe avant votre valeur, par exemple 'Juillet 2003

L'enregistrement des images ne vous propose que le format bmp

Depuis quelque temps, lorsque vous désirez enregistrer une image depuis une page web dans votre ordinateur, il ne vous propose pas le format jpg ou gif mais uniquement le format bmp.
Dans le menu Outils, sélectionnez Options Internet, dans l'onglet Général, cliquez sur le bouton Supprimer les fichiers...
Vous supprimerez alors les fichiers temporaires installés dans votre disque dur pour accélérer le surf, mais vous retrouverez ensuite la possibilité d'enregistrer les images dans leur format d'origine.

Changer dynamiquement l'image d'une zone de texte

• Insérez une zone de texte dans votre feuille
• Cliquez sur le bord de cette zone (vous ne devez pas être en mode édition, curseur clignotant dans la zone de texte)
• Cliquez dans la zone Nom (zone situé tout à gauche de la barre de formule), tapez Photo puis appuyez sur Entrée
• Nommez une cellule AddrPhoto et insérez dedans l'adresse de votre fichier image 
• Clic-droit sur l'onglet de votre feuille
• Sélectionnez Visualisez le code
• Tapez le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Intersect(Target, Range("AddrPhoto")) Is Nothing Then Exit Sub
      Shapes("Photo").Fill.UserPicture Range("AddrPhoto")
End Sub

Interdire l'impression d'un fichier

• Dans l'éditeur Visual Basic Editor, affichez l'Explorateur de projets.
• Dans cette fenêtre Projet, Ouvrez l'arborescence VBAProject(nom de votre classeur)
• Double-cliquez sur ThisWorkbook de ce projet.
• Tapez le code suivant :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     MsgBox "Vous n'avez pas le droit d'imprimer ce fichier", vbOKOnly + vbInformation, "Nom du classeur ou votre nom"
     Cancel = True
End Sub

Supprimer les doublons

Public Sub SupprDoublon()
      Dim flleNouv As Worksheet, flleActu As Worksheet
      Dim rDoublon As Range

      Set flleActu = ActiveSheet
      Set rDoublon = Selection
      'exécute un filtre élaboré sans critère et sans doublon
      rDoublon.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
      'ajoute une feuille
      Set flleNouv = Worksheets.Add
      'sélectionne uniquement les cellules visibles
      rDoublon.SpecialCells(xlCellTypeVisible).Copy
      ' on colle ces cellules dans la nouvelle feuille
      flleNouv.Range("A1").PasteSpecial xlPasteAll
      'on affiche tout pour annuler le filtre
      flleActu.ShowAllData
      'on efface tous les contenus
      rDoublon.ClearContents
      ' on copie les données de la nouvelle feuille et on les colle dans la sélection
      flleNouv.Range("A1").CurrentRegion.Copy rDoublon.Cells(1)
      'on supprime la nouvelle feuille
      Application.DisplayAlerts = False
      flleNouv.Delete
      Application.DisplayAlerts = False
End Sub

Remplacer toutes les occurrences d'un mot par une image

• Insérez une première fois l'image dans le document et copiez-la dans le presse papier.

• Édition/Remplacer.

• Dans la zone Rechercher, tapez le mot à modifier.
• Dans la zone Remplacer par, tapez ^c (ce qui signifie Presse-papier pour Word)

Le Pique-note

Ce petit outil vous permet de couper plusieurs parties dispersées dans votre document puis de les coller ensemble en une seule fois.

1. Sélectionnez le 1er élément

2. Ctrl+F3

3. Sélectionnez l'élément suivant

4. Ctrl+F3

5. Recommencez autant de fois que voulu les étapes 3 et 4
6. Placez vous à l'endroit où vous désirez coller l'ensemble

7. Maj+Ctrl+F3