Deux conditions vraies pour executer macro sous VBA

[SwimCoachNico79]

Bonjour, Je souhaiterai exécuter une macro dès lors que deux conditions sont réunies.
Voici les infos : si la cellule AC25 = Aucun et que la cellule BM25 = Aucun ma macro1 s’exécute (les deux conditions doivent être réunies, si une seule est vraie la macro1 ne doit pas s’exécuter).
Voici le contenu de la macro1 :
Sub Macro1()
'
' Macro1 Macro
' Transport
'

'
Rows("26:26").Select
Selection.Delete Shift:=xlUp
End Sub

Merci pour votre aide !

 

[Dull]

Re : Deux conditions vraies pour executer macro sous VBA

Salut SwimCoachNico79 et Bienvenue, le Forum

Avec tes explications 🙂 cela pourrais ressembler à ça

If Range("AC25") = "Aucun" And Range("BM25") = "Aucun" Then Rows("26:26").Delete Shift:=xlUp

Éventuellement remplacer "Aucun" par ou autre chose

Bonne Journée

 

[nyko283]

Re : Deux conditions vraies pour executer macro sous VBA

Bonjour SwimCoachNico79, le forum,

Pour ce faire rajoute un test "if" avec combinaison d'un "And"

If Range("AC25") = "Aucun" And Range("BM25") = "Aucun" Then Rows("26:26").Delete Shift:=xlUp

j'ai egalement supprimer le .select qui n'apporte rien et donc réduit a 1 ligne la condition et l'action.

 

[nyko283]

Re : Deux conditions vraies pour executer macro sous VBA

Bonjour Dull,

Voila ce qui arrive quand on fai 2 chose à la fois, je poste la meme chose mais avec un train de retard.
bonne journée

 

[SwimCoachNico79]

Re : Deux conditions vraies pour executer macro sous VBA

Merci à tous les deux pour vos réponses. Voici le code inclus dans Feuil3:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("AC25") = "Aucun" And Range("BM25") = "Aucun" Then Rows("26:26").Delete Shift:=xlUp
End Sub

Quand les deux conditions sont vraies il me supprime toutes les lignes en dessous et me met l’erreur suivante :
Erreur d'exécution '-2147417848 (80010108)':
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients

Que dois-je faire ?
Merci d'avance...

 

[nyko283]

Re : Deux conditions vraies pour executer macro sous VBA

Chez moi, "Excel 2003" une fois toutes les lignes effacer la macros s'arrette sans generé d'erreur alors je ne peut t'en dire plus.

 

[SwimCoachNico79]

Re : Deux conditions vraies pour executer macro sous VBA

J'utilise Excel 2012 (PC)

 

[SwimCoachNico79]

Re : Deux conditions vraies pour executer macro sous VBA

Quand je clique sur débogage : la partie en jaune est
Rows("26:26").Delete Shift:=xlUp