Discussion :

[ferdi67]

Bonjour,

Je viens de changer d'ordinateur professionnel (toujours sous win2000) et j'ai une fonction VBA qui marchait bien sur mon ancien PC qui ne marche plus sur le nouveau mais je ne comprends pas pourquoi.
Cette fonction est appelée par une macro qui demande à l'utilisateur de saisir une cellule ou un plage de cellules et elle retourne le nom de la plage de cellules, sans le nom du fichier Excel. Veuillez la trouver ci-dessous.

J'ai remarque sur ce PC tous les "Range" sont en minuscules tels que "range". Est-ce que cela pourrait avoir un lien ? Est-ce qu'il me manque une référence ?

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
22
23
24
Private Function RangeSelection(ByVal Titre As String, ByVal DefaultRange As String) As String
Dim RangeCells As range
Dim StrSearch As String, StrReplace As String
    On Error Resume Next
    If DefaultRange <> "" Then
        range(DefaultRange).Select
        Err.Clear
    End If
    Set RangeCells = Application.InputBox(Prompt:="Veuillez selectionner une plage de cellule. ", _
                        Title:="RDExcel : " & Titre, _
                        Default:=DefaultRange, _
                        Type:=8)
    If Err.Number = 0 Then
        StrSearch = "[" & ActiveWorkbook.Name & "]"
        StrReplace = ""
        RangeSelection = Replace(RangeCells.Address(, , xlA1, True), StrSearch, StrReplace)
        RangeCells.Cells(1).Select
    Else
        RangeSelection = DefaultRange
        range(DefaultRange).Cells(1).Select
    End If
    On Error GoTo 0
    Set RangeCells = Nothing
End Function

Merci d'avance de votre aide.


EDIT: 17h40
Je viens de m'apercevoir que ça fonctionne si je selectionne une cellule dans la feuille déjà active. Mais si je vais chercher une cellule dans une autre feuille, ça plante.
Sachant que sur mon ancien PC cela fonctionnait, je ne comprend pas pourquoi maintenant ça n'est plus le cas.
J'espère que quelqu'un est en mesure de m'éclairer....
Merci d'avance.

je viens de tester chez moi avec mon ordi personnel avec Excel 2007 et la fonction fonctionne.
Donc il doit manquer quelque chose sur mon ordi professionnel équipé d'Excel 2000.

[mercatog]

Et dans Excel 2003 fonctionne aussi

[ferdi67]

Sur mon PC perso, j'ai importé la macro XLA complète et les "range" sont aussi en minuscule. Mais elle fonctionne sur Excel 2007 et sur 2003 d'après mercatog.

Je ne vois pas ce qu'il peux manquer sur mon PC pro pour que ça bug.

[ucfoutu]

Bonjour,

Pourquoi (ne serait-ce que pour y voir un peu plus clair au lieu de "mettre une feuille sur la crotte") ne pas supprimer l'utilisation de ta gestion d'erreur par On Error Resume Next et ce qui s'y rapporte ?

C'est par cela que je commencerais, personnellement .

[ferdi67]

Oui j'ai oublié de parler de l'erreur. C'est une erreur "424 : Objet requis" qui s'arrête sur la ligne suivante :

Code :

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

1
2
3
4
    Set RangeCells = Application.InputBox(Prompt:="Veuillez selectionner une plage de cellule. ", _
                        Title:="RDExcel : " & Titre, _
                        Default:=DefaultRange, _
                        Type:=8)

si je gère l'erreur avec "On Error Resume Next" c'est pour gérer le bouton Annuler de l'InputBox.

[ucfoutu]

Hé oui ! "Que raro", no ?

Ton objet (ce qu'attend un "set") te parait être un "string" ... (ta inputbox...) ???
J'ignore la raison éventuelle du pourquoi la chose peut fonctionner dans certains cas et pas dans d'autres (mystères de vba ?).

Alors :
1) on ne gère pas le résultat d'un annuler d'une inputbox par un On Erroir Resume Next
2) si l'on décide que l'inputbox retourne un String (ce que tu as fait ...!!!) , on travaille avec ce STRING, quitte à (si l'on n'a pas annulé) se servir de ce string pour créer un objet (ta plage, si je comprends bien).

Voilà qui devrait te permettre d'éviter moult aléas !!

Bonne étude.