convertir formule en VBA

chaelie2015

XLDnaute Accro
Bonjour forum
je souhaite écrire cette formule "si la cellule U21 de la feuille 1 est inférieure de la cellule U17 de la feuille 2 ...... " en vba
SALUTATIONS
 

chaelie2015

XLDnaute Accro
Bonjour, chaelie2015, le Forum,

Comme ceci ?
VB:
Option Explicit
Sub Supérieur_ou_inférieur()
If Sheets("Feuil1").Range("u21").Value < Sheets("Feuil2").Range("u17").Value Then MsgBox "Inférieur !"
End Sub
A bientôt :)
Bonjour Double zero
Merci pour la réponse, je souhaite ajouter encore a ton code ( proposé)
"If Sheets("Feuil1").Range("u21").Value < Sheets("Feuil2").Range("u17").Value then"
supprimer la dernière ligne Non vide du tableau de la feuille3
merci par avance
 

chaelie2015

XLDnaute Accro
Re-bonjour,

Pour la nouvelle condition :
Code:
Option Explicit
Sub Supérieur_ou_inférieur_v2()
    If Sheets("Feuil1").Range("u21").Value < Sheets("Feuil2").Range("u17").Value Then _
       Sheets("Feuil3").Range("a" & Rows.Count).End(xlUp)(1).EntireRow.Delete
End Sub
A bientôt :)
Bonsoir 00
Merci pour la réponse elle est parfaite.
est ce que tu peux m'expliquer ou avoir plus de détails sur " Sheets("Feuil3").Range("a" & Rows.Count).End(xlUp)(1).EntireRow.Delete"
merci par avance
SALUTATIONS
 

Lone-wolf

XLDnaute Barbatruc
Hello !

Je laisse la parole à qui de droit. Si tu permet, une variante

VB:
Sub test()
Dim celMin As Range, celMax As Range, suprCel As Range

    Set celMin = Sheets("Feuil1").Range("u21")
    Set celMax = Sheets("Feuil2").Range("u17")
    Set suprCel = Sheets("Feuil3").Range("a" & Rows.Count).End(xlUp)(1)  'dernière ligne non vide du tableau.

    If celMin < celMax Then suprCel.EntireRow.Delete
End Sub
 

DoubleZero

XLDnaute Barbatruc
Bonjour, chaelie2015, Lone-wolf :), eriiiic, le Forum,
... m'expliquer ou avoir plus de détails sur " Sheets("Feuil3").Range("a" & Rows.Count).End(xlUp)(1).EntireRow.Delete"...
Le code permet d'obtenir ce qui est demandé en #3 :
dernière ligne Non vide du tableau de la feuille3
Cf. le fichier joint.

A bientôt :)
 

Pièces jointes

  • 00 - chaelie2015 - Où....xlsm
    22.2 KB · Affichages: 49

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib