XL 2010 Modif Code d'un Bouton

laurent950

XLDnaute Barbatruc

• 31 Décembre 2020

• #2

Bonjour,

vaucluse immo à dit:

Je désire commencer a valider Les données d'une ligne de ma ListBox a partir de la ligne 12

Cliquez pour agrandir...

For x = 12 To .ListCount - 1

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 31 Décembre 2020

• #3

Bonsoir Laurent
j'ai déjà essayé ceci mais ça ne fonctionne pas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Décembre 2020

• #4

Bonjour le fil

Je pense qu'un fichier exemple et patati et patatata...

(ce que logiquement un XLDnaute Accro pensera aussi même les jours de réveillon )

EDITION: Bim !!! Transmission de pensée en direct

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Décembre 2020

• #5

Re

Heureusement que l'XLDnaute accro connait la charte et notamment le point RGP et fait en sorte de joindre un fichier anonyme...
C'est quoi tous ces emails valides dans ta PJ ?

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 31 Décembre 2020

• #6

pas grave j'ai pas pensé a les modifier

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 31 Décembre 2020

• #7

voici le fichier modifié

 

Pièces jointes

• Fichier Essai 1.xlsm

  26.7 KB · Affichages: 16

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Décembre 2020

• #8

Re

Si c'est grave (relis la charte du forum... )
Sinon pour la question, voici comment je vois la chose

VB:

'*********Staple1600 2020 (le dernier jour)*********

Private Sub CommandButton2_Click()
 With Me.ListBox2
 Sheets("Feuil1").Cells(Rows.Count, 2).End(3)(2).Resize(, 2) = _
 Array(.Column(0, .ListIndex), .Column(1, .ListIndex))
 End With
End Sub

Private Sub ListBox2_Click()
CommandButton2.Visible = True
End Sub

Private Sub UserForm_Initialize()
With Sheets("Feuil2")
   ListBox2.List = .Range("B2:C" & .Range("C65536").End(xlUp).Row).Value
End With
CommandButton2.Visible = False
End Sub

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 31 Décembre 2020

• #9

Bonjour @Staple1600

J'ai une question que j'ai essayer de développer : (je me trompe a qu'elle endroit ?)

Sheets("Feuil1").Cells(Rows.Count, 2).End(3)(2).Resize(, 2) = ""
Feuille 1
Cellule (Colonne 2) soit colonne B ' Pour 2
Rows.Count = ' Dernière cellule non vide de la colonne 2 avec :
- End(3) ' C'est l'équivalent de Xlup pour le code 3 ?
- Puis se qui suit (2) C'est la colonne 2 soit la colonne B
Resize :
- Cellule active avec déplacement d'une sur la droite : Soit Colonne B et C

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 31 Décembre 2020

• #10

je viens d'essayer les deux codes mais ça ne me valide pas mes données a partir de la ligne 12 de la feuil 1

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Décembre 2020

• #11

Re

=>laurent950
(à tester sur une feuille vierge)

VB:

Sub Questions_A_Laurent()
Dim Umma As Range, Gumma As Range
Randomize 1600
Columns(2).Clear
Cells(Int((Rnd * 17) + 1), 2) = "Staple"
Set Umma = Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
Set Gumma = Cells(Rows.Count, 2).End(3)(2)
zX = Umma.Address(0, 0): zY = Gumma.Address(0, 0)
MsgBox Umma.Address = Gumma.Address, vbInformation, zX & "<|>" & zY
MsgBox Umma.Resize(, 2).Address
With Application
Umma.Resize(, 2) = Array(.UserName, .UsableWidth)
End With
End Sub

Fiat Lux, désormais ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Décembre 2020

• #12

Re

=>vaucluseimmo
Mets le mot Staple en B12 puis ressaies mon code
et tu verras que cela fonctionne

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 31 Décembre 2020

• #13

Re @Staple1600
Excellent, mille merci pour cette explication par le code qui vaut tous les long discours.
J'ai saisie

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Décembre 2020

• #14

bonsoir 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

Cliquez pour agrandir...

on va faire simple si vous le voulez bien

VB:

Option Explicit
Private Sub CommandButton2_Click()
    Dim L&, x&
    L = Application.Max(12, Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row + 1)    '12 ou plus!!!!!
    With Me.ListBox2
        For x = 0 To .ListCount - 1
            If .Selected(x) Then Feuil1.Range("B" & L).Resize(, 2) = Array(.List(x, 0), .List(x, 1)): L = L + 1
        Next x
    End With
End Sub

Private Sub ListBox2_Click()
    CommandButton2.Visible = True
End Sub

Private Sub UserForm_Initialize()
    ListBox2.List() = Feuil2.Range("B2", Feuil2.Range("C" & Rows.Count).End(xlUp)).Value
    CommandButton2.Visible = False
End Sub

si plus de 2 ou 3 colonne pour la listbox je peux vous montrer comment on simplifie l'array
et rowssource oubliez si vous l'utilisez en vba ca n'a pas de sens

bien sur si vous voulez que la boucle ai un sens mettez la listbox en multiselect
sinon remplacer ceci

VB:

  For x = 0 To .ListCount - 1
            If .Selected(x) Then Feuil1.Range("B" & L).Resize(, 2) = Array(.List(x, 0), .List(x, 1)): L = L + 1
        Next x

par cela

Code:

Feuil1.Range("B" & L).Resize(, 2) = Array(.List(.listindex, 0), .List(.listindex, 1))

 

Dernière édition: 31 Décembre 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Décembre 2020

• #15

Bonsoir patricktoulon

=>patricktoulon
N'est-ce pas simple ce qu'on peut lire dans le message#8?

 

Vote positif 0 Vote négatif