Discussion :

[TheCaribouX]

Bonjour!

ma question est un peu débile, il faut l'admettre, mais je suis vraiment pas à l'aise avec VBA et à chaque fois je passe des heures pour trouver la moindre réponse, quelque soit le niveau de complexité du problème.

En l'occurence niveau complexité, on a fait plus durr:

j'aimerais parcourir toutes les lignes "occupées" d'une feuille. J'ai essayé quelqeu chose du genre:

Code :

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

1
2
3
4
5
6
    For j = 1 To Range("E65536").End(xlUp).Row
            Rows(j & ":" & j).Select
            Selection.Copy
            Rows(j + 1 & ":" & j + 1).Select
            Selection.Insert Shift:=xlDown
    Next j

mais ca serait trop facile si ça fonctionnait du premier coup, quelqu'un saurait il me mettre sur la voie?



[Edit] Je viens de le remarquer et je me dis "on sait jamais", le E dans Range("E65536") représente la colonne ou il va scruter les valeurs par hasard?

[ouskel'n'or]

Tu veux insérer toute ligne renseignée sur la ligne du dessous ? C'est bien ça ?

[Edit] Je viens de le remarquer et je me dis "on sait jamais", le E dans Range("E65536") représente la colonne ou il va scruter les valeurs par hasard?

Non, celà veut dire qu'il prend la dernière ligne renseignée de la colonne E comme étant dernière ligne de la plage examinée.

[TheCaribouX]

Tu veux insérer toute ligne renseignée sur la ligne du dessous ? C'est bien ça ?

oui exactement! Et ce pour chaque ligne existante

Non, celà veut dire qu'il prend la dernière ligne renseignée de la colonne E comme étant dernière ligne de la plage examinée.

C'est bête que je l'ait pas remarqué avant de poster...

Ca marche, merci d'avoir répondu et n'héister pas à virer ce post si vous esitmez que ca servira jamais à personne. Mon code si jamais:

Code :

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

1
2
3
4
5
6
7
    For j = 1 To Range("A65536").End(xlUp).Row
            k = ((j - 1) * 2) + 1
            Rows(k & ":" & k).Select
            Selection.Copy
            Rows(k + 1 & ":" & k + 1).Select
            Selection.Insert Shift:=xlDown
    Next j