Macro Excel

Résolu
afullana -  
Bonjour,

Voici mon problème,
Sur la feuille Lot, J'ai une cellule en B15 avec un code qui évolue ( requete Query)

Sur la même feuille, j'ai une cellule B10 avec elle aussi un code qui évolue ( requete Query)

Sur la feuille lot j'aimerais créer une macro qui fait : Si (B15 différent de B10 ; alors: effacement d'une cellule sur la feuille Lot ; Sinon rien)

Avez-vous quelques tuyaux a me donner ?

Autre chose, existe il une fonction « CLEAR » mais qui ne supprime pas le formatage de la cellule ?

Merci d'avance

10 réponses

  2.  Ricky38 Contributeur
    oui au lieu de Clear tu mets ClearContents et le format de cellule va rester

    et au passage <> fonctionne très bien et veut dire n'égale pas, ou différent

    1. afullana Auteur
      j'ai essayé et il s'avere que le <> utilisé sous excel ne fonctionne pas sous VBA ( ou alors pas avec des valeurs numeriques).

      j'ai remplacer par un = et la pas de pb cela fonctionne

      Sub clear()
      If Worksheets("Lot").Range("B10") = Worksheets("Lot").Range("B15") Then
      Worksheets("Lot").Range("H8").clear
      End If

      End Sub

      A tout hasard ricky38 il existe une fonction pour clear mais sans supprimer le formatage de la cellule?
      3. Ricky38 Contributeur
        Salut,

        je t'ai fait une petite macro, si par exemple les cases B10 et B15 sont identique la cellule A1 va être Clear.

        Pour mettre une macro dans visual basic tu fais le menu unsertion/module et tu mets ceci: 
        Sub clear()  
If Worksheets("Lot").Range("B10") <> Worksheets("Lot").Range("B15") Then  
Worksheets("Lot").Range("A1").clear  
End If  

End Sub

        Et tu associe cette macro à un bouton sur ta feuille.

        Si tu veux que le code agisse automatiquement en travaillant sur ta page. Dans visual basic tu clique 2 fois sur Feuil1(Lot) et tu mets ce code: 
        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("Lot").Range("B10") <> Worksheets("Lot").Range("B15") Then
Worksheets("Lot").Range("A1").clear
End If
End Sub


        Bonne journée
        Tout problème a une solution...il faut juste être persévérant.
        1. afullana Auteur
          J'ai un peu avancé si qq a une idée?
          Voici le code que j'ai crée

          Sub Macro()

          Sheets("Lot" ).Select
          Range("E6" ).Select
          If ActiveCell = "C12" Then GoTo Clear
          Exit Sub
          Clear:
          With Sheets("Lot" )
          .Range("E10" ).Clear
          End With

          End Sub

          Donc en regroupant tout sur une feuille ma macro ne marche deja pas :??: et la en plus, il manque le nom de la feuille Data!C12 au niveau de l'egalité
          1. afullana Auteur
            Pour expliquer plus simplement, j'ai un N° dans une case, sur une autre feuille j'ai un numero qui peut etre similaire
            J'aimerais qui si c'est le cas, une cellule ( ou il y a une requete SQL et donc des mesures) soit "clear" et sinon "rien".

            Donc je ne peut pas mettre une formule dans cette meme case
            1. afullana Auteur
              sa marche bien mais c'est pas tout a fait ce que je demande car il existe une Valeur dans La cellule cible ( que je dois effacer lors de l'egalité)
              donc je ne peut pas y mettre une formule en plus d'une valeur ->( qui est un calcul)
              1. Ricky38 Contributeur
                et c'est quoi le calcul ?
            2. afullana Auteur
              Merci pour la rapidité de la repo ricky, je vais essayer dessuite
              1. Ricky38 Contributeur
                Salut,

                Pourquoi une macro? Tu pourrais très bien le faire avec une simple formule:
                =SI(B15<>B10;"";0)
                Donc si B15 et B10 sont différent ta cellule se vide sinon elle affiche 0 ou bien un autre calcul.

                Bonne journée

                Discussions similaires

                Transformer un chiffre en lettres dans excel sans macro
                vincentphilippos

                6 réponses