Prolonger des colonnes en vba Résolu

Question

Bonjour, 

J'ai déjà fait appel précédement à vos conseils sur un précédent post. 

Grâce à vos conseils j'ai pu poursuivre mon idée de créer une checklist pour chaque variable dans ma feuille "Feuil1". 

Maintenant je bloque sur un autre souci, je cherche la chose suivante. 

Pour chaque case de la checklist cochée (correspondant à une variable), prolonger la colonne en question de 100 lignes. 

Exemple si dans ma checklist de mon UserForm je coche la première case qui correspond à la colonne A1, et que je valide ma séléction j'amerais que la colonne A soit prolongée de 100 lignes. 

Merci d'avance pour votre aide

Lien pour le fichier : https://www.cjoint.com/c/KDoiUkdbAYJ

Configuration: Windows / Edge 88.0.705.50

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Private Sub CommandButton1_Click()
Dim i As Byte
Dim j As Long
Dim DerniereLigneUtilisee As Long
    'boucle sur les éléments de la listbox
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        DerniereLigneUtilisee = Cells(Rows.Count, i + 1).End(xlUp).Row
        For j = DerniereLigneUtilisee + 1 To 100
        Cells(j, i + 1) = (j - 2) + 1
        Next
        End If
    Next i
End Sub 

Voilà

Prolonger des colonnes en vba

1 réponse

Discussions similaires

Newsletters