Problème Excel
Fermé
lserrane
-
7 mai 2012 à 00:39
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 7 mai 2012 à 10:30
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 7 mai 2012 à 10:30
A voir également:
- Problème Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique excel - Guide
2 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 7/05/2012 à 10:18
Modifié par lermite222 le 7/05/2012 à 10:18
Bonjour,
Tu n'indique pas sur quel ligne tu à l'erreur ?
Mais à 1ère vue, maju ("A1:H1") ne veux rien dire ?
Explique un peu mieux.
A+
Edit:
Aussi calculage(datenais)
En fait je pense qu'il te manque les fonctions Maju et CalculAge
il manque le InputBox sur la ligne..
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Tu n'indique pas sur quel ligne tu à l'erreur ?
Mais à 1ère vue, maju ("A1:H1") ne veux rien dire ?
Explique un peu mieux.
A+
Edit:
Aussi calculage(datenais)
En fait je pense qu'il te manque les fonctions Maju et CalculAge
il manque le InputBox sur la ligne..
Cells(i, 3) = ("Combien d'années de carrière avez-vous?")
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 7/05/2012 à 10:37
Modifié par lermite222 le 7/05/2012 à 10:37
J'ai rectifié toutes les erreurs...
Conseils :
Met Option Explicite en haut du module, ça évitera déjà les erreurs dans tes variables comme d'un o (lettre o) à la place de 0 (zéro)
Déclare tes variables.
Indente ton code.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Sub test()
' Touche de raccourci du clavier: Ctrl+t
Dim n As Integer, i As Integer, Rep, c As Integer
Dim DateNais As Date
Cells(1, 1) = "Nom"
Cells(1, 2) = "Age début de carrières"
Cells(1, 3) = "Année de carrières"
Cells(1, 4) = "Age fin de carrières"
Cells(1, 5) = "Date de naissance"
Cells(1, 6) = "Age"
Cells(1, 7) = "Statut"
Cells(1, 8) = "Portion du salaire"
n = InputBox("Pour combien de personnes voulez-vous faire les calculs ?")
For i = 2 To n + 1
Cells(i, 1) = InputBox(" Quel est votre nom?")
debut:
Cells(i, 2) = InputBox("A quel âge avez-vous commencé votre carrière")
Cells(i, 3) = InputBox("Combien d'années de carrière avez-vous?")
Cells(i, 4) = Cells(i, 2) + Cells(i, 3)
DateNais = InputBox("Quel est votre date de naissance ?")
Cells(i, 5) = DateNais
Cells(i, 6) = Year(Now) - Year(DateNais)
If Cells(i, 6) < Cells(i, 4) Then
Rep = MsgBox("votre âge " & Cells(i, 6) & " est inférieur à votre âge fin de carrière " & Cells(i, 4) & " voulez-vous continuer ?")
If Rep <> vbNo Then
GoTo debut
Else
Exit Sub
End If
End If
If Cells(i, 6) >= 60 Then
Cells(i, 7) = "Pensionné"
c = c + 1
ElseIf Cells(i, 6) >= 55 And Cells(i, 6) < 60 Then
Cells(i, 7) = "Prepensionné"
Else
Cells(i, 7) = "En activité "
End If
Select Case Cells(i, 7)
Case "En activité"
Cells(i, 8) = 1
Case "Prépensionné "
Cells(i, 8) = Cells(i, 3) / 55
Case "Pensionné"
Cells(i, 8) = Cells(i, 3) / 55
End Select
Next i
If c <> 0 Then
MsgBox ("Il y a " & c & " pensionnés")
End If
'maju ("A1:H1")
End Sub
Conseils :
Met Option Explicite en haut du module, ça évitera déjà les erreurs dans tes variables comme d'un o (lettre o) à la place de 0 (zéro)
Déclare tes variables.
Indente ton code.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.