Mise en place de titre et de constante

[baptbapt]

Bonjour

j'aimerai savoir s'il était possible de créer une macro, qui avant de mettre toute les valeurs sur la page excel, met en place les titres et toutes les constantes a leurs places.

exemple

titre Ne-Ns en J1
et la constante 0 en M4
...

puis on met nos valeurs en place

ceci étant nécessaire pour moi, car les constantes ne sont pas prise en compte dans mes macros.
Si on colle les données excel des la premières cellules, alors dans se cas, comment calculer une addition; qui prend en compte la valeur de ligne précédente

au dernière nouvelle, la ligne 0, je l'ai pas trouver.

Donc comment dans une macro, mettre en place des textes, des valeurs, mais aussi grisé totalement une ligne?

Merci

 

[dg62]

Re : Mise en place de titre et de constante

re

un exemple de macro enregistrée pour mettre en forme une cellule.
le tout est généré autematiquement par l'enregistreur de macro.

Sub misenforme()
'
' couleur Macro
' Macro enregistrée le 06/07/2006 par Didier
'

'
    Range("E6").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
End Sub

pour placer du texte dans une feuille en vba c'est comme pour les nombres.

range("A1").value="Titre de la colonne"

 

[porcinet82]

Re : Mise en place de titre et de constante

rerere baptbapt,

Pour mettre des constantes ce n'est pas trop difficile, il te suffit de mettre dans ta macro des lignes du genre :
Range("J1").value="Ne-Ns"
Range("M4").value=0
...

Pour ce qui est de tes addition sur la première ligne, il te suffit de mettre une condition après ta boucle (a toi d'adapter les adresse de cellule):
For i=1 to 10
If i=1 then Cells(i,2).Value=Cells(i,1).Value
'ton code pour les additions normales
Next i

@+

 

[porcinet82]

Re : Mise en place de titre et de constante

Salut Didier,

Apparement je tape moins vite que toi puisque tu as été plus rapide 😀
Bon aprem,

@+