Discussion :

[umbrelala]

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 .

[Menhir]

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 =.

[umbrelala]

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 ...

[Marc-L]

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, …

[Menhir]

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...

[umbrelala]

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

Code :

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

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....

[Theze]

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 :

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

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

[umbrelala]

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

[Theze]

Re,

Teste avec ceci :

Code :

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

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