copier contenu cellule vba Résolu/Fermé

Question

Bonjour, 

Je vous envoie un bout du code, car je voudrai coller le contenu de la cellule E1 de liste de choix. Ce code marche en parti, il y a bien quelquechose qui se copie dans la cellule selectionnée mais c'est "Sheets("LISTE DE CHOIX").Range("E1").Select";

c'est le contenu que je veux et non un morceau de code. J'ai essayé avec Value mais sans succés.

Private Sub Tousvalider_Click()
Sheets("LISTE DE CHOIX").Range("E1").Select
Selection.Copy
Sheets("Cd").Select
PremiereDisponible = Range("IV2").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste

Merci d'avance de vos réponses

Configuration: Windows 7 / Internet Explorer 9.0

gbinforme · Answer

bonjour 

Tu n'as besoin que de ceci : 

Private Sub Tousvalider_Click() 
Sheets("LISTE DE CHOIX").Range("E1").Copy Destination:=Sheets("Cd").Range("IV2").End(xlToLeft).Offset(0, 1) 
End Sub 


Toujours zen 
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry

juliett51 · Answer

Merci 

Ca fonctionne nickel, mais je vais abuser de votre gentillesse:

en fait je voudrais copier directement le contenu d'une textbox et non d'une cellule

Je peux en effet passer par la copie d'une cellule et ca ne changerai rien au fichier, mais bon je voulais améliorer le truc...

Merci beaucoup

juliett51 · Answer

J'ai tardé avant de répondre,

mais super ca marche comme je veux,

Encore merci

Copier contenu cellule vba

3 réponses

Discussions similaires