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

Une liste déroulante pour retrouver un enregistrement

• Ouvrez votre formulaire en mode création
• Cliquez sur le bouton Assistant contrôle de la barre d'outils Boîte à outils afin qu'il paraissent enfoncé.
• Cliquez sur le contrôle zone de liste modifiable et dessinez-la sur votre formulaire
• Dans la fenêtre qui s'ouvre, sélectionnez Rechercher un enregistrement dans mon formulaire basé sur la valeur ...
• Suivant
• Sélectionnez le champ qui contient la donnée sur laquelle vous désirez faire une recherche, par exemple le nom (ajoutez-y si vous le voulez d'autres champs afin que le choix soit plus clair).
• Suivant
• Régler éventuellement la largeur de vos colonnes
• Indiquez l'intitulé que vous désirez pour cette liste déroulante.
• Terminer

colorer les données manquantes

Soit 2 plages contenant des listes : la plage A1:A100  et la plage B1:B100 (par exemple); vous voulez savoir si des données de la 1ère liste sont absentes de la 2ème et inversement.
En utilisant le format conditionnel, vous pouvez par exemple colorer en rouge les cellules de la plage A1:A100 absentes de la plage B1:B100 et colorer en bleu les cellules de la plage B1:B100 absentes de la plage A1:A100.

• Sélectionnez la plage A1:A100
• Format/Mise en forme conditionnelle
• Sélectionnez la formule est
• Tapez la formule suivante : =NB.SI($B$1:$B$10;A1)=0
  Il est important que la plage qui sert de comparaison soit sous forme absolu (avec les $) et la cellule de comparaison en forme relative (sans les $).
• Appliquez une couleur de fond en cliquant sur le bouton Format...
• OK
• Sélectionnez la plage B1:B100
• Format/Mise en forme conditionnelle
• Sélectionnez la formule est
• Tapez la formule suivante : =NB.SI($A$1:$A$10;B1)=0
• Appliquez une couleur de fond en cliquant sur le bouton Format...
• OK

Séparer des données séparées par un espace, un point-virgule, .

Vous avez récupéré des données provenant d'un fichier texte, dont les données sont séparées par un point-virgule ou une liste de Noms et prénoms, que vous voulez séparer.

• Sélectionnez la cellule ou la plage de cellules
• Données/Convertir
• Dans la fenêtre qui s'ouvre, cochez Délimité
• Cliquez sur Suivant
• Sélectionnez le séparateur de vos données (dans le cas de votre liste de noms et prénoms, cochez Espace)
• Terminer

Convertir des heures en Décimal et inversement

Dans Excel, les heures s'affichent ainsi :
10:30    pour    10h30mn
00:45    pour    45mn
Si vous mettez la cellule au format standard au lieu de Heure, 10:30 devient 0,4375 et 00:45 devient 0,03125.
En effet pour Excel 1 journée est égale à 1. Dans 1 journée nous avons 24h donc 1h pour Excel est égal à 1/24, 1mn est égal à 1/24/60 et 1s est égal à 1/24/60/60.
Si la cellule A1 contient 10:30, et la cellule B1 contient la formule : =A1*24, alors elle affichera 10,5 (si vous lui appliquez le format standard ou nombre)
Par contre la cellule C1 contenant la formule = B1/24, celle-ci contiendra 0,4375 et 10:30 dès que vous lui appliquerez le format date "hh:mm".
Si en D1, vous ajoutez la formule =A1*24*60, celle-ci vous indiquera le nombre de minutes soit 630 (après avoir appliqué le format standard ou nombre).

Bloquer les pops-up

Vous connaissez certainement le moteur de recherche Google, sinon je vous invites fortement à l'utiliser. Ce dernier nous propose maintenant une barre d'outils à ajouter à Internet Explorer pour effectuer rapidement nos recherches.
Cette barre d'outils ne fait pas que de la recherche simple, elle vous offre des options supplémentaires tel que le blocage des pop-ups très efficaces. Vous ne serez plus embêté par ceux du site.

• Rendez-vous sur la page http://toolbar.google.com/intl/fr/
• Cliquez sur le gros bouton Télécharger la barre d'outils Google
• Enregistrez le fichier dans un de vos dossier puis exécutez-le
• Suivez les instructions d'installation.
• Dès que l'installation est terminée, ouvrez Internet Explorer
• Une nouvelle barre d'outils est présente, si vous ne la voyez pas cochez Google dans le menu Affichage/Barres d'outils
• Ouvrez la liste déroulante Google dans cette barre d'outils et sélectionnez Options
• Dans la partie Accessoires, cochez Bloquez les annonces pop-up.

Des cellules carrée

Public Sub CelluleCarree()
     ' hauteur ligne = largeur colonne
On Error Resume Next
     Dim NB As Long
     Dim Cellule As Range

     For NB = Selection.Row To Selection.Rows.Count + Selection.Row - 1
     ' pour NB = la 1ère ligne de la sélection à la dernière ligne (1ère ligne + le nombre de ligne - 1)
          Set Cellule = Cells(NB, Selection.Column)
          'l'objet Cellule est la cellule ayant le N° de ligne NB et le N° de colonne de la sélection
          Cellule.RowHeight = Cellule.Width
          'la hauteur de ligne est égale à la largeur de la cellule
     Next
End Sub

Pour utiliser cette procédure, attribuer une largeur de colonne à votre plage (d'1 ou plusieurs colonnes), sélectionnez la plage sur laquelle vous désirez appliquez la macro. Lancez la macro CelluleCarree

Enlever les accents d'un texte

Public Function EnleveAccent(strMot As String) As String
     strMot = Replace(strMot, "é", "e")
     strMot = Replace(strMot, "è", "e")
     strMot = Replace(strMot, "ê", "e")
     strMot = Replace(strMot, "à", "a")
     strMot = Replace(strMot, "ù", "u")
     strMot = Replace(strMot, "ç", "c")
     strMot = Replace(strMot, "ô", "o")
     strMot = Replace(strMot, "î", "i")
     strMot = Replace(strMot, "ï", "i")
     strMot = Replace(strMot, "É", "E")
     strMot = Replace(strMot, "È", "E")
     strMot = Replace(strMot, "Ê", "E")
     strMot = Replace(strMot, "Ë", "E")
     strMot = Replace(strMot, "Î", "o")
     strMot = Replace(strMot, "Ï", "o")
     strMot = Replace(strMot, "À", "o")
     strMot = Replace(strMot, "Â", "o")
     strMot = Replace(strMot, "Ô", "o")
     strMot = Replace(strMot, "Ö", "o")
     EnleveAccent =  strMot
End Function

Pour utiliser cette fonction :

• dans une cellule tapez =EnleveAccent(A1) par exemple
• dans une procédure, tapez strMonMotSansAccent = EnleveAccent(strMonMotAvecAccent),
  strMonMotSansAccent est une valeur string contenant le résultat et
  strMonMotAvecAccent est une valeur string contenant le texte dont vous désirez ôter les accents.

Masquer toutes les barres puis les réafficher

Sub MasqueBarre()
On Error GoTo GestionErreur
     Dim cbar As CommandBar

     For Each cbar In Application.CommandBars
     'pour chaque barre d'outils
          cbar.Enabled = False
          'la barre n'est pas activée
     Next
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "MasqueBarre"
End Sub

Sub AffichBarre()
On Error GoTo GestionErreur
     Dim cbar As CommandBar

     For Each cbar In Application.CommandBars
     'pour chaque barre d'outils
          cbar.Enabled = True
          'la barre est activée, elle ne sera alors visible que si elle l'était auparavent.
     Next
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "AffichBarre"
End Sub

Exécutez ces procédures lorsque vous en avez besoin dans votre code, par exemple à l'ouverture du classeur vous lancez MasqueBarre, puis à la fermeture lancez AffichBarre.

De jolis fonds d'écrans sans ralentir votre PC

Vous ne vous en rendez peut-être pas vraiment, mais lorsque vous choisissez une image (ou photo) au format Jpeg, vous ralentissez votre PC car votre bureau doit s'afficher comme une page web.
Pour remédier à ce problème :

• Ouvrez votre image au format jpg dans votre éditeur d'image préféré ou tout simplement dans Paint (vous le trouverez dans démarrer/Programmes/Accessoires)
• Fichier/Enregistrer sous
• Sélectionnez le type de fichier bitmap 24 bits (bmp)
• Remplacez votre fond d'écran actuel par cette nouvelle image

Retrouver rapidement les documents les + utilisés

Pour cela, vous ajoutez dans la barre d'outils de votre choix un menu qui vous affichera la liste des documents que vous y ajouterez par la suite.

• Outils/Personnaliser
• Sélectionnez la catégorie Menus prédéfinis.
• Sélectionnez la commande Travail.
• Glissez cette commande où vous voulez dans la barre de menus ou dans une barre d'outils.
• Renommez le éventuellement.

Pour ajouter un document à ce menu, il vous suffit de cliquer sur la commande  Ajouter au menu travail de ce menu. Vous aurez ainsi un menu qui va comprendre la liste des documents que vous aurez ajoutés.