Discussion :

[dlight]

Bonjour à tous.

J'ai un erreur 1004 que je ne comprends pas...

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 3 <> 0 Then
        x = InputBox("Quel est la valeur comptable ce ce placement ?", "Valeur Comptable")
        End If
 
 
Target.Offset(0, 2) = x
End Sub

Mon but est de simplement afficher un inputbox dans la mesure où la cellule de la colonne C est modifiée et d'inscrire le résultat deux colonnes à droite.

Merci à l'avance pour l'explication du code d'erreur 1004...

Dlight

[babaothe]

salut
oublie donc ta cellule et analyse de manière plus générale...
Regarde :

Code :

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

1
2
3
4
5
6
7
8
toto = 10
MsgBox toto = 3 ' ne peux retourner qu'une boléenne (vrai oiu faux, ici bien évidemment faux)
' la valeur de Faux/False est 0 preuve :
MsgBox "voilà lafvaleur de faux : " & Val(False)
'et comme toto = 3 est égal à 0 (comme expliqué ci-dessus) ===>>> toto = 3 <> 0 retournera forcément faux
MsgBox toto = 3 <> 0
'et donc ta condition
If toto = 3 <> 0 Then ' .... ne sera jamais vérifiée.

et comprends ce que sont les valeurs et expressions booléennes.

EDIT :
la condition ne sera vérifiée, donc, que lorsque, dans cet exemple, toto = 3 (précisément)
Mais alors : pourquoi passer par un test booléen et non, tout bêtement par :

Code :

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

If toto = 3 then ...

(ce qui revient au même)

[Pierre Fauconnier]

Salut.

Code :

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

1
2
If Target.Column = 3 Then
        x = InputBox

suffit.

[babaothe]

ou alors (mais il ne le dit pas) on lui impose d'utiliser un test logique, avec un opérateur logique) et, dans ce cas, invitons-le à étudier ce qu'est l'opérateur logique Xor.

[Pierre Fauconnier]

ou alors (mais il ne le dit pas) on lui impose d'utiliser un test logique, avec un opérateur logique) et, dans ce cas, invitons-le à étudier ce qu'est l'opérateur logique Xor.

Je trouve ce que tu dis totalement absurde

[babaothe]

Je trouve ce que tu dis totalement absurde

tout à fait d'accord avec toi, en remplaçant "absurde" par "superfétatoire" ou "démesuré" (ce que sont quelque fois les exercices imposés).

[Pierre Fauconnier]

tout à fait d'accord avec toi, en remplaçant "absurde" par "superfétatoire" ou "démesuré" (ce que sont quelque fois les exercices imposés).

Mais oui, mais oui

Et si on ne croit pas celle-là, tu nous en racontes une autre, qu'on rigole encore un peu?

Hou Hou, les méchants formateurs qui font rien qu'à embêter les apprenants...

[mercatog]

Ou ceci

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.Column = 3 And Target.Count = 1 Then
    If Target.Value <> 0 Then Target.Offset(0, 2).Value = InputBox("Quel est la valeur comptable ce ce placement ?", "Valeur Comptable")
End If
End Sub

[dlight]

Merci à vous tous pour vos différentes réponses. J'ai finalement utilisé le dernier code, celui de mercatog

J'ai encore un problème avec un autre bout de code du même genre...

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
 
    If Target.Value = 7 Then Target.Offset(0, 19).Value = 160
 
End sub
 
End If

Si ma feuille est protégé, ça ne fonctionne pas même si la cellule n'est pas verouillé et que je suis en mesure d'inscrire le 160...

Avez-vous une idée ?


Merci à l'avance

[Pierre Fauconnier]

Dans ta demande initiale, tu parles d'inscrire la valeur 2 colonnes à droite.

Dans le code que tu donnes, tu tentes d'inscrire la valeur 19 colonnes à droite.

Le problème pourrait venir de là...

[dlight]

Merci encore une fois pour vos réponses et désolé de ne pas avoir donné suite à votre dernier message plus rapidement...


Ma demande initiale fonctionne...

Je me suis inspiré du dernier code de mercatog afin que dans un autre onglet si dans la colonne B le nombre 7 est inscrit, 19 colonnes à droite le nombre 160 soit inscrit automatiquement

Actuellement, si ma feuille est protégé mais que la 19e colonne à droite n'est pas verrouillée, le 160 ne s'inscrit pas. Si ma feuille n'est pas protégé, le 160 s'inscrit.

Quelqu'un aurait une idée ?