Utiliser des valeurs d'une autre feuille VBA
Résolu/Fermé
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
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.
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
12 mars 2010 à 10:27
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+