Bonsoir,
Si vous essayer la formule suivante, vous comprendrez ce que les maîtres DAN ;Mytå et Banzai64 vous ont dit avec toute la bonne volonté du monde il sera impossible si vous ne modifier pas le nom de vos cellules.
S'il vous plait écrivez dans une cellule de la colonne I :
=Fin
=debut
puis cliquez deux fois sur la cellule vous identifierez d'oû provient le problème.
Remarque : votre cellule A1 porte deux noms depart et debut.
Il vous suffira pour corriger de supprimer les colonnes ainsi les noms disparaîtront également.
Et renommer pour exemple la cellule A 1 par depart et la cellule I 1 arrivée
Pour le code il plus simple de l'écrire sans tenir compte des noms des cellules, ceux-ci ne servent que pour les fonctions natives d'Excel pour les rendre plus lisibles lorsqu'elles sont assez abouties ou pour des créer des listes de choix personnalisés et autres mais je débute également, je ne prendrai donc pas une position ferme sur mes propos ci-dessus..
le code qui selon mon avis très personnel serait le suivant :
'Cas1: pour copier la valeur d'une cellule
Sub Macro1()
With Sheets("param")
.Range("A1").Copy .Range("I1")
End With
End Sub
'ou vous avez une autre possibilite
Sub Macro1()
With Sheets("param")
.Range("I1") = .Range("A1")
End With
End Sub
'Cas2: pour copier la valeur d'une colonne
Sub Macro2()
With Sheets("param")
.Range("I:I").Copy .Range("A:A")
End With
End Sub
Cdt
Air_2