Besoin d'aide svp VBA

[boobly]

Bonjour a vous!
j'ai un gros souci. Jai 2 feuilles dans mon classeur. j'aimerais que lorsque j'entre par exemple une valeur dans la cellule L8 de la 1er feuille, que l'on me renvoie la valeur de la cellule A8 dans n'importe quelle cellule de la feuille 2. Jesper que vous me comprendriez et que vous m'aiderez.
Merci, cordialement.......

 

[boobly]

@boobly

On s'est croisés !

Pour répondre à la demande de ton post #12, j'ai seulement ajouté & Cells(k ,2) :

.Range(1) = "MODIF" & Cells(k, 1) & Cells(k, 2)

(à partir de mon fichier de départ, corrigé selon mon post #13)

Nouveau code VBA (complet) :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim k&
  With Target
    If .CountLarge > 1 Then Exit Sub
    k = .Column: If k < 7 Or k > 8 Then Exit Sub
    k = .Row: If k < 6 Then Exit Sub
    If .Value = "" Then Exit Sub
  End With
  With Worksheets("repertoire").ListObjects("repertoire").ListRows.Add
    .Range(1) = "MODIF" & Cells(k, 1) & Cells(k, 2)
    .Range(2) = Application.UserName
    .Range(3) = Now
  End With
End Sub

Regarde aussi le fichier joint.

soan

c'est plus qu'excellent ....! je te remercie pour tout. Tu as résolut tous mes problèmes

 

[boobly]

Bonjour @soan
en fait je suis entrain de concevoir un progiciel pour la gestion de stock d'où, mes multiples questions. chaque jour j'ai de nouvelles idées mais difficile de les appliqués. Dans le fichier ci-dessous, j'ai inscrit un code pour l'addition consécutif dans les colonnes G et H. Alors, ce qui se passe est que si dans la cellule G6 on inscrit 10, le tabeau ''repertoire" dans la feuille repertoire va se remplir automatiquement et dans la colonne Quantité va s'inscrire 10. si on revient inscrire 30 dans la cellule G6 de la feuille 1, G6 va devenir automatiquement 40, et le tableau repertoire dans la feuille "repertoire" va se remplir automatiquement comme précédemment mais va inscrire 40 dans la colonne "quantité" pourtant on a entré 30 en G6. Alors ce que je voudrais est que G6 reste a 40 mais que la colonne "quantité" se remplisse de 30 vu que c'est 30 qu'on a ajouter en G6. je joint le fichier ci dessous pour étayer mes dires. Merci

 

[soan]

Bonjour boobly,

Mes excuses pour avoir autant tardé à te répondre.
Je te laisse faire des tests avec le fichier ci-joint.

Code VBA :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim vx%, col%, lig&, k%
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Value = "" Then Exit Sub
    If Not IsNumeric(.Value) Then Exit Sub
    lig = .Row: If lig < 6 Then Exit Sub
    col = .Column
    If col = 7 Then k = 1 Else If col = 8 Then k = -1
    If k = 0 Then Exit Sub
    Application.EnableEvents = 0
    vx = .Value: Application.Undo: .Value = .Value + vx
    Application.EnableEvents = -1
  End With
  With Worksheets("repertoire").ListObjects("repertoire").ListRows.Add
    .Range(1) = "MODIF" & Cells(lig, 1) & Cells(lig, 2)
    .Range(2) = Application.UserName
    .Range(3) = Now
    .Range(4) = vx * k
  End With
End Sub

soan

 

[boobly]

Bonjour boobly,

Mes excuses pour avoir autant tardé à te répondre.
Je te laisse faire des tests avec le fichier ci-joint.

soan

okay merci bcp, je teste ça et jte reviens

 

[boobly]

Bonjour boobly,

Mes excuses pour avoir autant tardé à te répondre.
Je te laisse faire des tests avec le fichier ci-joint.

soan

j'ai adapter ton code a mon programme et sa marche a la perfection...! tu as vraimt compris tout c'que jdemandais! j'ne saurais cmt te remercier... vraimt merci pour tout!