[Résolu] Fonction Replace dans la référence d'une cellule

[Kim75]

Bonjour le forum,

Je vous présente tous mes voeux de paix, bonheur et santé pour ce nouvel an, bonne année à tous

L'année a commencé pour moi hier avec ce petit souci de notation que j'arrive pas à régler

-1. Quand on écrit :

Sheets("Feuil1").Cells(2, 4).Value = "Test"

On a "Test" en cellule D2

-2. Quand on écrit :

MsgBox Replace("2:4", ":", ", ")

On a le MessageBox avec la valeur "2, 4"

-3. Et quand on écrit

Sheets("Feuil1").Cells(Replace("2:4", ":", ", ")).Value = "Test"

On a "Test" en cellule B1 alors que ça devrait être en D2

Si je suis amené à utiliser la fonction Replace dans la référence d'une cellule (avec notation numéro de ligne numéro de colonne), c'est parce que j'utilise une ListView que j'alimente avec un tableau, et que parallèlement je dois me servir des clefs des items, ce serait vraiment sympa si quelqu'un pourrait m'orienter vers une solution.

Cordialement, Kim.

 

[Lone-wolf]

Bonjour Kim et bonne année

Un essai comme ceci peut-être? À tester

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cells(1, 2) = 1 Then Cells(2, 4) = Replace(Cells(1, 2), Cells(1, 2), "Test")
If Cells(3, 4) = 1 Then Cells(3, 2) = Replace(Cells(3, 4), Cells(3, 4), "Test")
mem = Cells(2, 4).Row & ":" & Cells(2, 4).Column
MsgBox Replace(mem, ":", ",")
Cancel = True
End Sub

 

[Dranreb]

Bonjour et bonne année.

Cette procédure écrit "Test-3" en D2.

Sub Test()
Dim S$(), L&, C&
S = Split("2:4", ":"): L = S(0): C = S(1)
Sheets("Feuil1").Cells(L, C).Value = "Test-3"
End Sub

Cela dit je n'ai jamais compris à quoi servent les clés dans les ListView.
À partir du moment ou vous accédez de toutes façon positionnellement à leurs éléments, vous avez la même position pour une plage, sous forme ligne et colonne, des deux cotés.
C'est seulement si ces clés pouvaient être dans un ordre quelconque dans la ListView, sans rapport à la position en ligne et colonne, qu'elles pourraient présenter un intérêt. Mais dans ce cas il vaudrait mieux y ranger des adresses de cellules.
Mais je préfèrerais encore ranger les cellules elle même dans un tableau indépendant de la ListView.

Bonjour Lone-wolf

 

[Lone-wolf]

Bonjour Dranreb

EDIT: en PJ classeur exemple sur événement Change & SelectionChange de la feuille. Pour l'affichage du message: à partir de la colonne C, utilise TAB du clavier jusqu'à la colonne E.

 

[Kim75]

Bonjour Lone-Wolf, Dranreb, le forum

Merci Lone-Wolf, Dranreb mais ça ne marche malheureusement pas, notamment la méthode de Dranreb consistant à substituer Spilt à Replace, apparemment on ne peut mettre autre chose que des nombre dans la référence d’une cellule, enfin c’est ce qui me semble, je ne sais pas …

La fonction Split provoque une erreur, tout comme la fonction Replace :

S = Split("2:4", ":"): L = S(0): C = S(1)
Sheets("Feuil1").Cells(L, C).Value = "Test"

Pour répondre à Dranreb qui se demande pourquoi utiliser les cléfs, la réponse est que la plupart du temps on est amené à filtrer la ListView, dont à modifier sa structure et l’ordre des items avec, c’est pourquoi on a besoin des cléfs pour retrouver les items.

Cordialement, Kim.

 

[Lone-wolf]

Re Kim

C'est dû à la version Excel. Toi 2007, moi 2010. J'ai tester sans problèmes. Pourquoi ne pas prendre la version 2010 ou 2013???

 

[Dranreb]

apparemment on ne peut mettre autre chose que des nombre dans la référence d’une cellule,

C'est bien ce que vous y mettez, à moins d'avoir oublié Dim S$(), L&, C& devant.
Mettez Option Explicit en tête de vos modules pour ne plus risquer d'oublier ce genre de chose.

D'habitude je m'arrange pour conserver les numéros dans le tableau source de ses lignes effectivement rangées dans une ListBox ou une ListView dans une table globale nommée TLgn.
Private TLgn() As Long

 

[Kim75]

Hello Lone-Wolf, Dranreb

En effet, j'ai corrigé et ça marche
J'avais oublié de mettre "$ et &" dans Dim S$(), L&, C&
Je vous remercie infiniment de m'avoir sorti du pétrin

Bonne fin de journée, Kim.