Discussion :

[aldorhyn]

Bonjour,

Etant tout nouvellement enregistré sur ce forum, avant de poser ma question je tiens à remercier l'ensemble des contributeurs qui aident bénévolement.
Depuis de nombreuses années j'ai pu obtenir un tas de réponses à mes petits problèmes en parcourant ce forum en simple visiteur guidé par ce célèbre moteur et ami de tous

Ce forum est une mine d'or. Donc, merci !
Je précise que, même si je me débrouille sur de l'excel de base, je reste nullissime en VBA (et encore le mot est faible)
Du coup, tous mes classeurs sont "bidouillés" sans recours à VBA et j'essaye de m'en passer autant que possible (certainement une erreur mais bon, quand on est nul...)

Mais là, je sèche et je pense que je ne peux pas faire autrement qu'utiliser un peu de code.


j'en viens à ma question (j'espère la poser sur la bonne partie du forum) :

Dans une feuille, je dois saisir un paramètre soit en € soit en %
Je saisis
soit un montant en € dans 1 cellule (admettons "B3"),
soit en % dans une autre ("D3" par exemple).

Je veux vider "D3" si je saisi en "B3" et inversement si je saisi en "B3" je veux vider "D3"
Je dois faire exactement la même manipulation pour 3 autres paramètres sur la même feuille
Je ne veux pas passer par une étape préliminaire type liste déroulante ou un truc dans le genre car il faut que la saisie de ce paramètre soit la + simple et rapide possible pour l'utilisateur final.



Donc, je bidouille sans succès depuis un moment avec .ClearContents et j'ai passé en vain plusieurs heures sur le net pour trouver une réponse à ce problème.
La solution est certainement simple mais ça dépasse mes compétences.
=> vous voyez le niveau... c'est pas brillant

quelqu'un aurait-il une idée pour me venir en aide ?

Par avance, merci d'avoir pris le temps de me lire.

[zoumzoum59]

Bonjour aldorhyn,

Essaye de regarder du coté de "Worksheet_Change" en utilisant .ClearContents tu devrais trouver.
Du moins je pense.

[aldorhyn]

Merci pour ta réponse
Mais je vois pas comment y arriver.
Je suis vraiment nul en VBA

[eriiic]

Bonjour,

le principe :

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.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Address(0, 0)
    Case "B3": [D3].ClearContents
    Case "D3": [B3].ClearContents
    End Select
    Application.EnableEvents = True
End Sub

maintenant s'il s'agit de plages entières à surveiller, ou si ça doit fonctionner avec un coller multiple il faudrait faire autrement.
eric

[zoumzoum59]

Bonjour eriiic,

Je pensais a quelque chose comme ça, mais je n'aurais pas fait un code aussi propre que toi.

[aldorhyn]

Extraordinaire...

eriiic, => merci, merci, merci !!!

C'est exactement ce que je recherchais

Alors, je comprend toujours pas (...et je suis preneur d'explications avec plaisir) mais vu que j'ai 4 paramètres à valider de cette manière, j'ai rajouté les cellules concernées à la suite.

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
17
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Address(0, 0)
    Case "D44": [F44].ClearContents
    Case "F44": [D44].ClearContents
    Case "D47": [F47].ClearContents
    Case "F47": [D47].ClearContents
    Case "K44": [M44].ClearContents
    Case "M44": [K44].ClearContents
    Case "K47": [M47].ClearContents
    Case "M47": [K47].ClearContents
    End Select
    Application.EnableEvents = True
 
End Sub

Et ça fonctionne.
Pour le béotien que je suis en VBA, ça relève du miracle....

donc encore merci merci bcp !!!

[Philippe Tulliez]

Bonjour,
Pour rendre la lecture plus simple encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    With Target
      Select Case .Address(0, 0)
        Case "D44", "D47", "K44", "K47": .Offset(ColumnOffset:=2).ClearContents
        Case "F44", "F47", "M44", "M47": .Offset(ColumnOffset:=-2).ClearContents
      End Select
    End With
    Application.EnableEvents = True
End Sub

[aldorhyn]

euhh...

Je suis un

Je comprend rien...

C'est de l'hébreu.... mais merci à tous !!

[unparia]

Bonjour aldorhyn
Aucune langue n'est incompréhensible, que ce soit l'hébreu, le chinois, ou quoi que ce soit d'autre, y compris le français.
Il suffit de l'apprendre et tout devient clair.
L'apprendre ? ben .... en en étudiant sa structure,t ses formes et ses expressions idiomatiques. Elles y sont exposées, en ce qui concerne VBA/Excel, dans ton aide interne VBA, qui est à lire, comme on lirait, pour n'importe quelle langue, un dictionnaire et la grammaire de cette langue.
Tout bête, non ?
Ne ménage pas cet effort-là. Tu en sortiras non seulement enrichi dans le domaine de CETTE langue, mais dans la foulée dans le domaine de toute nouvelle langue à apprendre, le seconde s'apprenant plus facilement que la première, la troisième plus facilement que la seconde, etc ... (crois-moi).
Amitiés

[aldorhyn]

Il suffit de l'apprendre et tout devient clair.
L'apprendre ? ben .... en en étudiant sa structure,t ses formes et ses expressions idiomatiques. Elles y sont exposées, en ce qui concerne VBA/Excel, dans ton aide interne VBA, qui est à lire, comme on lirait, pour n'importe quelle langue, un dictionnaire et la grammaire de cette langue.

Ne ménage pas cet effort-là. Tu en sortiras non seulement enrichi dans le domaine de CETTE langue, mais dans la foulée dans le domaine de toute nouvelle langue à apprendre, le seconde s'apprenant plus facilement que la première, la troisième plus facilement que la seconde, etc ... (crois-moi).
Amitiés

Je suis entièrement d'accord avec toi.
et je demande qu'à apprendre au contraire car avoir une réponse à un problème c'est bien mais comprendre la réponse c'est encore mieux.
C'est là qu'on progresse....
Comme pour bcp de choses en informatique, l'apprentissage de façon autodidacte est (de mon point de vue) la méthode la + efficace.
C'est ce que je fais depuis longtemps pour pleins d'autres sujets qu'Excel
Sauf que, je ne sais pas pourquoi, le VBA (ou de façon plus générale, le code),... ben j'ai eu beau essayer à plusieurs reprises... ça passe pas... .

Vu qu'on est en début d'année et que c'est le temps des bonnes résolutions, je vais essayer de changer de méthode d'apprentissage sur ce point précis...
qui sait ? peut-être que ça marchera ce coup-ci.

En tous cas, merci pour ton point de vue.

[eriiic]

Pour apprendre n'hésite pas à te servir de F1 sur les fonctions, méthodes et propriétés que tu ne connais pas.
L'aide excel est très complète et bien faite.
eric

[unparia]

Bonjour eriiic

Pour apprendre n'hésite pas à te servir de F1 sur les fonctions, méthodes et propriétés que tu ne connais pas.
L'aide excel est très complète et bien faite.

Cela fait plaisir de lire ce que tu as écrit là et qui est tellement vrai.
Merci de l'avoir dit.
Amitiés