XL 2010 Modif Code d'un Bouton

MuscatMimi · 31 Décembre 2020

Bonsoir a tout le Forum et joyeuses fêtes a tous

J'a ce Code de D Josserand qui date de 2005,Je désire commencer a valider Les données d'une ligne de ma ListBox a partir de la ligne 12
de ma feuille,et ainsi de suite,j'y arrive pas

VB:

Private Sub CommandButton2_Click()
Dim L As Integer, x As Byte
L = Sheets("Feuil1").Range("B600").End(xlUp).Row + 1 'incrémente données
    With Me.ListBox2
        For x = 0 To .ListCount - 1
            If .Selected(x) = True Then
                'Feuil1.Range("A" & L) = .Column(0, x)
                Feuil1.Range("B" & L) = .Column(0, x)
                Feuil1.Range("C" & L) = .Column(1, x)
                
                L = L + 1
            End If
        Next x
    End With
End Sub

Merci a tous a l'avance,prenez soin de vous
Cordialement
christian

MuscatMimi · 1 Janvier 2021

Bonjour a tous
alors la Job75 c'est de code light,
mais LisBox_Cliq pas bon,
c'est Validation avec le Bouton,car si l'on c'est trompé dans la ListBox faut aller effacer le contenu de la ligne

job75 · 1 Janvier 2021

vaucluse immo à dit:
mais LisBox_Cliq pas bon,
c'est Validation avec le Bouton,car si l'on c'est trompé dans la ListBox faut aller effacer le contenu de la ligne

Fichier (2) :

VB:

Private Sub CommandButton2_Click() 'RAZ
ListBox2.ListIndex = -1
If MsgBox("TOUT ?", 4, "Effacer tout ou dernière ligne") = 6 Then Feuil1.Rows("12:65536").ClearContents _
    Else If Feuil1.[B12] <> "" Then Feuil1.[B11:B65536].Find("", , xlValues).Offset(-1).EntireRow.ClearContents
End Sub

XL 2010 Modif Code d'un Bouton

MuscatMimi

XLDnaute Accro

MuscatMimi

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires