Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Besoin d'aide svp VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

boobly

XLDnaute Nouveau
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.......
 
c'est plus qu'excellent 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 ....! je te remercie pour tout. Tu as résolut tous mes problèmes 🙂 🙂 🙂 🙂
 
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
 

Pièces jointes

Bonjour boobly,

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

Code VBA :
VB:
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
174
  • Question Question
Réponses
7
Affichages
296
Réponses
30
Affichages
720
Réponses
3
Affichages
209
Réponses
4
Affichages
538
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…