Lorsque vous avez un petit tableau de données avec quelques colonnes, vous pouvez facilement les compter toutes. Mais pour un grand tableau de données, il est assez difficile de compter toutes les colonnes sans erreur. De plus, certaines colonnes peuvent contenir des données, tandis que d'autres peuvent être complètement vides. Ainsi, compter toutes les colonnes avec des données dans le cas d'un grand tableau de données est assez difficile. Dans cet article, vous apprendrez 2 façons de compterdes colonnes avec des données en utilisant VBA dans Excel avec facilité.

Télécharger le cahier d'exercices

Vous pouvez télécharger le fichier Excel à partir du lien suivant et vous entraîner avec lui.

Compter les colonnes avec des données.xlsm

2 façons de compter les colonnes de données en utilisant VBA dans Excel

Compter toutes les colonnes d'une feuille de calcul contenant des données à l'aide d'un simple code VBA

Nous pouvons voir les 3 colonnes dans le tableau de données suivant. Nous allons maintenant utiliser un code VBA pour déterminer le nombre de colonnes utilisées dans une seule feuille de calcul Excel.

❶ Tout d'abord, appuyez sur ALT + F11 pour ouvrir l'éditeur VBA.

❷ Après cela, créez un nouveau module à partir de Insérer> ; Module.

❸ Après cela, copiez le script VBA suivant.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Le nombre de colonnes contenant des données est : " & ; .Columns.Count End With End Sub 

❹ Ensuite, retournez dans l'éditeur VBA et appuyez sur CTRL + V pour le coller.

❺ Maintenant, sauvegardez le code VBA en appuyant sur CTRL + S bouton.

❻ Pour exécuter le code VBA, allez dans la section Développeur et cliquez sur Macros Ou bien, il suffit d'appuyer sur la touche F5 clé.

Le site Macro apparaît.

❼ Tout ce que vous avez à faire, c'est de cliquer sur l'icône... Exécuter bouton.

Maintenant, vous verrez qu'une boîte de dialogue est apparue, qui dit que le nombre de colonnes avec des données est de 3.

Lire la suite : Comment compter le nombre de colonnes dans Excel (3 méthodes simples)

Compter toutes les colonnes d'une plage de données donnée à l'aide d'un code Excel VBA

Le code VBA suivant vous permettra de compter toutes les colonnes contenant des données dans une plage donnée.

Pour utiliser le code,

❶ Tout d'abord, ouvrez l'éditeur VBA en pressant ALT + F11.

❷ Alors allez à Insérer> ; Module pour créer un nouveau module.

❸ Après cela, copiez le script VBA suivant.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Total column : " & ; xRng.Range("B5:D5").Columns.Count End Sub 

❹ Retournez à l'éditeur VBA et appuyez sur CTRL + V pour le coller.

❺ Maintenant, enregistrez le code en appuyant sur CTRL + S.

❻ Allez à la Développeur et cliquez sur l'onglet Macros pour ouvrir le Macro fenêtre.

Ou bien, il suffit d'appuyer sur la touche F5 pour accéder à la Macro de la boîte de dialogue.

❼ Dans la boîte de dialogue, choisissez le nom de la fonction. CountColumnsInARange et a touché le Exécuter bouton.

Enfin, une petite boîte de dialogue apparaît, indiquant que le nombre total de colonnes est de 3.

Lire la suite : Comment compter les colonnes pour le VLOOKUP dans Excel (2 méthodes)

Plus de codes VBA pour compter les colonnes dans Excel

1) Utilisez la méthode Range.End de VBA pour renvoyer le dernier numéro de colonne utilisé.

Pour obtenir le dernier numéro de colonne utilisé dans une feuille de calcul Excel,

❶ Tout d'abord, ouvrez l'éditeur VBA en pressant ALT + F11.

❷ Alors allez à Insérer> ; Module pour créer un nouveau module.

❸ Copiez les éléments suivants VBA code :

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub 

❹ Collez et enregistrez le code dans l'éditeur VBA.

❺ Appuyez sur la touche F5 pour exécuter le code ci-dessus.

Vous obtiendrez le numéro de la dernière colonne dans une boîte de dialogue contextuelle, comme dans l'image ci-dessous :

Lire la suite : Comment compter les colonnes jusqu'à ce que la valeur soit atteinte dans Excel ?

Utilisez la méthode Range.Find pour obtenir le numéro de la dernière colonne utilisée dans Excel.

Si vous cherchez des codes VBA pour retourner le dernier numéro de colonne utilisé, suivez les étapes ci-dessous :

❶ Tout d'abord, appuyez sur ALT + F11 pour ouvrir l'éditeur VBA.

❷ Après cela, créez un nouveau module à partir de Insérer> ; Module.

❸ Copiez le code VBA suivant :

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber : " & ; xRng End Sub 

❹ Ensuite, retournez dans l'éditeur VBA et appuyez sur CTRL + V pour le coller.

❺ Maintenant, sauvegardez le code VBA en appuyant sur CTRL + S bouton.

Maintenant, appuyez sur le F5 pour exécuter le code ci-dessus.

Vous obtiendrez le dernier numéro de colonne utilisé dans une boîte de dialogue contextuelle, comme dans l'image ci-dessous :

Les choses à retenir

• Appuyez sur ALT + F11 pour ouvrir l'éditeur VBA.
• Vous pouvez appuyer sur ALT + F8 pour profiter de la Macros de la boîte de dialogue.
• Pour exécuter le code VBA, appuyez sur le bouton F5.

Conclusion

En résumé, nous avons abordé 2 façons de compter des colonnes de données en utilisant VBA dans Excel. Nous vous recommandons de télécharger le cahier d'exercices joint à cet article et de mettre en pratique toutes les méthodes. Et n'hésitez pas à poser vos questions dans la section des commentaires ci-dessous. Nous nous efforcerons de répondre à toutes les demandes pertinentes dès que possible. Et n'hésitez pas à visiter notre site web ExcelWIKI pour en savoir plus.