Inserer Lignes avec lien multiples

Bonjour a tous,

J'ai un autre petit souci avec la manipulation de lignes dans excel.

Je souhaite insérer un nombre de lignes définis en dessous une ligne particulière d'une Feuille Excel... jusque là ce n'est pas compliqué.

Par contre contre ces lignes insérés doivent avec des "liens" vers d'autre Feuilles de mon classeur Excel.

Par exemple sur ma Feuil5, je veux insérer 10 lignes sous la ligne 6 et qui contiennent pour les colonnes B,C,D,E les valeurs les lignes 30 à 40 de la Feuil3 sur les colonnes B,G,F,H par exemple. (en copiant les formules/valeurs, mises en forme ect...).

Je sais pas si j'ai été très clair....

Bonjour Kevlille

Si j'ai compris il suffit de figer le numéro de ligne en mettant un $ devant

=B$30

A+

Bonjour

Pourquoi joindre un fichier :

Sur la charte du Forum

https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html

Point 6 : • Pensez à joindre un fichier pour faciliter la compréhension du problème et augmenter les chances de vous faire aider (taille limite : 300ko, n'hésitez pas à compresser vos fichiers).

Cordialement

Bonjour Bruno,

J'ai super mal expliqué mon souci.

Je cherche a manipuler les feuilles Excel avec VBA. En cliquant sur un bouton sur la Feuil1, je souhaite au niveau de la Feuil5:

• insérer 10 nouvelles lignes sous la ligne 6
• ces nouvelles lignes doivent contenir au niveau des colonnes B,C,D,E les valeurs les lignes 30 à 39 de la Feuil3 sur les colonnes B,G,F,H par exemple. (en copiant les formules/valeurs, mises en forme ect...).

Pas sûr d'avoir été beaucoup plus clair....

Re,

Merci de relire le post d'Amadéus que je salue

En effet, avec un fichier ce sera surement plus parlant...

avec le bon fichier c'est mieux

Re,

Essaye ceci à la place de ton code

Private Sub CommandButton1_Click()
  Dim J As Long
  Dim Desi, Remise, TTC As Range
  With Sheets(3)
    .Rows("2:5").Insert Shift:=xlDown
  End With
End Sub

A+

j'ai testé cela:

Private Sub CommandButton1_Click()
Dim J As Long
Dim Desi, Remise, TTC As Range

With Sheets(3)
For J = 0 To 3
.Rows("2:2").Insert Shift:=xlUp
.Cells(2, 1).Value = Sheets(2).Cells(6 + J, 1).Value
.Cells(2, 2).Value = Sheets(2).Cells(6 + J, 5).Value
.Cells(2, 3).Value = Sheets(2).Cells(6 + J, 7).Value
Next

End With
End Sub

ça fonctionne mis a part deux points:

• j'ai mes ligne qui se retrouve inversées par rapport à ma feuil2
• et surtout je perd mes liens... j'ai juste les résultats

y a t-il un moyen pour palier à cela?

bonjour a tous,

personne n'aurait une idée pour mon souci? a savoir que je perd mes liens quand je fais une copie d'une feuille vers une autre.

Par exemple:

dans la Feuil2 j'ai un lien en A2 qui est "=Source!F4"

si j'utilise sur la Feuil3 la formule;

With Sheets(3)
For J = 0 To 3
.Rows("2:2").Insert Shift:=xlUp
.Cells(2, 1).Value = Sheets(2).Cells(1, 2).Value

ect......

je perd la formule... je n'ai plus que le resultat. Or je souhaiterai conserver sur la Feuil3 la formule de base "=Source!F4"

Une idée?

Bonjour

Sais-tu lire l'anglais !?

Que veux dire pour toi ".Value", pour moi c'est valeur ça ne parle pas de formule

Si par "LIEN" tu parles de "FORMULE", alors utilises ".Formula"

.Cells(2, 1).Formula = Sheets(2).Cells(6 + J, 1).Formula

j'ai honte.... je vais me cacher.

Je n'ai même pas pensé a tester formula.