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

convertir formule en VBA

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency