Utiliser des valeurs d'une autre feuille VBA Résolu

Question

Bonjour,
Je suis totalement débutant en code VBA sous excel, j'ai besoin d'un coup de pouce s'il vous plait.
Enoncé du problème
------------------------
Dans la feuille nommée Cotation, la cellule K2 vaut 5, la cellule K3 vaut 20.
Dans la feuile nommée Résultat, du même classeur, je souhaite utiliser les valeurs K2 et K3 en tant que borne.
Si le chiffre contenu dans la colonne M est compris entre les bornes K2 et K3, alors j'affiche 1 dans la colonne N, sinon j'affiche 2.
-------------
J'ai un bout de programme qui fonctionne. Cependant les bornes sont à changer manuellement dans VBA.
à la place de mon 5 et mon 20. je souhaite écrire quelque chose qui puisse fonctionner sur les valeurs contenues dans K2 et K3. Et donc , qui fonctionnera si je change les valeurs de ces cases.
Merci bien.

clemandrieu · Answer

Bonjour,
Je suis vraiment bloqué pour ce tout petit rien du tout....
Y a t'il quelqu'un pour donner un coup de pouce?
^^
Merci beaucoup.

lermite222 · Answer

Bonjour,
Peut être avec ...
Sub Tester()
Dim Ligne As Long, Vbas As Single, Vhaut As Single, Vbuff As Single
    Vbas = Sheets("Cotation").Range("K2")
    Vhaut = Sheets("Cotation").Range("K3")
    'si erreur dans les 2 cellules de références
    If Vbas > Vhaut Then Vbuff = Vbas: Vbas = Vhaut: Vhaut = Vbuff
    With Sheets("Résultat")
        For Ligne = 4 To .Range("M65535").End(xlUp).Row
            If .Cells(Ligne, 13) >= Vbas And .Cells(Ligne, 13) <= Vhaut Then
                .Cells(Ligne, 14) = 1
            Else
                .Cells(Ligne, 14) = 2
            End If
        Next Ligne
    End With
End Sub
A+

clemandrieu · Answer

Salut !

Merci beaucoup, c'est vraiment sympa.
J'ai intégré des parties du code que vous m'avez conseillé...cela fonctionne très bien.

encore merci , et bonne journée.
clément

Utiliser des valeurs d'une autre feuille VBA

3 réponses

Discussions similaires

Newsletters