Bonjour,

Je suis "inculte" en vba et macro mais j'essaye de m'y mettre !!

Voila j'ai un petit problème sur une feuille j'ai un tableau a deux colonnes B et C sur 50 lignes

la colonnes est une liste de matériel et la colonnes C les quantités. je souhaiterais quand je rentre des quantités que les lignes concernées se colle dans une autre feuille que j'ai appelé test pour l'instant.

J'ai trouvé cette 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
'se déclenche quand on entre une valeur dans une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
    'si on entre une valeur dans une cellule n'appartenant pas à la plage c4:c50
    'on arrête la macro
    Dim r As Range 'ligne
    If Intersect(Target, [c4:c50]) Is Nothing Then Exit Sub
        'si la valeur de la cellule modifiée n'est pas nulle
        For Each r In Target.EntireRow.Rows 'Il peu y avoir plusieurs lignes de modifiées..
            If r.Cells(1, 2) <> "" Then 'Si colonne B différentes de guillemets
                'on copie la ligne de cette cellule sur l'autre feuille en ligne 2 "test
            Rows(Target.Row).Copy Sheets("test").[A2]
 
            End If
        Next r
End Sub

elle marche pour une ligne mais pas pour toutes les autres de la colonnes !!

Pour vous cela doit être une évidence donc si quelqu'un peut m'aider !! MERCI