Sujet Précédent Sujet Suivant

VBA EXcel copie coller

Résolu/Fermé
bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 - 8 avril 2008 à 00:20
bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 - 8 avril 2008 à 21:42
Bonjour,
Voici mon probleme,
je voudrais copier avec un code vba ce qui est en "IP65459:IV65464" pour le mettre , case par case en "IP65473:IV65478" mon code est comme ce si : 
Private Sub CommandButton2_Click()
Range("E2").Value = "Être"
Range("IP65459:IV65464").Select
    Selection.AutoFill Destination:=Range("IP65473:IV65478"), Type:= _
        xlFillDefault
    Range("IP65465:IV65479").Select
    Range("IV65479").Select
Unload UserForm2
UserForm3.Show
End Sub

A voir également:

4 réponses

Réponse 1 / 4
bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 2
8 avril 2008 à 13:22
J'ai oublier de preciser, ces un tableux que je veux copier vers un autre tablaux
Merci
0
Réponse 2 / 4
Utilisateur anonyme
8 avril 2008 à 14:03
Bonjour,

Si vous effectuer une copir sur la même feuille : 

Private Sub CommandButton2_Click()

    Range("E2").Value = "Être"
    Range("IP65459:IV65464").Select
    Selection.Copy
    Range("IP65473").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("IV65479").Select
    UserForm3.Show
    Unload Me

End Sub

Lupin
0
Réponse 3 / 4
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 avril 2008 à 14:13
salut,

pour copier des cellules, faire : 
Range("IP65459:IV65464").Copy Destination:=Range("IP65473:IV65478")


;o)

polux
0
Réponse 4 / 4
bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 2
8 avril 2008 à 21:42
MERCIIIIIIIIIIIIIIIIIIIII
0