Discussion :

[ju5981]

Bonjour,


J'ai une macro qui doit insérer automatiquement des lignes dans une feuille excel.
Le nombre de lignes insérées varie en fonction de la valeur dans la première colonne de la feuille (type tableau ci-dessous). Pour cela la colonne B me sert à faire la différence entre la 2nde valeur et la 1ère valeur de la colonne A, et ainsi de suite.

1 0 A 111
3 2 B 124
7 4 C 135
9 2 D 154
10 1 E 156
14 4 F 154
15 1 G 156


J'ai trouvé une macro qui après quelques modifications faites avec mon très faible niveau VBA me donne un résultat tout à fait satisfaisant. Le seul petit souci est qu'à la fin, la macro affiche
Erreur d'exécution "13":
Incompatibilité de type

J'ai bien tenté de déclarer les variables différemment mais sans grand succès... je ne trouve pas l'erreur.



Le 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
 
Sub InsertLignes()
 
    Application.ScreenUpdating = False
    Worksheets("Feuil31").Activate
 
   Dim n As Integer
    Dim LastRow As Integer
    Dim temp As Integer
 
    LastRow = Range("B" & Rows.count).End(xlUp).Row
    For n = LastRow To 1 Step -1
        temp = Range("B" & n)
                If (temp > 1) Then
            Rows(n & ":" & n + temp - 2).Insert Shift:=xlDown
 
        End If
    Next n
 
End Sub

Si quelqu'un a une solution, un grand merci !

[joe.levrai]

Bonjour,

la ligne 1 contient bien un chiffre en colonne B ou c'est tes titres ? Si ce sont des titres, l'erreur vient de là et tu dois exclure cette ligne comme cela :

Code :

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

For n = LastRow To 2 Step -1

si la cellule B1 contient bien des chiffres, tu vas devoir tester ta macro en pas à pas et inspecter la valeur que prend "temp" juste avant de tomber en erreur

le message d'erreur semble indiquer que tu manipule une chaine de caractère au lieu d'un chiffre sur cette ligne :

Code :

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

If (temp > 1) Then

je te laisse contrôler, impossible pour moi de le faire. Ce n'est qu'un avis explicatif et pas forcément le problème exact.

[ju5981]

Super, merci beaucoup !! l'erreur venait bien de là, un titre en cellule B1, et du coup avec ta modification ça marche.

Avec titre en colonne B, le bon code est donc :

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
Sub InsertLignes()
 
    Application.ScreenUpdating = False
    Worksheets("Feuil32").Activate
 
   Dim n As Integer
    Dim LastRow As Integer
    Dim temp As Integer
 
    LastRow = Range("B" & Rows.count).End(xlUp).Row
    For n = LastRow To 2 Step -1
        temp = Range("B" & n)
                If (temp > 1) Then
            Rows(n & ":" & n + temp - 2).Insert Shift:=xlDown
 
        End If
    Next n
 
End Sub