Coller une plage de valeur sur la première ligne non vide
strikas06
Messages postés
22
Statut
Membre
-
alena20 Messages postés 24 Statut Membre -
alena20 Messages postés 24 Statut Membre -
Bonjour à tous,
Je suis débutant en VBA mais on me demnade de faire quelquechose... J'aurais besoin de votre aide! :))).
mon pb est le suivant: je dois pouvoir coller une plage de cellule à partir de ma sheet 2 jusque ma sheet 1 à l'aide d'une macro. Ma plage de cellules de la feuille 2 est déjà formatée en fonction des colonnes du tableau de la feuille 1 sur laquelle elle doit etre collée.
En fait, j'aimerais coller cette plage sur la première ligne non vide du tableau, et en plus j'aimerais coller uniquement les valeurs et garder la mise en forme du tableau...
J'espere que quelqu'un pourra m'aider.
Merci à tous.
Je suis débutant en VBA mais on me demnade de faire quelquechose... J'aurais besoin de votre aide! :))).
mon pb est le suivant: je dois pouvoir coller une plage de cellule à partir de ma sheet 2 jusque ma sheet 1 à l'aide d'une macro. Ma plage de cellules de la feuille 2 est déjà formatée en fonction des colonnes du tableau de la feuille 1 sur laquelle elle doit etre collée.
En fait, j'aimerais coller cette plage sur la première ligne non vide du tableau, et en plus j'aimerais coller uniquement les valeurs et garder la mise en forme du tableau...
J'espere que quelqu'un pourra m'aider.
Merci à tous.
A voir également:
- Coller une plage de valeur sur la première ligne non vide
- Comment supprimer une page vide sur word - Guide
- Partage de photos en ligne - Guide
- Formulaire en ligne de meta - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- Formaté mais pas de connexion Internet ? ✓ - Forum Matériel & Système
1 réponse
Bonjour strika06,
Si j'ai bien compris ton problem, voici la solution.
voici aussi le lien de document
https://www.cjoint.com/?BKgqNtEzdW9
J'espere, que j'ai pourrais vous aider!
Cord,
alena
Si j'ai bien compris ton problem, voici la solution.
Sub CopyPlage()
Dim sheeta1 As Worksheet, sheeta2 As Worksheet
Dim lastrow As Long
Set sheeta1 = Sheets("sheet1") 'source sheet
Set sheeta2 = Sheets("sheet2") 'destination sheet
lastrow = sheeta2.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'search for the last nonempty cell
sheeta1.Range("A15:E22").Copy 'copy the necessary range(as an ex)
sheeta2.Activate
sheeta2.Cells(lastrow + 1, 1).PasteSpecial xlPasteValues
sheeta2.Cells(lastrow + 1, 1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub
voici aussi le lien de document
https://www.cjoint.com/?BKgqNtEzdW9
J'espere, que j'ai pourrais vous aider!
Cord,
alena
