Macro remplacer valeurs d'une plage par valeur + formule

Le 25/06/2021 à 23:45

Hello,

j'ai un tableau qui est généré par une macro et qui renvoie des valeurs.

Je voudrais ajouter à ses valeurs des informations.

Exemple: valeur du tableau en D5, je voudrais que D5 affiche toujours la valeur (disons 10) et y ajouter le résultat d'une recherchev (pommes)

A savoir que les valeurs sont réparties sur un plage variable

ci-joint un tableau pour illustrer :)

9test.xlsx (8.75 Ko)

Bien à vous,

Le 26/06/2021 à 00:58

Bonsoir Night

le mieux ce serait de modifier directement la macro

mais dans ton exemple on a pas la macro

donc te répondre et difficile

PAPYG

Le 26/06/2021 à 09:54

Bonjour papyg

voici la macro, c'est ma première et c'est principalement des copier coller :) helas je peux pas partager le fichier:/

Sub Générer_COPIE()

'Filtre des qty <>0

ThisWorkbook.Worksheets("Retail Master").Range("$A$15:$AR$1000").AutoFilter Field:=44, Criteria1:=">=1"

'Copie des cellules visibles (produit + spec +cadencement)
Dim PlageSpec As Range
Set PlageSpec = ThisWorkbook.Worksheets("Retail Master").Range("F15:BA1000")
    Range("F15:X500,AR15:BA500,AM15:AM500,CK15:GV500").Select
    Range("AR15").Activate
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy

'Collage des données dans onglet Copie
Sheets("COPIE").Select
Range("B13").Select
ActiveSheet.Paste

'Copie colle des entrepots
    Sheets("Retail Master").Select
    Range("CK14").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("COPIE").Select
    ActiveWindow.SmallScroll ToRight:=9
    ActiveWindow.SmallScroll Down:=-22
    Range("AF11").Select
    ActiveSheet.Paste

   'Calcul somme qty en haut des colonnes pour futur suppression si = 0
With Sheets("COPIE")
    .Range("$AF$12:$FA$12").FormulaLocal = "=SOMME(AF$14:AF$100)"
    With .Rows("12:12")
    End With
End With

'Suppression des colonnes dont le total est égal à 0

Dim i As Integer
For i = 157 To 32 Step -1
    If Cells(12, i).Value = 0 Then Columns(i).Delete
Next i

'Effacement des sommes
    ThisWorkbook.Worksheets("COPIE").Rows("12:12").Select
    Selection.ClearContents

'Mise en page de la Copie

ActiveWindow.Zoom = 75
ActiveWindow.DisplayGridlines = False
Cells.Select
Cells.EntireColumn.AutoFit
Range("D9").Select

End Sub

Night

Le 27/06/2021 à 00:21

Bonsoir Night

ce qui est maintenant certain c'est que ton tableau est généré par une copie

bon c'est déjà ça comme tu ne peux anonymiser ton fichier pour le partager, je te propose un fichier avec des données et différentes macros que tu pourras adapter à ton fichier

les data sont en feuille SOURCE

les libellés à ajouter sont en feuille PARAM

le résultat est en feuille BUT

4 boutons en feuille SOURCE (avec les 4 macros correspondantes)

le premier vide la feuille BUT

le second fait ajout au moment de la copie

le troisième fait seulement la copie (ce doit être ce que tu as actuellement)

le quatrième fait les ajout sur la copie faite precedement

5copyajout.xlsm (23.49 Ko)

PAPYG

Le 29/06/2021 à 15:21

Bonjour papyg,