Ajuster la valeur d'une cellule par un code

[Christophe]

Bonsoir le Forum,

Si la valeur saisi par l'utilisateur de la cellule B6 est inférieure à la valeur de la cellule B7, alors B6 doit être égale à B7.

ça, j'y arrive avec le code suivant :

if range('B6') < range('B7').value then range('B6')= range('B7').value

En revanche je souhaite que la cellule B6 reste vide si aucune valeur n'est saisie par l'utilisateur.

Et ça, ça, je ne sais pas faire ...

Un noctambule aurait-il une idée ?

Merci par avance. Bonne soirée.

 

[myDearFriend!]

Bonsoir Christophe,

Une façon de faire :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Application.Intersect(Target, Range('B6')) Is Nothing Then
            With Range('B6')
                  If .Value < Range('B7').Value And Not .Value = '' Then .Value = Range('B7').Value
            End With
      End If
End Sub

(à coller dans le module de code de la feuille concernée)

Cordialement,

 

[VIVI]

Désolée, ceci n'est pas une réponse à ta question.

ta formule m'interesse car ça fait 2 heures que j'en cherche une comme ça !
Par contre, pourrais tu :unsure: la réécrire avec la bonne syntaxe... histoire que je puisse faire un petit copié collé..
:whistle:

ce serait sympa
@+ et merci

 

[Christophe]

C'est exactement ce qu'il me fallait.
Merci bcp.

Christophe

 

[Christophe]

Vivi,

Si tu copies ce qu'à écrit Didier ci-dessous et que tu le colles dans le module de la feuille concernée, ça marche parfaitement.

Pour coller dans le module :
1) ouvre le fichier excel concerné
2) Outil
3) Macro
4) Visual Basic Editor
5) tu choisis dans la fenêtre en haut à gauche l'onglet concerné du fichier
6) tu colles
7) tu fermes Visual Basic

ça marche ...