Prolonger des colonnes en vba
Résolu/Fermé
A voir également:
- Prolonger des colonnes en vba
- Word colonnes indépendantes - Guide
- Figer des colonnes excel - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Ecrire sur 2 colonnes indépendantes ✓ - Forum Word
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
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