[VBA-E] Pb Comparaison De Deux Colonnes Avec Fonction If

Version imprimable

1 pièce(s) jointe(s)

bonjour, j'ai un gros soucis. Je connais pas grand chose en VBA et ma pile de bouquin ne m'aide pas, je sature. Voila, Imaginons 3 colonnes A,B et C. Je veux comparer les valeurs des colonnes B et C. SI une cellule de B est < à C alors la cellule de la colonne A correspondante est copiée dans une nouvelle feuille.Cette copie est effectué dans une colonne et les cellules seront situé les unes en dessous des autres. Pour l'instant, avec la macro que j'ai rédiger, je n'obtiens la copie d'une seule cellule et de plus, quelquesoit le résultat de la comparaison. Je suppose que je vais etre obliger d'utiliser une fonction FOR NEXT, pour créer une boucle. Pouvez vous m'aidez a corriger mes erreurs et me proposer une solution pour créer ma boucle? merci d'avance pour votre aide.
Voici ma macro:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 'Creation Alerte Sub Recherche_stock_mini_dépassé() Sheets("MagasinT").Activate Range("A3").Select Do Until ActiveCell.Value = "" Pp = ActiveCell.Value Stock_dispopp = ActiveCell.Offset(0, 2).Value Stock_minipp = ActiveCell.Offset(0, 3).Value If Stock_dispopp <= Stock_minipp Then Sheets("Alerte stock").Activate Range("A3").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select Loop ActiveCell.Value = Pp End If ActiveCell.Offset(1, 0).Select Loop Sheets("Interface").Activate End Sub

tu n'étais vraiment pas loin
J'ai corrigé pour qu'il revienne sur la première feuille... Je connais pas trop le OffSet mais j'espère que de la manière que tu l'utilises, cela veut bien dire avancer sur la ligne suivante sinon tu risques de boucler indéfiniement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 'Creation Alerte Sub Recherche_stock_mini_dépassé() Sheets("MagasinT").Activate Range("A3").Select Do Until ActiveCell.Value = "" Pp = ActiveCell.Value Stock_dispopp = ActiveCell.Offset(0, 2).Value Stock_minipp = ActiveCell.Offset(0, 3).Value If Stock_dispopp <= Stock_minipp Then Sheets("Alerte stock").Activate Range("A3").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select Loop ActiveCell.Value = Pp End If Sheets("MagasinT").Activate ActiveCell.Offset(1, 0).Select Loop Sheets("Interface").Activate End Sub

Une manière un peu plus "propre" de travailler:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
'Creation Alerte
Sub Recherche_stock_mini_dépassé()
  Dim rCellDest As Range
  Dim rCellOri As Range
  Dim rRange As Range
  Dim Stock_dispopp As Integer
  Dim Stock_minipp As Integer
  Dim wksMaga As Worksheet
  Dim wksAlerte As Worksheet
  Set wksMaga = Sheets("MagasinT")
  Set wksAlerte = Sheets("Alerte stock")
  If IsEmpty(wksAlerte.[A3]) Then
    Set rCellDest = wksAlerte.[A3]
  Else
    Set rCellDest = wksAlerte.[A3].End(xlDown).Offset(1, 0)
  End If
  Set rRange = Range(wksMaga.[A3], wksMaga.[A3].End(xlDown))
  For Each rCellOri In rRange
    If rCellOri.Offset(0, 2).Value <= rCellOri.Offset(0, 3).Value Then
      rCellDest = rCellOri
      Set rCellDest = rCellDest.Offset(1, 0)
    End If
  Next rCellOri
  Sheets("Interface").Activate
End Sub

22/03/2007, 12h17
helios77

Sauf que du coup tout son code a été récrit
Je trouve çà plus sympa pour lui de lui laisser son code poru qu'il s'y retrouve et juste le corriger

Sinon, il va récupérer un code qui n'est pas le sien, donc pas forcément compréhensible car pas dans la même logique
C'est jsute mon opinion
22/03/2007, 17h23
AlainTech
En partie d'accord avec toi mais...
- Utiliser les Select et Activate pose pas mal de problèmes.
- Montrer à quelqu'un qu'il existe une autre façon de travailler n'est jamais mauvais. Le risque, évidemment, est que le posteur fasse un "bête" copier/coller du code fourni.
- Le fait que tu as montré une possibilité et moi une autre, donne le choix au posteur.
- Il est important, surtout à cette époque où la plupart des langages sont orientés objet et les langages "traditionnels" en voie de disparition, de penser objet le plus possible.
Bref, si je me suis permis de poster cette solution complète (et ce n'est pas mon habitude), c'est parce que tu avais donné une réponse au problème rencontré.
J'en ai profité pour donner un autre éclairage.
22/03/2007, 22h39
gromorice

comparaison deux colonnes

merci à vous deux pour vos réponses. Le fait de voir deux codes différents à pousser ma réflexion.Pour recopier mes lignes les unes en dessous ds autres,j'ai appliqué la méthode d'helios77.Désolé alaintech,mais je ne comprenais pas bien ton code et j'avais une erreur(que je n'arrivais pas à corriger) quand je l'ai appliqué.Par contre, tu m'as davantage sensibiliser sur ma fonction "if" avec l'emploi de la boucle For each next.Pourriez vous m'indiquer la différence entre le "do until...loop" et le for each .... next. La mon probleme est que ma fonction "if" n'est pas reconnu et que par conséquent,toutes mes cellules de la première colonne sont recopiées.
23/03/2007, 05h57
AlainTech

La boucle For Each objet In collection va parcourir tous les objets de la collection.
Dans ce cas-ci, la collection est un range, donc une collection de cellules.
Nous parcourons donc toutes les cellules du range.
Dans l'exemple, rCellOri (ou rCellDest), est une cellule, nous pouvons donc la manipuler exactement comme ActiveCell. Lire ou positionner ses propriétés ou lui appliquer des méthodes.

Pour le If, je me suis basé sur ton code et pas ta description.
Dans la description, tu dis que les valeurs sont dans les colonnes B et C alors que dans le code, tu les lis en C (Offset de 2 par rapport à A) et D (Offset de 3).

Pour les lire en B et C, change la condition du If comme ceci:

Code:

If rCellOri.Offset(0, 1).Value <= rCellOri.Offset(0, 2).Value Then