Bonjour,
j'ai veux sauvegarder des donne dans une base mais peut êtres avec des cellule fusionner elle n'a pas marcher
je veux enregistrer des donner de ma feuille " General information" vers une autre feuille "base"
Private Sub CommandButton1_Click()
lgn = Sheets("Base").Range("A" & Rows.Count).End(xlUp)(2).Row
For i = 1 To 31
adrI = Choose(i, "D4:E4", "D6:E6", "N4:P4", "N6:P6", "D10:I10", "M10:P10", "D11:P11", "D12:E12", "H12:K12", "M12:P12", "D15:I15", "M15:P15", "D17:F17", "M17:P17", "B19", "E19", "H19:I19", "M19:N19", "B21", "E21", "H21:I21", "N21", "D23", "H23:I23", "D25:E25", "N25", "D27", "F32:H32", "M32:N32", "F34:H34", "M34:N34")
Sheets("Base").Cells(lgn, i).Value = Range(adrI)
Range(adrI).ClearContents
Next i
End Sub
Un grand merci à vous
Si possible me donner un code ou me corrigé