Ajuster la valeur d'une cellule par un code

Christophe · 5 Avril 2006

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! · 5 Avril 2006

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 · 5 Avril 2006

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 · 6 Avril 2006

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

Christophe

Christophe · 6 Avril 2006

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

Ajuster la valeur d'une cellule par un code

Christophe

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

VIVI

Guest

Christophe

XLDnaute Occasionnel

Christophe

XLDnaute Occasionnel

Discussions similaires