Copier cellules en bas dernier enregistrement
Résolu
Toutalo
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Toutalo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Toutalo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Copier cellules en bas dernier enregistrement
- Comment copier une vidéo youtube - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Dernier iphone - Guide
- Super copier - Télécharger - Gestion de fichiers
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
1 réponse
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
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