Si vous souhaitez générer une liste de nombres aléatoires uniques, vous pouvez utiliser les fonctions RANDBETWEEN et VBA RND. Dans cet article, nous allons générer 3 numéros uniques à partir de la liste fournie. Vous pouvez trouver la question originale http://www.excelforum.com/excel-programming-vba-macros/1093315-vba-for-do- while-loop.html[ici] Question: Je veux qu’une macro génère une liste… Continue Reading Générer 3 numéros aléatoires unique dans Microsoft Excel

Dans cet article, nous allons créer une fonction personnalisée pour convertir des chaînes négatives en un entier. Les données brutes de cet article se composent de chaînes suivies d’un signe moins (-). Nous voulons convertir ces chaînes en entiers. Explication logique Dans cet article, nous avons créé une fonction personnalisée… Continue Reading Convertir les valeurs négatives traitées sous forme de texte en utilisant VBA dans Microsoft Excel

Ouvrez Excel et le VBE (Visual Basic Editor). Sauf si elle a été modifiée, la fenêtre VBE contient la fenêtre ProjectExplorer et la fenêtre Properties (celles-ci sont accessibles à partir du menu Affichage). Explorateur de projet: fonctionne comme un gestionnaire de fichiers. Vous aide à naviguer dans le code de… Continue Reading Utilisation de l’enregistreur de macros dans Microsoft Excel

Dans cet article, nous allons créer une macro pour fusionner des valeurs dans deux cellules consécutives. Les données brutes se composent de données départementales, qui se composent de l’ID de service, du numéro de ligne et du nom. Dans cet article, nous souhaitons fusionner l’ID de service et le numéro… Continue Reading Fusionner des cellules sans perdre les valeurs en utilisant VBA dans Microsoft Excel

Les macros ci-dessous afficheront une liste de toutes les polices installées. Remarque! Si plusieurs polices sont installées, la macro peut cesser de répondre en raison d’un manque de mémoire disponible. Sub ShowInstalledFonts() Dim FontNamesCtrl As CommandBarControl, FontCmdBar As CommandBar, tFormula As String Dim fontName As String, i As Long, fontCount… Continue Reading Afficher toutes les polices installées (Word) à l’aide de VBA dans Microsoft Excel

Lorsque vous avez de nombreuses conditions à vérifier ou que vous souhaitez effectuer une opération sur la base du choix de l’utilisateur, vous pouvez utiliser des instructions If Else If. Mais ils sont gênants lorsqu’il s’agit de conditions multiples. Dans ce cas, la meilleure solution dans Excel VBA est la… Continue Reading VBA Select Case: une alternative de multiples If Else Si états

Dans cet article, nous utiliserons l’événement du classeur pour mettre en évidence des dates supérieures à la date actuelle. Les données brutes pour cet exemple se composent de l’objectif de vente quotidien et de l’objectif atteint. Nous souhaitons mettre en évidence les jours supérieurs à la date actuelle. Explication logique… Continue Reading Changer la couleur de police fonction de la date en utilisant VBA dans Microsoft Excel

Les chaînes de profil privé sont souvent utilisées pour stocker des informations spécifiques à l’utilisateur en dehors de l’application / du document pour une utilisation ultérieure. Vous pouvez par exemple stocker des informations sur le dernier contenu dans une boîte de dialogue / formulaire utilisateur, combien de fois un classeur… Continue Reading Cordes Profil privé à l’aide de fichiers ini en utilisant VBA dans Microsoft Excel

Avec la macro ci-dessous, vous pouvez renvoyer la taille de l’écran avec la fonction GetSystemMetrics32. Declare Function GetSystemMetrics32 Lib « User32 » _ Alias « GetSystemMetrics » (ByVal nIndex As Long) As Long Sub DisplayMonitorInfo() Dim w As Long, h As Long w = GetSystemMetrics32(0) ‘ width in points h = GetSystemMetrics32(1) ‘ height… Continue Reading Déterminer la taille de l’écran en utilisant VBA dans Microsoft Excel

Question: Les jours de la semaine et les dates d’un mois doivent être ouverts dans un tableau bidimensionnel puis insérés dans la feuille Réponse: Placez le code ci-dessous dans le module standard. Sub dayarray() Dim arrDay(1 To 31, 1 To 2) As Variant Dim intCounter As Integer For intCounter =… Continue Reading Comment créer une matrice de dynamique VBA dans Microsoft Excel