Bonjour à tous,

Vous connaissez certainement la fonction de recherche (CTRL+F), qui permet notamment de naviguer dans l'ensemble d'un classeur.

Je vous propose ici de créer un formulaire reprenant le même principe, mais pouvant servir directement dans vos applications, ou pour des recherches plus particulières.

Voici une série de 3 vidéos qui expliquent comment ajouter très rapidement cet outil de recherche dans un fichier.
Cliquez ici pour le fichier.

On va tout d'abord ajouter un formulaire :

Puis dans un module, le code qui permet de lancer le formulaire :

Sub AfficherUF_Erreur()

 Dim wksFeuille As Worksheet
 Dim rgeCellule As Range

 For Each wksFeuille In ActiveWorkbook.Worksheets
     For Each rgeCellule In wksFeuille.UsedRange
         If rgeCellule.Value = "Erreur" Then
             UF_Erreurs.ListBoxErreurs.AddItem rgeCellule.Value
             UF_Erreurs.ListBoxErreurs.List(UF_Erreurs.ListBoxErreurs.ListCount - 1, 1) = _
                          wksFeuille.Name
             UF_Erreurs.ListBoxErreurs.List(UF_Erreurs.ListBoxErreurs.ListCount - 1, 2) = _
                          rgeCellule.Address
         End If
     Next
 Next

 UF_Erreurs.Show 0
End Sub

Et finalement, le code lié au double-clic sur le formulaire:

Private Sub ListBoxErreurs_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Worksheets(Me.ListBoxErreurs.List(Me.ListBoxErreurs.ListIndex, 1)).Select
    Range(Me.ListBoxErreurs.List(Me.ListBoxErreurs.ListIndex, 2)).Select
End Sub

En vidéo, ca nous donne ceci :

Puis:

Note : Afin de pouvoir sélectionner les cellules posant problème, on va utiliser la propriété Modal en ajoutant un zéro : UF_Erreurs.Show 0
Et finalement :

Si vous voulez améliorer ce code en utilisant des variables tableaux (array) ou en jouant avec les propriétés des Listbox, n'hésitez pas à commander l'une de mes deux dernières formations :

Bonjour à tous,

Voici la question d'un lecteur :

"J'ai un tableau Excel protégé avec des cellules verrouillées et des cellules non verrouillées pour la saisie de plusieurs utilisateurs. Je voudrais que les cellules non verrouillées se verrouillent automatiquement après les saisies pour que les utilisateurs ne puissent plus les modifier, sauf moi."

Il existe probablement plusieurs solutions, mais en voici une possible en vidéo. Vous pouvez télécharger le fichier ici.

L'idée est de capturer l'événement Change de la feuille pour ensuite déprotéger la feuille, verrouiller la cellule, puis reprotéger la feuille.

Le code ajouté au clic droit sur la feuille est celui-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("MontantsASaisir")) Is Nothing Then
        Me.Unprotect
        Target.Locked = True
        Me.Protect
    End If
End Sub

Et en vidéo :

A bientôt.

Gaetan

Bonjour à tous,

Voici une petite revue de littérature des différences qui existent entre les formats XLSB et XLSM.
En synthèse, XLSB semble être idéal pour des fichiers lourds et permet d'accélérer l'ouverture, tout en réduisant la taille des fichiers. La récupération de fichiers corrompus pourrait être moins facile, donc bien s'assurer que les outils de backup soient bien en place.

Rapidité (ici avec XLSX) :
Voici un test effectué sur un fichier de 10 000 lignes par 1 000 colonnes

Source : http://stackoverflow.com/questions/7821632/when-should-the-xlsm-or-xlsb-formats-be-used

Avantages et inconvénients
- Le format XLSB semble être moins facilement récupérable en cas de corruption de données.
- Le format XLSB ne semble pas permettre la personnalisation directe du ruban (source). Il faut passer par un xlsm, puis reconvertir en xlsb. Je n'ai pas testé cette fonctionnalité.
- Le format XLSB ne fonctionne pas aussi bien avec des logiciels autres qu'Excel (comme OpenOffice).

Sources:
Analyst Cave

A bientôt.

Gaëtan