Comment augmenter la zone de texte des colonnes via Excel VBA

Question

Je récupère des données d'une table via VBA. La requête de sélection donne une sortie correctement. Une des colonnes que je sélectionne a une description de texte qui est multiligne.Alors quand je reçois mon lignes, je veux augmenter la textaread de mes colonnes de feuille de calcul dynamiquement en fonction des résultats que je suis getting.How ce que je peux faire

Answer 1

Vous pouvez utiliser la méthode AutoFit sur les colonnes contenant le résultat de votre requête, par exemple

Columns("A:G").EntireColumn.AutoFit ' hardcoded ... works but isn't nice 

Si vous avez défini une plage pour le résultat de votre requête, utilisez ce fragment de code:

Dim QRslt As Range, QCol As Range 

    '.... 
    For Each QCol In QRslt.Columns 
     QCol.AutoFit 
    Next 
    '.... 

Si vous voulez limiter la largeur de la colonne à une certaine taille maximale entre vous comme alternative définir la propriété .WrapText des cellules à = True

espoir qui aide.

Bonne chance - MikeD