Prolonger des colonnes en vba
Résolu/Fermé
A voir également:
- Prolonger des colonnes en vba
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
14 avril 2021 à 12:17
14 avril 2021 à 12:17
Bonjour,
comme ceci:
Voilà
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à
14 avril 2021 à 14:31
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.
14 avril 2021 à 14:50
For j = DerniereLigneUtilisee + 1 To 100 Cells(j, i + 1) = Cells(j - 1, i + 1) Next@+ Le Pivert
14 avril 2021 à 16:24