Discussion :

[DomBourti]

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 :

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

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

[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 :

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

1
2
 Cells(59, 6).Select
Selection.EntireRow.Insert

[SfJ5Rpw8]

ben il est ou ton code de copie ?

[DomBourti]

J'ai essayer avec ceci:

Code :

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

1
2
Worksheets("Compilation").Cells(prochaineligne, 1).Select
Selection.EntireRow.Insert

Mais une erreur apparait:

Code :

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

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....

[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 :

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

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
Si j'ai bien compris

A+

[DomBourti]

Voici le code de copie :

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
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

[ouskel'n'or]

Pour ça

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 :

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

1
2
3
 
NoLigne = Range("E59").Row
Worksheets("Compilation").Rows(NoLigne).EntireRow.Insert

A+

[DomBourti]

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

Code :

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

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

[SfJ5Rpw8]

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 !

[ouskel'n'or]

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

Sans problème

Code :

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

1
2
3
4
 
LaVar = "E59"
NoLigne = Range(LaVar).Row
Rows(NoLigne).EntireRow.Insert

T'a plus qu'à essayer

A+

[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 :

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

1
2
 
NoLigne = Range("E59").Row

Ca doit paraitre compliqué comme cela...mais je suis surment plus perdu que vous

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

[SfJ5Rpw8]

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

Code :

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

Worksheets("Compilation").Rows(prochaineligne).Insert

[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

[SfJ5Rpw8]

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 ...

[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?