Utilsation de If
Bonjour,
Je cherche.à faire une simple macro du genre si une cellule a une certaine valeur, alors il faut choisir tel ou tel affichage. La macro ci-dessous ne fonctionne pas du tout. Elle est pourtant très simple. Help
Philippe
Sub ACCESVERSBASE()
If Range("I3").Value = "LIGHT" Then
Sheets("BASE DE DONNEES").Select
ActiveWorkbook.CustomViews("LIGHT").Show
End If
If Range("I3").Value = "FULL" Then
Sheets("BASE DE DONNEES").Select
ActiveWorkbook.CustomViews("FULL").Show
End If
If Range("I3").Value = "EXPERT" Then
Sheets("BASE DE DONNEES").Select
ActiveWorkbook.CustomViews("EXPERT").Show
End If
End Sub
Bonjour,
Votre macro semblait correcte... Je l'ai juste réorganisée.
Sub ACCESVERSBASE()
Dim MaValeur$
MaValeur = Range("I3").Value
If MaValeur = "LIGHT" or MaValeur = "FULL" or MaValeur = "EXPERT" Then
'Sheets("BASE DE DONNEES").Activate
ActiveWorkbook.CustomViews(MaValeur).Show
End if
End SubMais si ça ne marche pas, c'est qu'il y a un problème au niveau des instructions. Il faudrait qu'on sache ce qui se passe : si ça ne fonctionne pas, c'est qu'il y a probablement une erreur.
Cdlt,
Bonjour à tous
Peut-être préciser la feuille où se trouve
Range("I3")