Discussion :

[chrisl0]

bien le bonjour

Voila j'ai un petit problème avec les condition. J'aurais aimer faire ça:
Quand j'ouvre le classeur, ouvrir la feuille "accueil" au demarage pui si la cellule A1 est = à 0 ouvrir un userform et si il est a 1 ne rien faire.

J'ai fai un truc du genre mais sa ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Sheets("Accueil").Select 'permet d'ouvrir le classeur sur la feuille Accueil
If
    Range("A1") = 0
    ConfigurationForm.Show
Else
    Range("A1") = 1
    Sheets("Accueil").Select
End If
End Sub

La feuille Accueil s'ouvre bien mais les condition pas du tout vue que jai un message d'erreur.

Merci bien pour vos réponses

[Jean-Philippe André]

Bonjour,

quelques lectures pour bien debuter dans les tests If/Then/End If

http://heureuxoli.developpez.com/off...d/vba-all/#L11
Une premiere partie de ton code deviendra donc

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
Sheets("Accueil").Select 'permet d'ouvrir le classeur sur la feuille Accueil
If    Range("A1") = 0 Then
    ConfigurationForm.Show
End If
End Sub

a toi de trouver le complement

[chrisl0]

ok super jai compris mon erreur merci bien a toi
donc du coup j'ai fait sa

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
If Range("A1") = 0 Then
    Sheets("Accueil").Select
    ConfigurationForm.Show
Else
    Sheets("Accueil").Select
End If
End Sub

encore merci