Macro excel insertion ligne dans fichier

Fermé
gigi1981 Messages postés 7 Date d'inscription mercredi 4 mai 2005 Statut Membre Dernière intervention 20 décembre 2007 - 23 août 2007 à 10:01
 Chricky_80 - 23 août 2007 à 11:39
Bonjour à tous

j'ai un souci dans une macro excel:
je voudrais aller à la ligne en dessous la derniére d'un tableau et ensuite y inserer 2 lignes entières

j'ai écrit un code mais il y a un bug que je n'arrive pas à résoudre, étant débutant

quelqu'un pourrait il m'apporter de l'aide s'il vous plait?

voici le code:

Sub insererligne()

ligne = Range("C7").End(xlDown).Row +1
Rows("&ligne&" ":" "&ligne&" ).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown

End Sub

le problème est dans la ligne de Rows(...
je n'arrive pas à lui indiquer que je veux selectionner la ligne entiere qui m'a été donnée par l'instruction precedente et que j ai mise dans la variable ligne. D'ailleurs, quel type doit avoir cette variable?

Merci pour vos reponses
A voir également:

2 réponses

Réponse 1 / 2
Chricky_80
23 août 2007 à 11:32
Essayes un truc comme ca :

Sub insererligne()

ligne = 0 'initialisation de la variable

Do
ligne = ligne + 1 'incrementation de ligne
contenu = Cells(ligne, 1) 'charge en mémoir le contenu de la cellule (ligne,1) dans la variable Contenu
Loop Until contenu = "" 'Boucle sur do jusqu'a ce que la variable contenu soit vide
Cells(ligne, 1).Select ' se positionne sur la cellule (ligne, 1)

Selection.EntireRow.Insert 'insertion ligne
Selection.EntireRow.Insert 'insertion ligne

End Sub
0
Réponse 2 / 2
Chricky_80
23 août 2007 à 11:39
Sinon ton programme était correct, il faut juste remplacer la ligne :

Rows("&ligne&" ":" "&ligne&" ).Select

par :

Cells(ligne, 1).Select

PS : attention dans le code que je t'ai donné au dessus, le controle des ligne se fait a partir de la cellule A1. Pour commencer à partir de la cellule C7, il faut :

* initialiser la variable ligne à 6
* rempacer Cells(ligne, 1) par Cells(ligne, 3)

A+
0