Discussion :

[sylviobarca]

Bonjour,

Plus je cherche plus et je m'embrouille le cerveau, pourtant ça me paraît tout simple.
Sur une feuille, dans la colonne A, il apparaît des Articles. Dans la colonne C des quantités.
Je voudrais, lorsqu'un utilisateur alimente cette feuille, que ça répercute en bas du fichier (ligne 77), seulement les articles qui ont étaient utilisés.

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
Dim i As Integer
Dim j As Integer
 
j = 77
 
For i = 5 To 54
 
If Cells(i, 3) >= 1 Then
Cells(j, 3) = Cells(i, 1)
Else: i = i + 1
End If
 
j = j + 1
Next
End Sub

Soit j'ai des messages d'erreur avec Next sans For (il ne reconnait pas le for), sinon la boucle marche à l'infinie.

Merci d'avance de votre aide car j'éssais pas mal de chose mais sans résultat!!!

[MarcelG]

Bonsoir,

Effectivement, tu t'emmêles les crayons avec tes boucles.

Essaie plutôt :

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
Sub Macro1()
 
    Dim lastlign As Integer
 
    j = 77
 
    With ActiveSheet
            lastlign = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
 
    For i = 5 To lastlign
            If Range("C" & i).Value > 0 Then
                Cells(j, 3) = Cells(i, 1)
                j = j + 1
            End If
    Next
 
 
End Sub

[Philippe Tulliez]

Bonjour,
Plusieurs remarques.
1) Pourquoi incrémente-tu la variable I alors que tu utilises une boucle qui alimente I.
2) Pourquoi cette boucle alors que tu utilises une procédure événementielle, boucle qui a pour effet de déclencher à nouveau la procédure événementielle qui recommence donc la boucle.
3) Dans ce test, tu vérifies si la cellule(i,3) est supérieure ou égale à 1 alors tu vas écrire le contenu de le cellule A dans la cellule C 72 lignes plus bas.

Code :

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

1
2
  If Cells(i, 3) >= 1 Then
    Cells(j, 3) = Cells(i, 1)

A mon humble avis ce n'est sans doute pas ce que tu veux faire.

Voici donc un code
Si tu écris une quantité supérieure à 0 sur la colonne C des lignes entre 5 et 54, la procédure ira écrire la même quantité - 72 lignes plus bas et ce sur la même colonne.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
  If .Column = 3 And .Row >= 5 And .Row <= 54 Then
   If Cells(.Row, .Column) >= 1 Then
    Cells(.Row + 72, .Column) = Cells(.Row, .Column)
   End If
  End If
 End With
End Sub

[MarcelG]

Bonsoir Corona,

Ton code amènerait à l'alimentation de cellules à lignes discontinues, ou je me trompe ? Et je ne pense pas que ce soit l'affichage souhaité par notre ami.

Au demeurant, et à mon avis, cette information pourrait être lancée par une autre méthode évènementielle (Deactivate, Befor Print) ou non évènementielle (Bouton ou autre), et ce en utilisant les boucles.

C'est bien entendu une question de choix.

[Philippe Tulliez]

Bonsoir Marcel,
Dans le sujet, j'ai lu WorksheetChange, j'en ai donc conclu à la lecture du code qu'il souhaitait alimenter les cellules qui se trouvaient 72 lignes plus bas que celles se trouvant de 5 à 54 mais bon c'est possible que je me soit totalement fourvoyé. Les questions et explications sont parfois tellement floues qu'il faut parfois deviner.
Wait and see

[sylviobarca]

Merci beaucoup MarcelG et Corona, décidement tu m'aides beaucoup ces derniers temps!!!

Je vais tester vos codes.
Ce que je souhaite faire, c'est que les lignes 5 à 54 peuvent être remplies de façon aléatoire (c'est à dire en fonction des articles sélectionnés). Je voulais en ligne 77, répertorier ces articles afin de faire une synthèse. Le but étant de copier ces dernieres lignes dans un autre fichier, qui constituera ma base de données.

Merci encore à vous deux!!