Discussion :

[Maxgad]

Bonjour,
Je suis sur le point de finaliser mon exécutable sur VB6, je vous demande de l'aide sur une erreur inattendue, je m'explique:
Je dois par le biais d'une boucle supprimer une cellule à qui contient une devise (exe USD). Les cellules à supprimer se situent à partir de la colonne B, on peut donc avoir plusieurs devises, donc plusieurs colonnes de renseignés.
Le but c'est, l'utilisateur doit sélectionner la devise à supprimer via listbox, et le programme se charge d'aller chercher la devise recherchée sur la ligne recherchée et puis la supprimer et surtout déclaer les celulles vers la gauche, Je precise que mon programme marche parfaitement sur un fichier non partagé (mystère).
Voici le bout de code:

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
21
Dim rg As Range
Dim lastCol As Integer
 
Sheets("Devises").Select
 
Set rg = Sheets("Devises").Range("A:A").Find(selectedFund)
 
If rg Is Nothing Then 'ne devrait pas se produire
    Exit Sub
End If
 
lastCol = rg.Offset(0, 200).End(xlToLeft).Column + 1
 
'supprimer devises désirées
i = 1
Do While rg.Offset(0, i).Value <> ""
If rg.Offset(0, i).Value = Form3.List1.List(List1.ListIndex) Then
    rg.Offset(0, i).Delete Shift:=xlToLeft
    End If
i = i + 1
Loop

Le programme bug sur la ligne :
Code :

Code :

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

rg.Offset(0, i).Delete Shift:=xlToLeft

message d'erreur :cette commande n'est pas disponible avec un fichier partagé, avec Shift:=xlToLeft de surligné
Merci de votre aide.

[Daniel.C]

Bonjour,

Le message t'indique la cause de l'erreur. Les classeurs partagés ont une foule de limitations, Excel n'étant apparemment pas conçu pour cela.

[Maxgad]

Bonjour Daniel,
Le problème c'est que j'ai bâti tous mon programme sur le fait que le fichier soit partagé, tu n'as pas une astuce pour contourner ce problème ?
Merci infiniment.

[Daniel.C]

Tu peux peut-être modifier ton appli pour supprimer une ligne entière ? Voici la liste des limitations concernant les classeurs partagés (au moins en ce qui concerne XL 2003) :

http://office.microsoft.com/fr-fr/ex...005201080.aspx

[Pierre Fauconnier]

Salut.

Bonjour Daniel,
Le problème c'est que j'ai bâti tous mon programme sur le fait que le fichier soit partagé, tu n'as pas une astuce pour contourner ce problème ?
Merci infiniment.

Il aurait été sage de te renseigner sur les fichiers Excel partagés avant de construire ton appli dessus. Les fichiers partagés en Excel sont, d'expérience, à bannir une fois pour toutes. Ce n'est pas le travail d'Excel de partager des données et aucun travail sérieux ne peut être entrepris sur des classeurs partagés...

[Maxgad]

Bonjour Pierre et Daniel,
Je crois je vais me rabattre sur une solution utilisateur unique, quand un utilisateur est sur l'appli, les autres sont avertis que l'appli est occupée.
Pour m'y faire, j'ai récupérer un code à mettre dans un module classe VB6 mais je n'arrive pas à faire appel (Call) à cette procédure depuis ma Form1 initialize!
Comment faire SVP ?
Merci

[Pierre Fauconnier]

Je suppose que ton module de classe est dans ton appli VB6 et que ton form1 est également dans ton appli.

Cela devient donc un problème VB6 et plus un problème Excel. Tu aurais donc intérêt à te tourner vers ce forum sur DVP pour trouver une solution à ton problème.

Quoi qu'il en soit, en VB(A), tu ne peux pas appeler une procédure d'un module de classe directement. Tu dois initialiser un objet de cette classe puis appeler la méthode de l'objet que tu veux manipuler.

Est-ce nécessaire que cette procédure soit dans un module de classe?