problème dans copie de cellules par VBA...

[pnlop]

Bonjour le forum,
Quelqu'un pourrait-il regarder mon fichier et me dire ce qui cloche, car vraiment je ne comprends pas!!!
La combobox1 s'alimente en cliquant su "choix des articles".
Choisir un n° au pif.
Valider avec bouton à droite.
la ligne vient se coller en dessous (dès B18 si 1ère fois)
B14:I14 + combobox se vide.

Jusque là ok...
Mais!!!!
2ème essai:
choix n° au pif dans Combo.
Valider...
Ca vient se coller à la suite! Yes Parfait!!!
OUUI MAIS!!! ça me remplace ma première ligne!!!!!!!
Et ainsi de suite!
Je devient zinzin.....😕

 

[phlaurent55]

Re : problème dans copie de cellules par VBA...

Bonjour pnlope,

avec ceci:

Private Sub CommandButton1_Click()

 Sheets("Feuil1").Range("B14:I14").Copy Destination:=Sheets("Feuil1").Range("B" & Range("B65535").End(xlUp).Row + 1)
 ComboBox1.Value = ""
 
End Sub

à+
Philippe

 

[pierrejean]

Re : problème dans copie de cellules par VBA...

Bonjour pnlop

A tester:

Private Sub CommandButton1_Click()
 Sheets("Feuil1").Range("B14:I14").Copy Destination:=Sheets("Feuil1").Range("B" & [B65536].End(xlUp).Row + 1)
 ComboBox1.Value = ""
End Sub

Edit : Salut Phillipe (Avais pas rafraichi)

 

[pnlop]

Re : problème dans copie de cellules par VBA...

OK merci phlaurent55 et pierrejean!
Bien entendu ça fonctionne comme ça et je suis en train de me demander pourquoi je veux toujours faire compliquer alors qu'on peut faire simple et que ça fonctionne mieux!!!
Bonne journée!