Discussion :

[8e8eClo]

Bonsoir,

Je voudrais créer via VBA des liaisons entre deux classeurs.

Soit deux classeurs (A et B).
La valeur de la cellule C5 de B est égale à la valeur de la cellule A3 de A.
La valeur de la cellule C6 de B est égale à la valeur de la cellule A8 de A.

Quand je fais un collage avec liaison, je suis obligé de changer le lien pour chaque cellule. Je voudrais éviter ceci en passant pas VBA

Merci

[Theze]

Bonjour,

Un début de piste à creuser :

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
16
17
18
19
 
Sub Liaison()
 
    Dim Classeur As String
    Dim Feuille As String
    Dim Cel
    Dim Formule As String
    Dim I As Integer
 
    Classeur = "F:\[A.xls]"
    Feuille = "Feuil1"
    Cel = Array("A3", "A4", "A5")
 
    For I = 0 To UBound(Cel)
        Formule = "='" & Classeur & Feuille & "'!" & Cel(I)
        Range("C" & I + 1).Formula = Formule
    Next I
 
End Sub

Hervé.

[8e8eClo]

Bonjour,

Je n'ai plus besoin d'un code de ce genre. Merci.

Cependant, J5 comprend une liaison. Le résultat est soit "oui" soit "non". Je voudrais que, quand c'est "non", il affiche "-".
J'ai essayé avec Worksheet_Change mais ça ne fonctionne pas. Je suis obligé de doublecliquer sur la cellule et d'appuyer sur entrée. Si je ne fais pas ça, le code ne fonctionne pas...

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("J5") = "non" Then
Range("G12") = "-"
Else
Range("G12") = ""
End if
End Sub

Merci

[Theze]

Bonsoir,

Teste ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    'si la valeur de J5 change
    If Not Intersect(Target, [J5]) Is Nothing Then
        If Target = "non" Then [G12] = "-" Else [G12] = ""
    End If
 
End Sub

Hervé.

[8e8eClo]

non... même résultat...

[Theze]

Oups,

J'ai pas fait attention que pour J5 sa valeur changeai en fonction de la liaison, donc :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If [J5] = "non" Then [G12] = "-" Else [G12] = ""
    'sinon, avec un apostrophe devant (le signe moins étant considéré par Excel
    'comme le début d'une formule au même tire que = ou +)
    '>>If [J5] = "non" Then [G12] = "'-" Else [G12] = ""
 
End Sub