description programme excel

Version imprimable

pouvez vous me decrire ce programme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sheets("Chiffrages").Select
    Worksheets("Chiffrages").Rows(sup).Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    ActiveWindow.SmallScroll ToRight:=14
    Range("P" & sup + 1 & ":S" & sup + 1).Select
    Selection.AutoFill Destination:=Range("P" & sup & ":S" & sup + 1), Type:=xlFillDefault
    Range("P" & sup & ":S" & sup + 1).Select
    Range("P" & sup).Select
    Sheets("Tables de calcul").Select
    Rows(sup).Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    Rows(sup + 1).Select
    Selection.AutoFill Destination:=Rows(sup & ":" & sup + 1), Type:=xlFillDefault
    Sheets("Chiffrages").Select
    ActiveWindow.LargeScroll ToRight:=-2
    Range("A" & sup).Select

05/10/2007, 10h37
Invité

Bonjour

As-tu essayé d'abord avec la touche :f1: sur chaque mot pour connaitre la signification ?

Starec
05/10/2007, 10h45
kikisens

Citation:

Envoyé par Starec

Bonjour

As-tu essayé d'abord avec la touche :f1: sur chaque mot pour connaitre la signification ?

Starec

c'est fait je ne suis pas idiot
05/10/2007, 10h55
Drost

Hi,

Le code est il complet?

Drost
05/10/2007, 11h09
kikisens

non faut savoir que sup est un entier
05/10/2007, 12h00
kikisens

ceci est shift:=xldown

ca sert à koi Shift:=xldown
05/10/2007, 12h21
ouskel'n'or

A placer la ligne ajoutée en dessous mais je crois qu'en fait elle est placée en dessus que ce soit avec xldown ou xlUp (à vérifier) Tu peux faire ça pour nous ? ;)
05/10/2007, 12h30
Invité

En effet Ouskel'n'or.

Par exemple si la cellule A2 est sélectionnée la nouvelle ligne insérée sera en N° 2 et le contenu de l'ancienne ligne 2 sera décalé en ligne 3.

La différence que j'ai constatée entre Down et Up :

pour le 1er : fonctionne si une cellule est sélectionnée.
pour le 2ème : le résultat est le même mais il faut que le N° de ligne soit sélectionné et non une cellule.

Kikisens,

Cette question reprend partiellemment le sujet que vous avez créé sur le forum Excel.

Pour voir ce que fait une macro :

Outils, Macro puis Macros puis Modifier.
Dans la fenêtre Visual Basic vous cliquez sur la barre de titre et vous glissez la fenêtre vers la droite de manière à voir une parte de votre feuille sur la gauche puis vous cliquez n'importe où à l'intérieur du code puis vous appuyez sur F8.

Vous continuez a appuyer sur F8 pour chaque ligne de code.
05/10/2007, 13h30
kikisens

vous etes tous dans le bon verification effectué résultat validé
05/10/2007, 13h53
Invité

Re Kikisens,

Si j'ai bien compris, votre problème est solutionné ?

Si c'est le cas merci de mettre "Résolu".