A
agadiroufla
Guest
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:
Le programme bug sur la ligne :
[/CODE], message d'erreur :cette commande n'est pas disponible avec un fichier partagé, avec Shift:=xlToLeft de surligné
Merci de votre aide.
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:
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
Code:
[CODE]rg.Offset(0, i).Delete Shift:=xlToLeftMerci de votre aide.