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