Copier cellules en bas dernier enregistrement
Résolu/Fermé
Toutalo
Messages postés
2
Date d'inscription
dimanche 20 novembre 2016
Statut
Membre
Dernière intervention
20 novembre 2016
-
20 nov. 2016 à 12:34
Toutalo Messages postés 2 Date d'inscription dimanche 20 novembre 2016 Statut Membre Dernière intervention 20 novembre 2016 - 20 nov. 2016 à 13:10
Toutalo Messages postés 2 Date d'inscription dimanche 20 novembre 2016 Statut Membre Dernière intervention 20 novembre 2016 - 20 nov. 2016 à 13:10
A voir également:
- Copier cellules en bas dernier enregistrement
- Copier video youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Quel est le dernier mot en bas de la 2e page pix - Forum Programmation
- Enregistrement ecran pc - Guide
- Les créneaux horaires ne doivent jamais se retrouver seuls en bas d’une page - Forum Bureautique
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
20 nov. 2016 à 13:04
20 nov. 2016 à 13:04
Bonjour,
_Mettez le contenu de vos cellules Fiche dans un tableau
_Chercher la prmeiere cellule vide en fin de la page "a part"
code: derlig = Range("A" & Rows.Count).End(xlUp).Row+1
_Copier le tableau cellules fiche a cette ligne
exemple de code a adapter:
_Mettez le contenu de vos cellules Fiche dans un tableau
_Chercher la prmeiere cellule vide en fin de la page "a part"
code: derlig = Range("A" & Rows.Count).End(xlUp).Row+1
_Copier le tableau cellules fiche a cette ligne
exemple de code a adapter:
Sub test()
Dim TInfos(10) 'tableau Infos cellules fiche a adaptrr
'recuperation des Infos cellules fiche
With Worksheets("feuil1")
TInfos(0) = .Range("A1").Value
TInfos(1) = .Range("B2").Value
TInfos(2) = .Range("C3").Value
End With
'recherche ligne et ecriture Infos Fiche
With Worksheets("feuil2")
derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Rows(derlig) = TInfos
End With
End Sub
20 nov. 2016 à 13:10
C'est toujours la même chose quand on y arrive pas on fait appel à l'équipe et puis finalement je viens de trouver la solution suivante assez simple
Range("G2:H3").Select
Selection.Copy
Sheets("Synhtèse").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False‹
Et çà marche
Merci pour votre aide