Prolonger des colonnes en vba [Résolu]

Signaler
-
 Lucie -
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

Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
632
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à

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.
Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
632 > Lucie
comme ceci

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


@+ Le Pivert
>
Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021

Un très grand merci pour votre aide !