Discussion :

[Terejima]

Bonjour.

Au sujet de la discussion : ROWS.INSERT probléme macro plante

J'ai actuellement le même genre de problème sur un programme vba excel 2010 sur lequel je travail.
Je fais une boucle pour lire un tableau sur la feuille 1, puis en fonction de ce que contient la ligne lu, je vais copier une ligne de la feuille 2 puis insérer cette dernière à la fin de la feuille.

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
 
    For i = 12 To derniere_ligne
        If Worksheets("Referentiel").Range("J" & i) = "Oui" And Worksheets("Referentiel").Range("A" & i) <> "" Then
            Debug.Print Worksheets("Referentiel").Range("C" & i)
            If InStr(Worksheets("Referentiel").Range("A" & i), "/") <> 0 Then
                Worksheets("Cartographie").Rows(18).Copy
            Else
                Worksheets("Cartographie").Rows(17).Copy
            End If
            Debug.Print "Avant Insert row " & current_row_index
            Worksheets("Cartographie").Rows(current_row_index).Insert
            Debug.Print "Apres Insert row " & current_row_index
            Worksheets("Cartographie").Range("A" & current_row_index) = Worksheets("Referentiel").Range("A" & i)
            Worksheets("Cartographie").Range("B" & current_row_index) = Worksheets("Referentiel").Range("C" & i)
            Worksheets("Cartographie").Range("C" & current_row_index) = Worksheets("Referentiel").Range("E" & i)
            current_row_index = current_row_index + 1
            Worksheets("Cartographie").Application.CutCopyMode = False
        End If
    Next i

Ce code plante parfois à la ligne où je fais le Insert et je n'arrive pas à savoir pourquoi.
Avez vous trouvé une solution ?

[LawNasK]

A tout hasard, un message d'erreur quand ça plante ?

[Terejima]

J'ai ce message :
"La méthode 'Insert' de l'objet 'Range' a échoué."
Ainsi que :
"Erreur système &H80010180 (-2147417848). L'objet invoqué s'est déconnecté de ses clients".

Ce que je trouve étrange c'est que le code fonctionne très bien la plupart du temps et parfois il tombe en erreur. Je n'ai pas encore réussi à identifier la cause. Tout ce que je sais c'est que ça provient de la ligne :
"Worksheets("Cartographie").Rows(current_row_index).Insert"

En cherchant sur google j'ai trouvé plein d'erreurs similaires mais je n'ai pas trouvé de solution.

[Terejima]

Je pense avoir trouvé une solution en m'inspirant de cette article :
http://excelribbon.tips.net/T010917_...ying_Rows.html

Dans le dernier exemple, je vois qu'il insert d'abord une ligne vide puis après il copie le contenu de la ligne d'origine vers la nouvelle ligne.
Du coup plutôt que de copier puis insérer, je viens de tenter d'insérer puis copier et je n'ai pas eu d'erreur.

Je vais faire quelques tests en espérant ne plus avoir de message dans aucun cas de test.

EDIT :
Après quelques essais je n'ai plus eu la moindre erreur.

Voilà le code corrigé :

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
 
    For i = 12 To derniere_ligne
        If Worksheets("Referentiel").Range("J" & i) = "Val" And Worksheets("Referentiel").Range("A" & i) <> "" Then
            Debug.Print Worksheets("Referentiel").Range("C" & i)
            Worksheets("Cartographie").Rows(current_row_index).Insert
 
            If InStr(Worksheets("Referentiel").Range("A" & i), "/") <> 0 Then
                Worksheets("Cartographie").Rows(18).Copy Worksheets("Cartographie").Rows(current_row_index)
            Else
                Worksheets("Cartographie").Rows(17).Copy Worksheets("Cartographie").Rows(current_row_index)
            End If
 
            Worksheets("Cartographie").Range("A" & current_row_index) = Worksheets("Referentiel").Range("A" & i)
            Worksheets("Cartographie").Range("B" & current_row_index) = Worksheets("Referentiel").Range("C" & i)
            Worksheets("Cartographie").Range("C" & current_row_index) = Worksheets("Referentiel").Range("E" & i)
            current_row_index = current_row_index + 1
        End If
    Next i