VBA, modifer une cellule en fonction d une autre

Bonjour

Je débute en VBA et je bloque pour créer une condition en fonction de la valeur d'une cellule et j'aurai besoin qu'on m'aide.

j' ai une colonne de N3 à N7 qui contient uniqument des 0 et une colone de O3 à O7 avec des chiffres diverses.

En fait je veux créer une macro qui si la valeur change en N et devient>0 alors la valeur en O elle devienne égale à 0, sinon elle conserve sa valeur actuelle.

Je veux en gros IF Range (N3:N7)>0 then Range (03:07)=0 , Else Range (03:07)= valeur actuelle.

Pouvez vous me donner le code permettant de réaliser cela ?

Merci beaucoup pour votre aide .

Il faut utiliser une macro évènementielle Worksheet_Change.
Lis ça : https://msdn.microsoft.com/fr-fr/lib.../ff839775.aspx
Et ça : http://silkyroad.developpez.com/VBA/EvenementsFeuille/

Faire un test pour vérifier que la cellule modifiée est bien dans la zone souhaitée (N3:N7) et que sa valeur est non nulle.
Si c'est le cas, transférer la valeur avec un simple =.

Bonjour merci pour ces liens

En effet ca m'aide un peu à comprendre mais je dois mal déchiffrer
Le code car quand je transpose à mon cas cela ne marche pas ...

Bonjour,

conformément aux règles de ce forum, merci de poster via l'icône dédiée le code au moins entrepris …

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Citation:

---

Envoyé par umbrelala

je dois mal déchiffrer le code car quand je transpose à mon cas cela ne marche pas ...

---

Peux-tu montrer le code que tu as essayer de faire ?
"Ne marche pas", ce n'est pas très explicite comme explication...

Biensur excusez-moi ,je démarre sur le forum ci dessous le code tenté:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 14 Then ThisRow = Target.Row If Target.Value > 0 Then Range("0" &; ThisRow)= 0 Else Range("0" &; ThisRow) = End If End If End Sub

---

le code est surligné en rouge a partir de Range("0" &; ThisRow)= 0.

et je ne sais pas non plus quoi mettre comme valeur après le Else....

Bonsoir,

D'une part, tu confonds 0 et O (zéro et O), et comme il n'existe pas de colonne 0 ça foire et ensuite que fond les point-virgules après les esperluette ?
et comme te l'a demandé Marc, utilise les balises CODE pour encadrer ton code (bouton #). Testes ce code pour voir si il te convient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Excel.Range)   If Target.Column <> 14 Then Exit Sub If Target.Row < 3 Or Target.Row > 17 Then Exit Sub If Target.Count > 1 Then Exit Sub   If Target.Value > 0 Then   Application.EnableEvents = False Target.Offset(, 1).Value = 0 Application.EnableEvents = True   End If   End Sub

---

Super cela marche !!

je vous remercie vraiment beaucoup pour votre aide précieuse!

une derniere petite question , comment faire pour que cela s'applique également à la colonne 16 et 18 en plus de la 14 ?

Je vous souhaite un bon week end

Re,

Teste avec ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Excel.Range)   If Target.Column <> 14 And Target.Column <> 16 And Target.Column <> 18 Then Exit Sub If Target.Row < 3 Or Target.Row > 17 Then Exit Sub If Target.Count > 1 Then Exit Sub   If Target.Value > 0 Then   Application.EnableEvents = False Target.Offset(, 1).Value = 0 Application.EnableEvents = True   End If   End Sub

---