Bonjour à tous!!!
Je viens vers vous car j'ai un petit souci avec un petit code vba,étant novice dans cet art j'aurais besoin d'une petite aide s'il vous plait.
Mon souci:je souhaiterais sur une meme feuille Excel coller des données sur différentes plages de cellules.
Par exemple:mon code permet via un UserForm de coller des données sur la Feuil2 à partir de la cellule A2,et j'aurais aimé coller aussi des données en H2 et P2.
Le message d'erreur afficher est "impossible de coller les infos car les zones copier et de collage sont de formes et tailles différentes..."
Donc j'ai essayé d'utiliser la méthode Range sous toutes ces formes ,impossible de réussir.
voici mon codesouhaitant coller à partir de la cellule P2)
Merci beaucoup pour votre aide futur!!!!
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 Private Sub CommandButton13_Click() Dim Tabl(): j = 0 With Me.ListBoxLocataire For i = 0 To .ListCount - 1 If .Selected(i) = True Then j = j + 1 ReDim Preserve Tabl(0 To j) Tabl(j) = .List(i, 0) .Selected(i) = False End If Next End With Sheets("EXTRACTION").Activate Range([A1], [A65536].End(xlUp)).Select Set Plg = Selection For w = 1 To j For Each cell In Plg If CStr(cell.Value) = Tabl(w) Then Rows(cell.Row & ":" & cell.Row).EntireRow.Select Set maPlage = Selection 'LE METTRE EN P2 Set Destination = Sheets("URGENCE").Range("P65536").End(xlUp).Offset(1, 0) maPlage.Copy Destination Exit For Else End If Next cell Next w Call Reaffiche End Sub![]()
Partager