Macro excel insertion ligne dans fichier
gigi1981
Messages postés
7
Statut
Membre
-
Chricky_80 -
Chricky_80 -
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
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:
- Macro excel insertion ligne dans fichier
- Fichier bin - Guide
- Fichier epub - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
2 réponses
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
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
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+
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+
