Probleme d'ecriture dans une cellule avec Range().Value

[samtimber]

Bonjour a tous,

Bon,j'ai un problème avec range().value et cells,et je peux pas écrire dans une cellule par l'intermédiaire de ces deux propriété.
voila,un simple exemple:fonction qui échange le contenue de deux cellule.
le code :
==========
Public Function echanger_les_nombres(cell1 As Range, cell2 As Range)
Dim temp_echange As String
temp_echange = Range(cell2.Address).Value
Range(cell2.Address).Value = Range(cell1.Address).Value
Range(cell1.Address).Value = temp_echange
echanger_les_nombres = "Nbrs échangés avec succes!"
End Function
==========
vous trouvez le fichier excel ci-dessus:

j'aimerai bien si quelqu'un"un peut me trouver une solution😕

 

[mapomme]

Re : Probleme d'ecriture dans une cellule avec Range().Value

Bonjour,

Une fonction renvoie une valeur dans la cellule appelante.
Pour votre cas, utilisez plutôt une 'SUB'
voir fichier joint.

Sub test()
swap Range("C6"), Range("D6")
End Sub

Sub swap(cell1 As Range, cell2 As Range)
Dim temp_echange
    temp_echange = cell2
    cell2 = cell1
    cell1 = temp_echange
    MsgBox "Nbrs échangés avec succes!"
End Sub

 

[samtimber]

Re : Probleme d'ecriture dans une cellule avec Range().Value

Merci pour la réponse mapomme,
je crois que j'ai mal poser mon problème,le code que j'ai postuler n'est qu'un exemple .
en faite,je veux utiliser Range().Value dans une autre application excel,ms j'arrive pas à l'utiliser,et je me demande si quelqu'un peut m'expliquer la façon correct de l'utilisation du Range().Value ou cells à travers l'exemple d'échange de contenu.