Coller une plage de valeur sur la première ligne non vide
Fermé
strikas06
Messages postés
21
Date d'inscription
mercredi 24 octobre 2012
Statut
Membre
Dernière intervention
6 novembre 2012
-
31 oct. 2012 à 14:42
alena20 Messages postés 23 Date d'inscription lundi 23 juillet 2012 Statut Membre Dernière intervention 6 mai 2015 - 6 nov. 2012 à 16:43
alena20 Messages postés 23 Date d'inscription lundi 23 juillet 2012 Statut Membre Dernière intervention 6 mai 2015 - 6 nov. 2012 à 16:43
A voir également:
- Coller une plage de valeur sur la première ligne non vide
- Aller à la ligne excel - Guide
- En ligne sur messenger alors que non ✓ - Forum Facebook
- Affichez l'ensemble des diapositives à l'écran avec 5 diapositives par ligne. repérez le groupe de 3 diapositives avec une fleur identique alignées verticalement, supprimez la première d'entre elles. un nouveau groupe de 3 diapositives avec une fleur identique alignées verticalement apparaît, supprimez encore la première d'entre elles. déplacez les 3 premières diapositives de la 4e ligne au début de la présentation. quel mot est formé par les lettres de la première colonne ? - Forum Powerpoint
- Site de vente en ligne particulier - Guide
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
1 réponse
alena20
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
2
6 nov. 2012 à 16:43
6 nov. 2012 à 16:43
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
