[VBA-E]insérer une ligne à un emplacement variable

Version imprimable

27/04/2006, 16h11
DomBourti

[VBA-E]insérer une ligne à un emplacement variable
Bonjour à tous,

Je débute dans le visual basic et je n'ai pas trouvé la réponse à ma question en cherchant sur les sujets déjà existant.

Voici ce que je veux faire :

je copie plusieurs lignes, cellule par cellule, d'une feuille à une autre. Ces lignes sont copié à différents endoits dépendament de la valeur d'une des cellule. Après chaque ligne copié, je doit insérer automatiquement une nouvelle ligne juste après ou avant(peu importe) celle qui vien d'être copié. Je ne veus pas utiliser la fonction suivante (F59 est un exemple):
Code:

1 2 Range("F59").Select Selection.EntireRow.Insert
car la cellule à sélectionner dans le Range ne sera jamais la même et je ne peut pas la déterminer à l'avance. À moins que la valeur dans la cellule du Range puisse être une variable, dont j'ignore la syntaxe si cela est possible.

Merci à l'avance
27/04/2006, 16h21
Ania
Tu peux definir une cellule avec cells(N°delaligne, N°Delacolonne) au lieu de range

Les 2 parametres N°delaligne, N°Delacolonne peuvent etre modifier

pour F59
Code:

1 2 Cells(59, 6).Select Selection.EntireRow.Insert
27/04/2006, 16h22
SfJ5Rpw8

ben il est ou ton code de copie ?

J'ai essayer avec ceci:
Code:

1 2 Worksheets("Compilation").Cells(prochaineligne, 1).Select Selection.EntireRow.Insert
Mais une erreur apparait:
Code:

1 2 Erreur d'exécution '1004': La méthode Select de la classe Range à échoué
Ce qui ma fait penser que je devait utiliser la fonction Range....

27/04/2006, 16h27
ouskel'n'or
Si au lieux de désigner une cellule tu désignais la ligne, déjà ça te simplifirait la tâche
Code:

1 2 3 NoLigne = Range("E59").Row Rows(NoLigne).EntireRow.Insert
où NoLigne peut être ce que tu veux... Pourvu que ce soit un nombre <= 65535 :lol:
Si j'ai bien compris

A+

Voici le code de copie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
toutelaligne = False
       colc = 0
 
       ' Transfert de chaque cellule de l'offre d'emploi
       Do While Not toutelaligne
        If colc < 17 Then
         colc = colc + 1
         Worksheets("Compilation").Cells(lignec, colc).Value = Worksheets("Tableau").Cells(lignet, colc).Value
        Else: toutelaligne = True
        End If
       Loop
       prochaineligne = lignec + 1
 
       ' Insertion d'une nouvelle ligne pour la prochaine offre
       ' d'emploi dans la même tranche de CNP
       Worksheets("Compilation").Cells(prochaineligne, 1).Select
       Selection.EntireRow.Insert

27/04/2006, 16h30
ouskel'n'or
Pour ça

Citation:

Worksheets("Compilation").Cells(prochaineligne, 1).Select

Tu dois séparer la sélection de la feuille de la sélection de la cellule (en deux lignes)
Mais tu n'es pas obligé de sélectionner quoi que ce soit
Code:

1 2 3 NoLigne = Range("E59").Row Worksheets("Compilation").Rows(NoLigne).EntireRow.Insert
A+
27/04/2006, 16h34
DomBourti

mon problème est que je doit mettre une variable à la place de "E59" dans ta ligne

Code:

NoLigne = Range("E59").Row

car je ne peut pas savoir a quelle ligne le code sera rendu.

est-ce possible?

Merci pour votre aide en passant :P
27/04/2006, 16h36
SfJ5Rpw8

Citation:

Envoyé par bbil

ben il est ou ton code de copie ?

montre nous le on pourra peu être déterminer d'aprés ce code ou la copie est effectuée !
27/04/2006, 16h41
ouskel'n'or
Citation:

est que je peux mettre une variable à la place de "E59" dans ta ligne

Sans problème
Code:

1 2 3 4 LaVar = "E59" NoLigne = Range(LaVar).Row Rows(NoLigne).EntireRow.Insert
T'a plus qu'à essayer ;)

A+
27/04/2006, 16h46
DomBourti
bbil, je l'ai poster un peu plus haut le code de la copie.

Je vais tenter de vous expliquer un peu mieux ce que je doit faire.

Dans une premiere feuille("Tableau"), il y a une liste de plusieurs offres d'emploi. je dois passer ces offres une par une et les copier dans une autre feuille("Compilation") dépendament de la valeur d'une des colonne de la feuille "Tableau" qui se nomme CNP. Le CNP est un code de 4 chiffres qui va déterminer où va être copié l'offre d'emploi dans la feuille "Compilation". Avant que les offres d'emploi soit copié dans la feuille "Compilation", il y a des ... titres où chaque offre d'emploi doit être copié sous le bon titre dépendament du CNP. Ces titre sont sur des lignes fixes au départ mais avec chaque offre d'emploi copié, ces ligne vont décaler, ce pourquoi je ne peut mettre une valeur fixe dans la ligne :
Code:

1 2 NoLigne = Range("E59").Row
Ca doit paraitre compliqué comme cela...mais je suis surment plus perdu que vous:oops:

Et quand je dit une variable a la place de E59, je veux dire une variable déja existante qui a pour valeur la ligne où est rendu le copiage, et non la valeur E59
27/04/2006, 16h52
SfJ5Rpw8

désolé j'avais Zappé ton code ..., remplace tes 2 derniéres lignes par :

Code:

Worksheets("Compilation").Rows(prochaineligne).Insert
27/04/2006, 16h56
DomBourti

La ligne à Bbil fonctionne!!!

Merci les gars et/ou les filles!

P.S.: je voudrait bien inscrire que le problème est résolu, mais comment faire;)
27/04/2006, 16h57
SfJ5Rpw8

Citation:

Envoyé par DomBourti

La ligne à Bbil fonctionne!!!

Merci les gars et/ou les filles!

P.S.: je voudrait bien inscrire que le problème est résolu, mais comment faire;)

menu outils de la discussion en haut ...
27/04/2006, 17h07
DomBourti

Une autre petite chose...

lors de la copie d'une cellule, comment fait-on pour garder le lien hypertexte du texte qui se trouve dans la cellule que l'on veut copier?