Discussion :

[rdams]

Bonjour,
J'ai une feuille excel dans laquelle j'ai une colonne A composée de différentes valeurs. les colonne suivante contienne des formules.

1) je voudrais insérer une nouvelle valeur (donc ligne) dans ma colonne A à n'importe quelle endroit (haut milieux bas), comment faire pour prendre en compte les formules contenu dans les cellules des la ligne.

2) je voudrais aussi que cette insertion se fasse aussi en automatique sur d'autre feuille contenant la meme colonne A et garde aussi les formules des lignes presente dans ces feuilles.

est-il possible de le faire sans macro ? si oui comment
sinon comment faire à l'aide d'une macro.
J'ai fais plusieurs recherche qui n'ont pas abouti surtout sur la méthode sans macro.

merci pour cotre aide.

[FCL31]

Salut

Je pense que tu peut t'aider du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
    Rows("10:10").Insert Shift:=xlDown
    Range("B9").Copy
    Range("B10").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A10").FormulaR1C1 = "100"
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

J'espère que sa peut t'aider

[rdams]

Bonjour FCL31, peux tu mettres quelquue commentaires, car je ne suis pas un habitué avec le vb excel, j'en fait juste une fois de temps en temps

[FCL31]

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Test()
'-----------------------------------------------------
'-----------Insertion d'une nouvelle ligne------------
'-----------------------------------------------------
    Rows("10:10").Insert Shift:=xlDown
 
 
'-----------------------------------------------------
'-------------Copie de la cellule "B9"----------------
'-----------------------------------------------------
    Range("B9").Copy
 
 
'-----------------------------------------------------
'---Colle la cellule "B9" en "B10" avec la formule----
'-----------------------------------------------------
    Range("B10").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
 
 
'-----------------------------------------------------
'--------Ajout de la nouvelle valeur en "A10"---------
'-----------------------------------------------------
    Range("A10").FormulaR1C1 = "100"
 
 
'-----------------------------------------------------
'Selection la cellule "A1" (Pas vraiement obligatoire)
'-----------------------------------------------------
    Range("A1").Select
 
 
'-----------------------------------------------------
'-----------Déselctionne la cellule copiée------------
'-----------------------------------------------------
    Application.CutCopyMode = False
 
 
End Sub

[rdams]

merci pour les commentaires.
au besoin je repasse mettre un petit message