Macro ou formule ?

[Julie.B]

BOnsoir


J'ai besoin d'un coup de main, J'aimerais metre une macro dans ma feuille ki corresponde à

Si D66=0 alors H39=D38



Merci A VOus
Bonne soirée a tous

 

[Wamme]

Bonsoir essaie une formule.

voir fichier joint

 

[G'Claire]

Salut

Si j'ai bien compris.

Je ne suis pas expert, possible qu'il faille faire une gestion d'erreur ou autre truc, mais une piste.


Dans la feuille en question nommé Feuil1


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Essaie

End Sub

Dans un module

Sub Essaie()

With Sheets("Feuil1")
If .Range("D66") = "0" Then
.Range("H39") = .Range("D38")
End If
End With

End Sub


Salut G'Claire

 

[Julie.B]

Bonjour Wanne


merci pour ton fichier joint, mais en fait je
ne peux pas metre de formule en H39, par ce que c'est une cellule lié
avec un formulaire,

c'est pour ca que je pensé utlisé une macro dans la fuille
donc une macro qui permet que

Si D66=0 alors H39=D38

 

[galopin01]

Bonsoir,
La solution de G'Claire s'est un peu trouvé court circuitée pourtant c'est la bonne. On peut la modifier un peu pour éviter des appels inutiles :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ($D$66) Then
If Target.Value = 0 Then Range("H39") = Range("D38")
End If
End Sub

(Et supprimer la Sub Essaie )