Discussion :

[Bad Bond]

Yo,
j'ai un problème
voilà, j'aimerai afficher les données inscrites pas l'utilisateur dans un tableau excel
c'est dur à expliquer mais voilà l'énoncé et ce ke j'ai commencé à faire...
http://badbond.free.fr/algo.rar
comment faire ??

merci d'avance

[Bad Bond]

si vous avez mal compris mon problème dites le moi.....

[Vesta]

Code :

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

ActiveSheet.Cells(1, 1) = maVariable

1,1 correcpond a la cellule de la premiere ligne 1ere Colonne
Je te conseille donc de dans ton loop incrémenter une valeur 'ligne'

genre comme ca

Code :

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

1
2
3
4
5
6
7
8
 
do
ligne=ligne+1
Nom=Inputbox("Entrez le nom")
ActiveSheet.Cells(ligne, 1) = Nom
Prenom=Inputbox("Entrez le prénom")
ActiveSheet.Cells(ligne, 1) = Prenom
loop

[Bad Bond]

merci bien
voilà mon code maintenant

Sub CommandButton1_Click()
Dim client As String
Dim nbacc As Integer
Dim CA As Boolean
Dim age As Integer
Dim optiontr As Boolean
Dim i As Integer

Dim montant As Single
Dim maj1 As Integer
Dim maj2 As Integer
Dim prime As Integer
Dim B As Integer
Dim prixTTC As Integer

i = 0
client = InputBox("entrer le nom du client")
Do While client <> "FIN"
montant = InputBox("montant prime correspondant a la zone géo + puissance fiscale")
optiontr = MsgBox("option tout risque", vbYesNo)
age = InputBox("age du client")
CA = MsgBox("conduite accompagnée", vbYesNo)
nbacc = InputBox("nombre d'accident l'année précédente")
If optiontr = vbYes Then
maj1 = montant * 0.5
Else
maj1 = 0
End If
If age < 25 And CA = vbNo Then
maj2 = montant * 0.1
Else
maj2 = 0
End If
prime = montant + maj1 + maj2
If nbacc = 0 Then
bonus = -0.2
Else
If nbacc = 1 Then
bonus = -0.1
Else
If nbacc = 2 Then
bonus = -0.3
Else
bonus = -0.5
End If
End If
End If
prime = prime + (0.9 * prime) * B
prixTTC = prime + prime * 0.2
MsgBox ("prix TTC" & prixTTC)

Range("A1").Select
ActiveCell.Offset(0, 0).Value = "Nom du client"
ActiveCell.Offset(0, 1).Value = "Montant de la prime"
ActiveCell.Offset(0, 2).Value = "Prix TTC"

Range("A2").Select
ActiveCell.Offset(0 + i, 0).Value = client
ActiveCell.Offset(0 + i, 1).Value = prime
ActiveCell.Offset(0 + i, 2).Value = prixTTC

client = InputBox("entrer le nom du client")

i = i + 1

Loop
End Sub

merci pour l'aide
mais je voudrai faire autre chose, redimensionner des collones en fonction du texte et mettre une couleur d'arrière plan dans certaines cellules, comment faire ??
merci d'avance !!

[SfJ5Rpw8]

pour redimensionner les colonnes...

Code :

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

 Cells.EntireColumn.AutoFit

[illight]

Pour redimensionner les colonnes en fonction du texte qu'il y a dedans il faut utiliser la fonction "EntireColumn.AutoFit" par exemple :

Code :

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

Columns("B:B").EntireColumn.AutoFit

Pour colorier une cellule tu peut t'aider de ça :

Code :

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

1
2
3
    Range("B3").Select
    With Selection.Interior
        .ColorIndex = 3

Vala

EDIT : pour avoir la couleur enf ait, tu peux exécuter une macro à l'aide de l'assistant, tu fais les manipulations que tu veux tu l'arrete et ensuite tu vas dans le Visual Basic Editor et tu regarde a quoi ressemble ta fonction

[Bad Bond]

merci bein

[illight]

un tit

[Bad Bond]

pas sùr
il m'affiche pas le bon résultat
le calcul doit pas être bon.......