XL 2010 Modif Code d'un Bouton

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MuscatMimi

XLDnaute Accro
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
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
235
Réponses
3
Affichages
665
Réponses
4
Affichages
461
Réponses
4
Affichages
505
Retour