Astuces Excel
  1. Astuces Excel
  3. Les valeurs de copy de macro Excel d'une ligne à l'autre sans écraser les formules dans la ligne cible
Intereting Posts
Excel COM API – assigner à une gamme de cellules Positionnement dynamic des cases à cocher VBA Excel VBA intègre des images individuelles à la list des contacts électroniques Copier des lignes dans une autre feuille uniquement si les cellules 1 contiennent "x" et la cellule2 contient "y" Différence de pourcentage de calcul Insertion des colonnes du mois avant les sortingmestres Renvoi d'une réponse à l'aide de VBA dans un TextBox Pause et reprendre des buttons dans VBA Comment définir DateTimePicker dans la colonne de la feuille de calcul avec closedxml.dll VBA – macro de triggersment lorsque le button radio est sélectionné Exporter du text Excel en tant que file image Obtenir toutes les valeurs non vierges de la colonne et convertir en list de messagerie Delphi Excel UDF avec Type de return Variant VBA code 3 colonnes à 1, en utilisant un ordre spécifique Comment créer une ligne dans une feuille Excel à partir de R?

Les valeurs de copy de macro Excel d'une ligne à l'autre sans écraser les formules dans la ligne cible

J'essaie de créer une macro qui copy datatables de la ligne du mois en cours vers le bas. La ligne du mois en cours a des liens dans les cellules, donc, lorsqu'elle est actualisée, la date et datatables changent pour un nouveau mois (sept-16), mais avant de le rafraîchir, copyz datatables au mois correspondant ci-dessous. La colonne de solde a une formule dans chaque cellule (montant total). Comment puis-je copyr uniquement les valeurs, sans écraser la formule dans la cellule d'équilibre.

entrez la description de l'image ici

voici le code que j'ai 

Sub CopyData() Dim compareValue As Ssortingng Dim comparingValue As Ssortingng Dim i As Long compareValue = Cells(2, 2).Value For i = 3 To Rows.Count comparingValue = Cells(i, 2).Value If compareValue = comparingValue Then Sheets("Sheet1").Range("C2:J2").Copy lRow = Range("C" & Rows.Count).End(xlUp).Row Range("C" & lRow + 1, "J" & lRow + 1).PasteSpecial xlPasteValues End If Next i End Sub

Utilisez un transfert de valeur directe. 

 with worksheets("Sheet1").cells(i, "C").resize(1, 8) worksheets("another sheet").cells(rows.count, "C").end(xlup).offset(1, 0).resize(1, 8) = .value end with