Problème syntaxe avec Range Formula VBA

Version imprimable

Bonjour,

Je voudrais afficher les valeur ("B5:E5") de la feuille 1-1, 1-2,...,1-20 dans ("B20:E20").

Quand j'écris ceci, ça fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ListBox1_change()
Dim Val_Indice As Byte
    Val_Indice = Me.ListBox1.ListIndex
    Me.Label2.Caption = "Cylindres : 1/" & Me.ListBox1.List(Val_Indice)
    If FeuilleExiste("1-" & Me.ListBox1.List(Val_Indice)) = True Then
        Range("B20:E20").Value = Sheets("1-" & Me.ListBox1.List(Val_Indice)).Range("B5:E5").Value
    Else
        Unload UserForm1
        MsgBox "Cette cage n'existe pas, sélectionnez une autre cage"
        UserForm1.Show
    End If
End Sub

Mais si je modifie des valeurs dans les cellules B5:E5 de la feuille 1-x ça ne se modifie pas dans les cellules B20:E20 de la feuille active. J'ai essayé en utilisant Range formula de toutes sortes de façons mais je ne trouve pas la bonne syntaxe. Voici le genre de chose que j'ai essayée:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ListBox1_change()
Dim Val_Indice As Byte
    Val_Indice = Me.ListBox1.ListIndex
    Me.Label2.Caption = "Cylindres : 1/" & Me.ListBox1.List(Val_Indice)
    If FeuilleExiste("1-" & Me.ListBox1.List(Val_Indice)) = True Then
        Range("B20:E20").Formula = "=" & Sheets("1-" & Me.ListBox1.List(Val_Indice)).Range("B5:E5")
    Else
        Unload UserForm1
        MsgBox "Cette cage n'existe pas, sélectionnez une autre cage"
        UserForm1.Show
    End If
End Sub

Voilà si quelqu'un peut m'aider...

Merci à vous

21/03/2022, 12h24
ARTURO83
Bonjour,

Avec "Val_Indice = Me.ListBox1.ListIndex" auquel il faut ajouter 1, vous obtenez le N° d'indice, pas besoin de rappeler" Me.ListBox1.ListIndex" dans la ligne de sélection de la feuille, ceci devrait aller:
Code:

1 2 3 Val_Indice = Me.ListBox1.ListIndex + 1 Range("B20:E20").Value = Sheets("1-" & Val_Indice).Range("B5:E5").Value
Cdlt
21/03/2022, 12h27
Pierre Fauconnier

Salut.

Pourquoi dois-tu passer par du VBA? Une simple formule ne suffirait pas? si tu passes par du VBA, soit tu mets la formule, soit tu dois travailler sur l'évènement Change de la feuille ou des feuilles concernées.

Pourrais-tu expliquer plus en détails ce que tu souhaites réaliser?
21/03/2022, 22h25
Barnab6032
Citation:
Envoyé par ARTURO83

Bonjour,

Avec "Val_Indice = Me.ListBox1.ListIndex" auquel il faut ajouter 1, vous obtenez le N° d'indice, pas besoin de rappeler" Me.ListBox1.ListIndex" dans la ligne de sélection de la feuille, ceci devrait aller:

Code:

1 2 3 Val_Indice = Me.ListBox1.ListIndex + 1 Range("B20:E20").Value = Sheets("1-" & Val_Indice).Range("B5:E5").Value

Cdlt
Bonjour Arturo83,

Merci pour ta réponse mais en utilisant le ce code ça reproduit ce que j'avais fait. Ça copie les valeur B5:E5 dans B20:E20, mais après quand je modifie des valeurs dans B5:E5 ça ne les modifies pas dans B20:E20.
21/03/2022, 22h45
Barnab6032

Citation:

Envoyé par Pierre Fauconnier

Salut.

Pourquoi dois-tu passer par du VBA? Une simple formule ne suffirait pas? si tu passes par du VBA, soit tu mets la formule, soit tu dois travailler sur l'évènement Change de la feuille ou des feuilles concernées.

Pourrais-tu expliquer plus en détails ce que tu souhaites réaliser?

Bonjour Pierre,

Je travaille dans un laminoir, nous fabriquons du fil en acier qui passe dans différentes cages afin de réduire son diamètre. Ces cages sont composée de deux cylindres qui donnent la forme au fil en le faisant passer dans des cannelures. Dans chaque cylindre il y a plusieurs cannelures. Tous les jours je dois rentrer dans un fichier le tonnage effectué dans chaque cannelure pour changer celle-ci en fonction du diamètre voulu ou de l'usure de la cannelure (tonnage maxi).

Il y a pas mal de cages à gérer et rentré le tonnage cage par cage me prend pas mal de temps. j'essaie donc de faire un fichier où je sélectionne cages et cannelures à changer (via un userform). Puis, le lendemain, quand je rentre le tonnage de la nuit, ça me l’envoi directement dans les bonnes cannelures.

Parfois s'il y des incidents la nuit et qu'on a changé une cage je voudrais pouvoir aller changer certaines valeurs "manuellement" c'est pour cela que je voulais utiliser Range Formula.
22/03/2022, 06h36
ARTURO83

Bonjour,

Il y a quelque chose de bizarre, votre code est attribué à l'évènement d'une listbox, donc ce sont des valeurs que vous saisissez dans une listbox mais après, vous écrivez:

Citation:

Mais si je modifie des valeurs dans les cellules B5:E5 de la feuille 1-x ça ne se modifie pas dans les cellules B20:E20 de la feuille active

ici, vous modifiez les valeurs directement dans les cellules de la feuille, alors la question suivante est: où sont saisies les données? dans une listbox ou dans une cellule?
Si c'est dans une cellule alors, il faut que vous mettiez le code dans le module de la feuille avec l'évènement "Change" qui détectera toute modification de valeur dans la cellule.

Comme on ne connait pas comment est fait votre fichier, on ne peut faire des propositions qui peuvent ne pas marcher, la solution par formule que vous a suggéré Pierre FAUCONNIER est-elle applicable dans votre cas?

Cdlt
22/03/2022, 07h55
Pierre Fauconnier
Si tu veux passer une formule, tu dois recomposer un texte qui correspond à une formule, puis le passer à la propriété Formula de la plage. Je te conseille de passer par une variable Formula pour pouvoir tester la cohérence de la formule que tu recrées. Comme le nom de ta feuille commence par 1-, tu dois encadrer le nom de la feuille avec des apostrophes, sinon Excel va comprendre que tu veux réaliser une soustraction: 1 - ...
Code:

1 2 3 4 5 6 Dim Val_Indice As Long Dim Formula As String Val_Indice = ListBox1.ListIndex Formula = "='1-" & Me.ListBox1.Value & "'!B5:E5" Range("B20:E20").Formula = Formula
PS: Je ne suis pas convaincu par l'organisation de ton classeur.
22/03/2022, 18h48
Barnab6032

Citation:

Envoyé par ARTURO83

Bonjour,

Il y a quelque chose de bizarre, votre code est attribué à l'évènement d'une listbox, donc ce sont des valeurs que vous saisissez dans une listbox mais après, vous écrivez:

ici, vous modifiez les valeurs directement dans les cellules de la feuille, alors la question suivante est: où sont saisies les données? dans une listbox ou dans une cellule?
Si c'est dans une cellule alors, il faut que vous mettiez le code dans le module de la feuille avec l'évènement "Change" qui détectera toute modification de valeur dans la cellule.

Comme on ne connait pas comment est fait votre fichier, on ne peut faire des propositions qui peuvent ne pas marcher, la solution par formule que vous a suggéré Pierre FAUCONNIER est-elle applicable dans votre cas?

Cdlt

Bonjour,

Normalement on ne doit pas modifier les données directement dans la feuille sauf parfois en cas de casse d'un cylindre pendant la production. Son tonage ne correspond alors plus à celui de autres Cylindres.

Par ailleurs, j'ai essayé "change" ça fonctionne bien.

Cordialement,
22/03/2022, 18h57
Barnab6032
Citation:
Envoyé par Pierre Fauconnier

Si tu veux passer une formule, tu dois recomposer un texte qui correspond à une formule, puis le passer à la propriété Formula de la plage. Je te conseille de passer par une variable Formula pour pouvoir tester la cohérence de la formule que tu recrées. Comme le nom de ta feuille commence par 1-, tu dois encadrer le nom de la feuille avec des apostrophes, sinon Excel va comprendre que tu veux réaliser une soustraction: 1 - ...

Code:

1 2 3 4 5 6 Dim Val_Indice As Long Dim Formula As String Val_Indice = ListBox1.ListIndex Formula = "='1-" & Me.ListBox1.Value & "'!B5:E5" Range("B20:E20").Formula = Formula

PS: Je ne suis pas convaincu par l'organisation de ton classeur.
Bonjour,

J'ai essayé avec "change" ça fonctionne bien mais à mon avis ça sera plus simple avec formula.

Je sais, mon classeur à l'air bizarre, mais je débute avec les macros.

Je pourrai peut-être le publier quand il sera fini (enfin je ne sais pas si ça se fait...). Pour le moment ce n'est qu'un brouillon. Je fais ça le soir qu'à d j'ai le temps...

Bien à vous,