Discussion :

[micpid49]

Bonjour
J'ai trouvé sur le net ce code pour copie des cellules vers d'autre cellule et sur la même feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
 
Application.ScreenUpdating = False
'ActiveSheet.Protect UserInterfaceOnly:=True
Range("E2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E3:L3").Copy
Range("G2").Value = Range("C15").Value
Range("E3:L3").PasteSpecial Paste:=xlPasteValues
Range("E2:L2").PasteSpecial Paste:=xlPasteFormats
Range("F2").Formula = "=IF(C14>0,SUM(C2:C13),"""")"
Range("H2").Formula = "=IF(C16>0,SUM(C14:C15),"""")"
Range("K2").Formula = "=IF(C19>0,SUM(C17:C18),"""")"
Range("L2").Formula = "=IF(C20>0,SUM(C16-C19),"""")"
 
Range("B2:B13,C15,C17,C18").ClearContents
Range("E2").Activate
 
End Sub

J'ai rajoute cette ligne de code : Range("G2").Value = Range("C15").Value (C15 contient une valeur)
Lorsque que je saisie les valeurs elles apparaissent en direct dans les cellules H2 K2 et L2 puis je lance la commande je me retrouve avec une ligne contenant la valeur de la cellule G2 et sur la ligne du dessous les valeurs des cellules H2 K2 et L2
Comment faire pour avoir tout sur une seule ligne
merci de votre aide

[Daniel.C]

Bonjour,

Lorsque que je saisie les valeurs

Dans quelles cellules ?

elles apparaissent en direct dans les cellules H2 K2 et L2

Y a-t-il des formules dans ces cellules ?

[micpid49]

Pour être plus clair
Je saisi les valeurs dans les cellules c15, c17 et c18
Les formules se trouve dans les cellules C14, C16, C19 et 20