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
- En ligne sur messenger alors que non ✓ - Forum Facebook
- Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Graphisme
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
