Deux conditions vraies pour executer macro sous VBA

Dull

XLDnaute Barbatruc

• 29 Septembre 2011

• #2

Re : Deux conditions vraies pour executer macro sous VBA

Salut SwimCoachNico79 et Bienvenue, le Forum

Avec tes explications 🙂 cela pourrais ressembler à ça

Code:

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

 

Dernière édition: 29 Septembre 2011

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 29 Septembre 2011

• #3

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"

VB:

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.

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 29 Septembre 2011

• #4

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

 

Vote positif 0 Vote négatif

S

SwimCoachNico79

XLDnaute Occasionnel

• 29 Septembre 2011

• #5

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

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 29 Septembre 2011

• #6

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.

 

Vote positif 0 Vote négatif

S

SwimCoachNico79

XLDnaute Occasionnel

• 29 Septembre 2011

• #7

Re : Deux conditions vraies pour executer macro sous VBA

J'utilise Excel 2012 (PC)

 

Vote positif 0 Vote négatif

S

SwimCoachNico79

XLDnaute Occasionnel

• 29 Septembre 2011

• #8

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

 

Vote positif 0 Vote négatif