Macro Excel
Résolu
afullana
Messages postés
295
Date d'inscription
Statut
Membre
Dernière intervention
-
afullana Messages postés 295 Date d'inscription Statut Membre Dernière intervention -
afullana Messages postés 295 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
10 réponses
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:
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:
Bonne journée
Tout problème a une solution...il faut juste être persévérant.
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.
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
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
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)
donc je ne peut pas y mettre une formule en plus d'une valeur ->( qui est un calcul)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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é
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é
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?
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?