Utiliser des valeurs d'une autre feuille VBA
Résolu
Clemandrieu
-
clemandrieu -
clemandrieu -
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.
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
- Utiliser chromecast - Guide
- Bruler une feuille de laurier - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
3 réponses
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.
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.
Bonjour,
Peut être avec ...
A+
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+
