toussaint4
-
4 févr. 2013 à 10:17
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
4 févr. 2013 à 11:36
Bonjour,
j'ai tapé ce programme et j'ai ce message d'erreur qui s'affiche. J'arrive pas à m'en débarrasser:
Sub SousSol()
'
' SousSol Macro
If Range("D1") = "0" Then
Rows("5:25").Select
Selection.EntireRow.Hidden = False
End If
If Range("D1") = "1" Then
Rows("5:19").Select
Selection.EntireRow.Hidden = False
End If
If Range("D1") = "2" Then
Rows("5:13").Select
Selection.EntireRow.Hidden = False
End If
If Range("D1") = "3" Then
Rows("5:7").Select
Selection.EntireRow.Hidden = False
End If
'
Application.Run "'métré voile.xls'!SousSol"
End Sub
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 4 févr. 2013 à 11:35
Bonjour,
Que fais-tu dans la section
Forum > Visual Basic 6
Alors que, développant manifestement sous VBA/Excel, tu aurais dû l'ouvrir dans la section Langages dérivés > VBA ?
Prends dorénavant ce soin, s'il te plait (important).
Prends également l'habitude de présenter tes lignes de code entre balises code (3ème icône en partant de la droite).
Bien ;
1) ce que tu as écrit s'écrit tout simplement :
Dim fin As Integer
fin = 0
Select Case Val(Range("D1").Text)
Case 0 To 3
fin = 25 - (6 * Val(Range("D1").Text))
Case Else
' et alors ? si ni 0,ni 1, etc ... ?
End Select
If fin > 0 Then Rows("5:" & fin).EntireRow.Select 'Hidden = True
2) sans préjudice de l'erreur que pourrait provoquer la ligne :
Application.Run "'métré voile.xls'!SousSol"
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 4 févr. 2013 à 11:36
pardon (mais je pense que tu as corrigé à ta sauce :
If fin > 0 Then Rows("5:" & fin).EntireRow.Hidden = True
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.