Discussion :

[gromorice]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helios77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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.

[gromorice]

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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