Discussion :

[foxer98]

Bonjour,

Dans mon classeur j'ai un formulaire qui me permet de saisir des informations. Quand je rajoute une information celui ci a partir de la ligne 3 ( les premieres lignes sont les noms de collone et un logo) saute une ligne et insere les informations en debut de la feuille. Voici se que j'utilise :

Code :

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

1
2
3
4
5
6
7
 Range("A3:J3").Select ' selectionne la ligne
    Selection.Insert Shift:=xlDown 
    Range("A4:J4").Select
    Selection.Copy 'on recopie
    Range("A3:J3").Select
    Selection.PasteSpecial Paste:=xlFormats
    Selection.Interior.ColorIndex = xlNone

Je fais cela afin de garder le style blanc sinon a chaque ajout il me prend le style colorer des noms de menu de la ligne du decus.

Les colonnes suivantes K, L, M contienent des informations venant d'un autre fichier par l'equation suivante

Code :

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

=('G:\lala\lili\[mon_classeur.xls]Operation List'!F10:F10)

. Et le classeur d'ou viennent ses informations contient aussi le meme genre d'equation sur l'autre classeur. En resumé:

Classeur 1 demande les colones k,l, m au classeur 2
Classeur 2 demande les colones A,B,C,E du classeur 1

Donc quand je fais une demande à l'aide du formulaire dans le classeur 1,
autmatiquement le classeur 2 se met a jours car il scrute les cellules.
Mon probleme ses quand je rajoute une ligne dans le classeur 1 les equations

Code :

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

"=('G:\lala\lili\[mon_classeur.xls]Operation List'!F10:F10"

des ligne K,L,M descende d'une ligne et la nouvelle ligne se retrouve avec des champs vide sans equation se qui fausse l'autre ficher car lui scrute toujour les meme ligne donc il affiche des champs vide alors qu'elle sont juste décalé.

Comment puis je faire pour quand j'ajoute une ligne celle si ce decale vers le bas, garde le style par defaut et l'equation par defaut qui lui est rentre.
Je sais pas si j'ai etait claire, je vous remerci pour toute l'aide que vous me donner.

Cordialement,

Xavier

[random]

PasteSpecial Paste:=xlPasteValues