Discussion :

[Akhlan]

Bonjour,

j'ai un fichier Excel qui nous sert beaucoup au boulot et même s'il est fonctionnel, il y a quelques coquilles que je ne sais pas résoudre....

nous recevons nos infos au format html et nous faisons un copier / coller (Valeurs) et c'est là que j'ai des erreurs...

Sur l'onglet "Explication", je vous ai mis deux exmples, pour voir l'ereuur, il suffit de copier une des lignes jusqu'à la cellule F et de la coller sur l'onglet "Incidents mensuels" sur la première ligne libre...

ET quand on colle, quand on sélection la ligne entière ou une colonne quelconque, j'ai mon erreur 13 et je ne sais pas la résoudre :-(

Ce n'est pas bloquant, nous avons pris l'habitude de cliquer sur OK mais ce n'est pas propre et si quelqu'un sait résoudre ce soucis, je prends ^^

Merci
Akhlan

[jfontaine]

Bonjour,

Ton fichier n'est pas lisible sur mon poste.

Une grand majorité des cas provoquant un erreur 13 est un problème de symbole décimal.
VBA utilisant le . comme séparateur décimal, si tu colles des données qui ont une virgule et qu'ensuite une macro tourne sur ces données tu risque d'avoir cette erreur 13.

Es tu dans ce cas?

[keygen08]

Bonjour
Pour moi ouverture correcte du fichier mais pas moyens de faire apparaitre l'erreur. Ne serait pas t-elle pas dû au nombre limite de caractere dans une cellule qui est de 255 caractere en colonne C sur la feuille explications (excel2003). Je suis sous excel2010 et cette limite n'existe plus.

[Kimy_Ire]

Ton problème se situe en amont de ton incompatibilité de type (pour moi).

En effet à ce niveau :

Code :

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

p = Application.Match(Target.Offset(, col), Application.Index([Dispo], , 1), 0)

... p ne retourne pas de valeur.

Cela signifie que lorsque tu fais :

Code :

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

temp = Sheets("Data").Range("Dispo").Cells(p, 2)

... avec un "p" vide, tu as un problème.

Ce qui est le plus embétant, c'est que je ne comprends absolument pas ce que tu veux faire avec ton match. Il manque Application.WorksheetFunction.Index ainsi que le deuxième argument de "Index" nécessaire.

[Akhlan]

Ton problème se situe en amont de ton incompatibilité de type (pour moi).

En effet à ce niveau :

Code :

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

p = Application.Match(Target.Offset(, col), Application.Index([Dispo], , 1), 0)

... p ne retourne pas de valeur.

Cela signifie que lorsque tu fais :

Code :

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

temp = Sheets("Data").Range("Dispo").Cells(p, 2)

... avec un "p" vide, tu as un problème.

Ce qui est le plus embétant, c'est que je ne comprends absolument pas ce que tu veux faire avec ton match. Il manque Application.WorksheetFunction.Index ainsi que le deuxième argument de "Index" nécessaire.

Je n'avais pas vu ta réponse Kimy_Ire...

Cette partie de code vient de BOISGONTIER un membre d'un autre forum Excel et je ne sais pas ou il voulait en venir...

Akhlan

[Akhlan]

Merci à vous, c'est une version Excel 2013 et je reproduit l'erreur ici et aussi au boulot où nous sommes sous Excel 2010...

jfontaine : il y a pas de , dans les lignes copiées:

Code :

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

1
2
3
Incident 37		====blablablablablablablablablabla==== Message 2Message 2Message 2		24/02/13 01:07:50	Serveur_2
 
Incident 37		blablablablablablablablablabla Message 2Message 2Message 2		24/02/13 01:07:50	Serveur_2

et Keygen, il n'y a pas 255 caractères dans cette exemple ;-)

keygen, tu as bien autorisé les macros à l'ouverture du fichier car je confirme, je reproduis l'erreur...
PS Keygen : La limitation des 255 caractères dans les macros est toujours présente sous Excel 2013, j'en ai fait les frais sur une macro de ce fichier

L'erreur fait pointer le débugueur ici:

Code :

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

    If Target.Column <> 6 Or Target = "" Or Target = "Serveur" Or Len(Target.Address) > 8 Then Exit Sub

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
Sub AppliqChange(Target As Range)
Dim lig As Long, DerLig As Long, Repere As Integer, Existe As Variant
 
    If Len(Target.Address) > 8 Then Exit Sub
    If Target.Column <> 6 Or Target = "" Or Target = "Serveur" Or Len(Target.Address) > 8 Then Exit Sub
    DerLig = Sheets("Export_Serveurs").Range("A65536").End(xlUp).Row
    NoAction = True
    ComboBox1.Clear
    Existe = Target.Offset(0, 3)
    For lig = 2 To DerLig
        If Trim(Sheets("Export_Serveurs").Cells(lig, 1)) = Trim(Target.Text) Then
            ComboBox1.AddItem Sheets("Export_Serveurs").Cells(lig, 8)
            If Sheets("Export_Serveurs").Cells(lig, 8) = Existe Then Repere = ComboBox1.ListCount - 1
        End If
    Next lig
    NoAction = False
    Decale = Target.Offset(o, 3).Address
    ComboBox1.ListIndex = Repere
    Decale = ""
End Sub

Akhlan