Prolonger des colonnes en vba

Résolu/Fermé
Lucie - 14 avril 2021 à 10:48
 Lucie - 14 avril 2021 à 16:24
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

1 réponse

cs_Le Pivert Messages postés 7856 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2022 723
14 avril 2021 à 12:17
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à

1
Bonjour et merci beaucoup pour votre réponse.

Une petite question en complément, si je souhaite prolonger uniquement la dernière ligne, si par exemple ma dernière ligne est 12, alors prolonger de 100 lignes cette valeur.

Merci encore pour votre aide.
0
cs_Le Pivert Messages postés 7856 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2022 723 > Lucie
14 avril 2021 à 14:50
comme ceci

For j = DerniereLigneUtilisee + 1 To 100
        Cells(j, i + 1) = Cells(j - 1, i + 1)
        Next


@+ Le Pivert
0
Lucie > cs_Le Pivert Messages postés 7856 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2022
14 avril 2021 à 16:24
Un très grand merci pour votre aide !
0