Macro excel valeur de cellule

Résolu
Bonjour à tous,

voici mon problème:
j'ai une valeur de départ L
if range("Ax").value > L, then
L= range("Ax").value
else
On garde la dernière valeur de L
c'est au niveau de la formulation de cette condition que je bloque, comment peut on faire ???

Merci d'avance pour vos réponses!!!
ouais ouais je sais pour la fete des pères je vais demander un livre sur la prog!!!
Configuration: Windows XP
Internet Explorer 7.0

7 réponses

  1. Contributeur
    En lisant beaucoup et surtout en me servant de F1...
    Et dans ton cas, déclaration de variable t'aideras.
    A+
    0
    1. Contributeur
      a la place de dim mettre
      Static S
      La variable reste disponnible dans la macro.
      0
      1. merci
        0
      2. encore une question, pôur les macros t'as appris ca sur le tas ou t'as une bonne lecture a conseiller????
        0
    2. Contributeur
      Ca devrait fonctionné, c'est qu'il y a une anicroche dans la macro,
      si tu pouvais la mettre en entier ce serais plus facile.
      0
      1. ouais bah finalement ca fonctionne!! j'avais essayé sous Excel 2003 ca n'allait pas et sous Excel 2007 ca fonctionne donc c'est le principal!!
        Merci !!
        0
      2. hello,

        je te sollicite encore, juste pour la macro elle fonctionne et j'obtiens une valeur pour L mais lorsque je rejoue la macro la valeur n'existe plus. il y a t-il une astuce pour garder en mémoire une valeure entre deux fois ou on rejoue la macro??
        0
    3. Contributeur
      bonjour

      Pour répondre à la question de départ de lucho33, il suffit de mettre ceci sur une ligne
      if range("Ax").value > L then L= range("Ax").value 

      Cela te permet en fin de boucle d'avoir la plus grande valeur dans L que tu initialises à zéro.
      0
      1. Contributeur
        Salut toi,.. oui mais sa question était ELSE
        0
      2. Contributeur
        @lermite222bonjour lermite222

        c'est au niveau de la formulation de cette condition que je bloque,

        Donc la formulation n'as pas besoin de else... me parait répondre au blocage.
        0
      3. Contributeur
        @gbinformeSalut,
        je crois que tu a répondu à sa question.
        0
      4. Contributeur
        @lermite222RE :

        C'est le demandeur qui en fera ce qu'il veut et nous dira son resenti éventuellement :
        nos discussions ne servent qu'à faire avancer le "schmilibick"
        @+
        0
      5. @gbinformesalut gars!!

        oui en fait je me suis trop compliqué la tete!!
        comme on dis pourquoi faire compliqué quand on peut faire simple!!

        je vais mettre ca en place et tester!!!
        0
    4. Contributeur
      autre essai
      Sub J_Apprend()
          L = 12
          If Range("A1").Value > L Then
              MsgBox Range("A1").Address & " est plus grand que " & L
          ElseIf Range("A1").Value < L Then
              MsgBox Range("A1").Address & " est plus petit que " & L
          Else
              MsgBox Range("A1").Address & " est égale à " & L
          End If
      End Sub
      0
      1. merci a toi aussi !!!!
        0
    5. Contributeur
      Salut tous,
      Sub J_Apprend()
          L = 12
          If Range("A1").Value > L Then
              MsgBox Range("A1").Address & " est plus grand que " & L
          Else
              MsgBox Range("A1").Address & " est plus petit que " & L
          End If
      End Sub

      A+
      0
      1. Salut,

            Else
                MsgBox Range("A1").Address & " est plus petit ou égal à  " & L


        :)
        0
      2. Contributeur
        @onesdfbonjour à toi,
        Question ?

        pas compris ta remarque

        EDIT:
        Zut, vient juste de comprendre, et tu a raison.
        EDIT2:
        mais j'avais déjà rectifier
        0
    6. else rien du tout, End If
      0
      1. yes !!!

        merci
        je met ca en place et je test!!!
        0