[VBA] Liaisons entre cellules

Version imprimable

30/07/2007, 14h45
bungler

[VBA] Liaisons entre cellules

Bonjour,

J'ai effectué sous vba une fonction de recherche dans un feuillet qui permet de copier les lignes contenant un certain mot clé sur un nouveau feuillet.
Concretement dans si je recherche "avion" dans Feuil1 toutes les lignes contenant "avion" seront copiées dans Feuil2.
Je voudrais maintenant que les modifs effectuées dans Feuil 2 prennent effet également dans Feuil1. C'est un peu la réciproque de la fonction coller avec liaison mais je n'ai rien trouvé.

Merci de votre aide

Lilian
30/07/2007, 14h46
freyliss

Bonjour,

Tu peux montrer ta fonction sous vba s'il te plait?
30/07/2007, 14h50
jfontaine

Il faudrait qu'après ton copier coller de chaque ligne feuil 1 vers feuil 2, tu fasses un copier de la ligne feuil2 en copier avec liaison de ligne feuil1

Voici

Code:

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
31
32
33
34
35
 
Sub Recherche()
 
Worksheets("Base de Données").Activate
 
    Dim cellule As Range
    Dim j As Range
    Dim i As Integer
    Dim mot As String
 
 
    mot = InputBox("VEUILLEZ SAISIR L'ELEMENT A RECHERCHER")
    If mot = "" Then Exit Sub
 
    i = 3
        For Each cellule In Worksheets("Base de Données").Range("A1:D10000")
            If UCASE(cellule.Value) Like "*" & UCASE(mot) & "*" Then
                cellule.EntireRow.Copy Worksheets("Résultats").Range("A" & i)
                i = i + 1
                Set j = cellule
            End If
        Next
 
 
 
    If j Is Nothing Then
            MsgBox ("ELEMENT INTROUVABLE !")
            Exit Sub
    End If
 
Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\WINDOWS\MEDIA\gestloc.WAV"")"
 
Worksheets("Résultats").Select
 
End Sub

J'avais pensé a ce double copier coller mais je me demandais s'il n'y avait rien de plus simple ...