Discussion :

[millien]

Bonjour,

lorsque l'utilisateur saisie une valeur en Feuil4.C8, je voudrais remplacer dans les formules des autres feuilles du classeur Excel, la chaine ";"+<ancienne valeur Feuil4.C8>+"(" par ";"+<nouvelle valeur Feuil4.C8>+"("

Les formules sont en :
Feuil2 : A7 C6 D6 E6 F6 G6 H6
Feuil5 : A7 C6 D6 E6 F6 G6
Feuil3 : A7 C6 D6 E6
ou range A6:H7 sur les feuilles 2, 3, 5 convient aussi

d'avance merci à toute personne qui pourrait m'aider!

[mayekeul]

bonjour,

alors, le principe est le suivant

tu place le code dans l'événement change de Feuil4

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Not Intersect(Target, Range("A6:H7")) Then
    For Each sh In ThisWorkbook.Sheets
        If Not sh.Name = ActiveSheet.Name Then
            sh.Range(Target.Address) = Target.Value
        End If
    Next
End If
End Sub

ceci dis, pourquoi ne passe tu pas directement par les formules????

[David2304]

Bonjour,

Pourquoi ne liaisonnes-tu pas simplement tes cellules ?

Sinon tu peux utiliser un worksheet_change dans ta feuil4
Tu mets en condition tes cellules souhaitées puis ton résultat lorsque la condition est remplie

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 Target.Address = "$C$8" Then
Worksheets("Feuil1").Range("A7").Formula = Target.Value 'Intégrer le target dans la nouvelle formule
End If
 
End Sub

[millien]

merci mayekeul pour ta réponse, je ne peux pas passer par des formules Excel car les cellules contiennent des formules utilisées par un plug-in Excel d'un logiciel externequi se connecte à une base Oracle.

Peux tu aussi me donner la syntaxe pour le remplace ";"+<ancienne valeur Feuil4.C8>+"(" par ";"+<nouvelle valeur Feuil4.C8>+"(" ?

[mayekeul]

oui, si tu nous donnes la syntaxe de la formule!
:

avec ça plus un exemple, c'est encore mieux!

[millien]

par exemple :

si Feuil4.C8 = "SA"
en Feuil2.A7 la formule est =Canada(1;12;"1$C6";SA(1000))

Si l'utilisateur saisie en Feuil4.C8 = "CR"
en Feuil2.A7 la nouvelle formule doit être =Canada(1;12;"1$C6";CR(1000))

[mayekeul]

je verrais une chose dans le genre.

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
20
Dim strFormula() As String, Formul As String
Dim strTemp As String, strCount As Integer
Dim sh As Worksheet
 
If Not Intersect(Target, Range("A6:H7")) Then
    For Each sh In ThisWorkbook.Sheets
        If Not sh.Name = ActiveSheet.Name Then
            strFormula = Split(sh.Range(Target.adress).Formula, ";")
            strCount = UBound(strFormula)
            strTemp = strFormula(strCount)
            strTemp = Right(strTemp, InStr(StrReverse(strTemp), "("))
            strFormula(UBound(strFormula)) = strTemp
            Formul = strFormula(1)
            For i = 2 To strCount
                Formul = ";" & strFormula(i)
            Next i
            sh.Range(Target.Address) = Formul
        End If
    Next
End If

il te faudrais adapter pour la cellule de destination, mais le principe de base y est

[millien]

j'ai fais un copier coller du code de ta première réponse et j'ai le message "erreur d'execution 91 : Variable objet ou variable de bloc With non définie". Je ne vois pas de With dans le code...
Le debogage surligne en jaune la ligne : If Not Intersect(Target, Range("A6:H7")) Then

autre question : pourquoi "Not Intersect", on veut au contraire modifier les formules dans le range A6:H7. Je pige pas... merci de ton aide

[mayekeul]

bon , deux choses

1. j'ai oublié un truc lol
2. intersect renvoie un object range

donc tu pourrais écrire ceci plutot

Code :

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

If Not Intersect(Target, Range("A1:A100")) Is Nothing