Utiliser des valeurs d'une autre feuille VBA

Résolu/Fermé

Clemandrieu - 11 mars 2010 à 15:43
clemandrieu - 12 mars 2010 à 10:49

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.

A voir également:

Utiliser des valeurs d'une autre feuille VBA
Comment utiliser chromecast - Guide
Feuille de pointage excel - Télécharger - Tableur
Supprimer une feuille word - Guide
Comment utiliser wetransfer gratuit ? - Guide
Utiliser tablette comme ecran - Guide

3 réponses

Réponse 1 / 3

clemandrieu
12 mars 2010 à 09:06

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.

Réponse 2 / 3

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
12 mars 2010 à 10:27

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+

Réponse 3 / 3

clemandrieu
12 mars 2010 à 10:49

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

Discussions similaires

Reporter valeur sur autre feuille avec critere

Excel VBA : Récupérer la valeur d'une cellule

"L'indice n'appartient à la sélection" + VBA

Feuille de score belote

Discussions similaires

Newsletters