bonjour le forum
Je voudrais essayer de resoudre un probleme et merci si vous pouvez m'aider.
J'ai fait un userform avec une liste multiselection (Demandeur) provenant de la sheets("BD"),colonne I
aprés une selection de un ou plusieurs Demandeurs, Il faudrait que la ou les sheets("BD"). range ("G:W") contenant le nom du demandeur en Range(I) soit copié
vers la sheets("lievre").range("A"& .End(xlUp).
Voila ce que j ai commencé mais je crois que je me plante la multiselection me gene enfin je pense
merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 Private Sub Validez_Click() Dim DerligLI As Long, DerligBD As Long Dim X As Integer, y As Integer Dim Demandeur As Range DerligLI = Sheets("Lievre").Range("A65000").End(xlUp).Row 'la premiere ligne vide de A dans feuil lievre DerligBD = Sheets("BD").Range("I65536").End(xlUp).Row ' derniere ligne vide de I dans feil BD With Sheets("BD") 'avec sheets BD If Demandeur <> "" Then 'si Demandeur n' est pas vide 'DANS LA COLONNE i DE BD trouve la valeur demandeur selectionner dans la listbox Set Demandeur = .Range("I2:I" & Derlig).Find(Demandeur) y = 15 'Dans chaque ligne BD en I For X = 2 To DerligBD If .Range("A" & X).Value = Demandeur.Offset(o, -2).Value Then 'copie en sheets lievre derligne libre la je suis encore plus perdu Copy Destination:=DerligLI y = y + 1 End If Next X End If End With End Sub
Partager