convertir formule en VBA

chaelie2015 · 24 Janvier 2017

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

DoubleZero · 24 Janvier 2017

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

chaelie2015 · 24 Janvier 2017

DoubleZero à dit:
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

DoubleZero · 24 Janvier 2017

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

chaelie2015 · 24 Janvier 2017

DoubleZero à dit:
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 · 24 Janvier 2017

Bonsoir chaelie , DoubleZero

chaelie tu as répondu à ta question au post #3

supprimer la dernière ligne Non vide du tableau de la feuille3

chaelie2015 · 24 Janvier 2017

Lone-wolf à dit:
Bonsoir chaelie , DoubleZero

chaelie tu as répondu à ta question au post #3

Bonsoir Lone wolf
merci, mais je cherche comprendre la syntaxe du ce code
a+

Lone-wolf · 24 Janvier 2017

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

eriiic · 25 Janvier 2017

Bonjour,

pour les propriétés et méthode inconnues il y a la touche F1 qui est très complète.
Au 616e post, tu peux oser... ;-)
Au pire tu copies ici l'extrait de l'aide que tu ne comprends pas.
eric

DoubleZero · 25 Janvier 2017

Bonjour, chaelie2015, Lone-wolf , eriiiic, le Forum,

chaelie2015 à dit:
... 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

convertir formule en VBA

chaelie2015

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Discussions similaires