Discussion :

[hvegung]

Bonjour,
J'ai besoin d'aide pour un petit problème de macro.
Donc j'ai une feuille excel avec deux onglets:
- 1er onglet : j'ai un tableau de plusieurs colonnes fixes et des lignes qui s'incrémentent en fonction d'un autre tableau (qui sera pas concerné par mon soucis ici). J'ai une référence en colonne A du style RC-XX-XX (la seule donnée qui est fixe)
- 2eme onglet : j'ai un document avec des trous à des endroits spécifiques

En gros, j'aimerais remplir mon 2eme onglet avec les données du tableau selon ma référence (ça j'ai trouvé avec la macro ci-dessous)

Code vb :

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

1
2
3
4
5
Sub Macro2()
    With Sheets("Quick")
    .Range("B2").Value = WorksheetFunction.VLookup(.Range("B1").Value, Sheets("TEST").Range("A2:F100"), 2, False)
    End With
End Sub

Je l'ai appliqué seulement sur le mini tableau 1/ du 2eme onglet
Et j'aimerais (et c'est là que je bloque) que si je modifie une donnée sur l'onglet 2, la donnée se modifie automatiquement dans la tableau (onglet 1) en recherchant la référence RC-XX-XX.
Je ne sais pas si c'est possible et j'avoue je ne sais pas par quoi commencer, s'il faut faire un copier/coller, un remplacement, une recherche

Sur l'onglet 2, en jaune c'est ce qui va se remplir automatiquement en tapant la référence dans la cellule en rouge et qui j'aimerais se recopie dans la tableau (sans ajouté une nouvelle ligne) quand il y a un changement

J'espère avoir été clair.
Merci de votre réponse et de votre aide

Cordialement

PS : pour garder en mémoire ce qui est dans l'onglet 2 et le copier dans l'onglet 1 j'ai trouvé ça :

Code vb :

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
28
29
30
Sub validation()
 
'Atteindre le formulaire et mémoriser les données
    Sheets("Quick_Kaizen modification").Select
    Range("I9:I15").Select
    Selection.Copy
'Test pour déterminer la ligne ou coller les infos dans le tableau
    Sheets("TEST").Select
    valeurB4 = Range("B4").Value
    If valeurB4 = "" Then
    Range("B4").Select
    Else
    Range("B3").Select
    Selection.End(xlDown).Select
    ligne_active_base = ActiveCell.Row
    Range("B" & ligne_active_base + 1).Select
    End If
'Mémoriser le n° de la ligne ou coller les données
    ligne_active_base = ActiveCell.Row
'Collage avec transposition
    Range("B" & ligne_active_base).Select
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'Rendre vierge le formulaire
    Sheets("Quick_Kaizen modification").Select
    Range("I9:I15").Select
    Selection.ClearContents
    Range("I9").Select
 
End Sub

J'ai essayé de l'adapter à mon document avec la fonction Find mais ça ne fait pas ce que je veux

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Test pour déterminer la ligne ou coller les infos dans le tableau
    Sheets("TEST").Select
    RC = Sheets("TEST").Columns("A").Find(What:=Sheets("Quick_Kaizen modification").Range("B4"), LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
   Sheets("TEST").Select
    If RC = True Then
    Cells(RC, 2).Select
    ligne_active_base = ActiveCell.Row
    Else
    Range("B3").Select
    Selection.End(xlDown).Select
    ligne_active_base = ActiveCell.Row
    Range("B" & ligne_active_base + 1).Select
    End If

Pourquoi ça copie sur une nouvelle ligne et ça ne remplace par sur la ligne contenant ma référence?
RC 2015 test.xlsm
Cordialement

[mercatog]

Bonjour

Peut être il suffit d'utiliser des RechercheV dans ta feuille, les données seront mis à jour en temps réel.

[hvegung]

Bonjour mercatog et merci de ta réponse rapide.

Le problème c'est que l'onglet 1, le tableau se rempli automatiquement via une autre feuille que je n'ai pas mise ici (pour éviter de trop surchargé). Elle se rempli via une macro et donc des lignes sont créées de façon continue à intervalle irrégulier, c'est pour ça que je suis malheureusement obligé de passer par une macro pour réussir à tout faire concorder ensemble.

J'espère avoir été clair si ce n'est pas le cas je mettrais le document complet avec toutes les feuilles et toutes les macros pour mieux visualiser

Cordialement

[mercatog]

Dans ton onglet 1, est ce que tu auras toujours une seule ligne par référence?

[hvegung]

Oui mercatog,

Il n'y aura jamais deux références identiques, les références seront toujours écris sur le même modèle RC-XX-XX (les X sont des chiffres aléatoires) mis il n'y aura jamais de doublon à cette endroit

[mercatog]

Des RechercheV suffisent dans ce cas

Pour ton Onglet 1, Transforme tes données en Tableau ou bien renomme dynamiquement ta plage de données. C'est tout ce que tu as à faire pour que tes formules prennent en compte les nouvelles lignes