Soustraire à l'aide de macro dans listbox

Bonjour Parmi,

j'ai un peu modifié le code que tu m'avais donné concernant le transfert de listbox1 vers listbox2
sur ce point y a pas de soucis (encore un énorme merci).

J'ai juste rajouté dans l'userform un bouton transfert
Ce bouton me permet de transferer les données de ma listbox2 vers une feuille excel

Pour le transfert j'y arrive

Cependant, je bloque sur si je veux faire une deuxième fois le transfert

Je m'explique
En ayant fais le transfert la première fois, le bouton me copie ma textbox2 vers ma feuille excel (pour ça pas de soucis)
En refaisant une deuxième fois un transfert, j'aimerais que mon bouton me copie ma textbox2 vers ma feuille excel mais à la suite de mon premier transfert (c'est la que je bloque)

je te transmet le code que j'utilise

Code:

---

1 2 3 4 5 6 7 8

With Sheets("Feuil2") 'Ce place à la dernière ligne vide Dim dc As Range Set dc = Range("A65536").End(xlUp).Offset(1, 0) dc.Select   Sheets("Feuil2").Range("A1").Resize(Me.ListBox2.ListCount, 4).Value = ListBox2.List End With

---

En te remerciant encore pour ta patience

Sur cette ligne, tu colles en A1

Citation:

---

Sheets("Feuil2").Range("A1").Resize(Me.ListBox2.ListCount, 4).Value = ListBox2.List

---

Essaie

Code:

---

Sheets("Feuil2").Range("A" & dc).Resize(Me.ListBox2.ListCount, 4).Value = ListBox2.List

---

Bonjour,

Me suis empressé d'essayer

Malheureusement ça m'indique un message d'erreur:
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

Voici le code que j'ai mis d'après ce que tu m'as donné

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton3_Click()   With Sheets("Feuil2") 'Ce place à la dernière ligne vide Dim dc As Range Set dc = Range("A65536").End(xlUp).Offset(1, 0) dc.Select Sheets("Feuil2").Range("A" & dc).Resize(ListBox2.ListCount, 4).Value = ListBox2.List End With   End Sub

---

En te remerciant

Où apparaît l'erreur? sur quelle ligne ?
NB: je n'utilise jamais le Resize... :?

re
dans un with toujour faire precéder "range" par le point pour indiquer que le range est l'enfant de
et il y a cellule ,row(ligne de la cellule) , column(colonne de la cellule) se sont trois chose bien distinte

l'instruction "Set" est faite pour instancier une variable object en l'occurence ici un range et dans ta ligne resize tu te sert de "dc" comme une ligne alors que c'est une cellule
se sera donc :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton3_Click()   With Sheets("Feuil2") 'Ce place à la dernière ligne vide Dim dc As Range Set dc = .Range("A65536").End(xlUp).Offset(1, 0) 'dc.Select' pas besoin de select a moins que tu veuille pointer au quel cas utiliser le scroll pour visualiser la ligne dans le visiblerange .Range("A" & dc.row ).Resize(ListBox2.ListCount, 4).Value = ListBox2.List End With End Sub

---

si tu veux que "dc" soit le numero de ligne directement
se sera :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton3_Click() With Sheets("Feuil2") 'Ce place à la dernière ligne vide Dim dc As long dc =.Range("A65536").End(xlUp).Offset(1, 0).row dc.Select .Range("A" & dc).Resize(ListBox2.ListCount, 4).Value = ListBox2.List End With   End Sub

---

le code est il dans un userform??
si c'est non il faudra aussi preciser le parent de listbox2 et peut etre meme passer par la collection oleobjects si elle est dans une feuille


annalise bien la différence entre ceci:

Code:

---

1 2 3 4

'on instancie la variable "dc" en tant qu'object "Range" Dim dc As Range Set dc = .Range("A65536").End(xlUp).Offset(1, 0)

---

et cela

Code:

---

1 2 3 4

'on instancie la variable"dc" ent tant que variable long(numerique) on lui donne la valeur numerique de la ligne Dim dc As long dc =.Range("A65536").End(xlUp).Offset(1, 0).row

---

Bonjour,

Un grand merci patrick pour ta réponse, c'est exactement ce que je voulais

Et je remercie aussi parmi pour tous son temps à mon égard.

Merci à vous deux