Discussion :

[Bifrons61]

Hello le forum
J'ai trouvé ce code que j'ai adapté pour ma feuille mais ça ne fonctionne pas, code mis dans la feuille. Il n'y a aucune erreur mais rien dans ma cellule I25. Je suis novice en VBA si jamais
Le but : dès que G17 change de valeur, je veux copier la valeur de J25 en I25 (I25 ne peut contenir de formule car effacée après chaque saisie des données dans la feuille)
Je dois aussi faire la même chose sur la ligne suivante comme dans le code ci-dessous mis en remarque ?

G17 = cette cellule est "alimentée" par le résultat d'une liste déroulante(N° de facture), on ne sélectionne jamais cette cellule
I25 = où on doit copier la valeur
J25 = où se trouve la valeur changée à chaque rappel de données
---

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$17" Then
        Range("I25") = Range("J25")
'        Range("I26") = Range("J26")   '??? possible ou pas ?
    End If
End Sub

Merci d'avance pour toute aide

[a_diard]

Bonjour:

G17 = cette cellule est "alimentée" par le résultat d'une liste déroulante(N° de facture), on ne sélectionne jamais cette cellule

Ton code est déclenché si la cellule G17 est sélectionnée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Target.Address = "$G$17"

si elle n'est pas sélectionnée, il est normal qu'il ne se passe rien.

Pour moi, en la sélectionnant ton code fonctionne.


il faut activer ton code "à chaque rappel de données"

[Bifrons61]

Vu que l'on ne sélectionne jamais la cellule G17 et que je n'ai pas trouvé d'autre solution, j'ai créé une "bête" macro qui s'exécute lorsque l'on fait un choix dans la liste déroulante et ça fonctionne super bien. Plus simple aurait été difficile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Inscription_Transport()
 
        Range("I25").Value = Range("J25").Value
        Range("I26").Value = Range("J26").Value
 
End Sub