if, elseif ...

casper64 · 10 Mai 2016

Bonjour à tous,
j'aimerais faire marcher ces ligne de codes VBA mais il y a un problème et comme je ne m'y connais pas trop, j'ai besoin de votre aide :

Sub Caseàcocher173_Cliquer()
With Sheets("predim")
If .[AK103] = False Then
.Rows("107:113").EntireRow.Hidden = False
Else
.Rows("107:113").EntireRow.Hidden = True

ElseIf .[AK103] = True Then
.Rows("105:106").EntireRow.Hidden = True
Else
.Rows("105:106").EntireRow.Hidden = False

End If
End With
End Sub

Merci beaucoup!

Lolote83 · 10 Mai 2016

Re : if, elseif ...

Salut,
Peut être comme ceci
Sub Caseàcocher173_Cliquer()

Code:

With Sheets("predim")
If .[AK103] = False Then
.Rows("107:113").EntireRow.Hidden = False
Else
.Rows("107:113").EntireRow.Hidden = True
End If
If .[AK103] = True Then
.Rows("105:106").EntireRow.Hidden = True
Else
.Rows("105:106").EntireRow.Hidden = False
End If
End With
End Sub

Hieu · 10 Mai 2016

Re : if, elseif ...

Salut,

J'viens me rajouter à la conversation
Finalement, tu n'as que deux conditions - soit c'est vrai, soit c'est faux -
En repartant de la réponse à Lolote83 :

Code:

Sub Caseàcocher173_Cliquer()
With Sheets("predim")
If .[AK103] = False Then
    .Rows("105:106").Hidden = False  ' La commande EntireRow semble inutile puisque l'on définit déjà la ligne entière ?!
    .Rows("107:113").Hidden = False
Else
    .Rows("105:106").Hidden = True
    .Rows("107:113").Hidden = True
End If
End With
End Sub

Puis, on peut ajouter les parenthèses ensemble:

Code:

Sub Caseàcocher173_Cliquer()
With Sheets("predim")
If .[AK103] = False Then
    .Rows("105:113").Hidden = False
Else
    .Rows("105:113").Hidden = True
End If
End With
End Sub

++

casper64 · 10 Mai 2016

Re : if, elseif ...

super ça marche! merci beaucoup!!!
avec le code de Lolote83, j'ai juste inversé les true/false qui ne collaient pas

Marc L · 10 Mai 2016

Bonjour,

le code initial pourrait être réduit à ceci :

VB:

Sub Caseàcocher173_Cliquer()
    With Worksheets("predim")
        .Rows("105:113").Hidden = .[AK103].Value
    End With
End Sub

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

Si ce n'est pas le résultat escompté,
il aurait été judicieux d'effectuer une présentation claire & exhaustive
au lieu d'un « il y a un problème » sans aucune explication quant au but recherché …

_______________________________________________________________________________
Je suis Paris, Charlie, …

Dranreb · 10 Mai 2016

Re : if, elseif ...

Bonsioir tout le monde.

Et dans le même esprit je dirais :

VB:

Sub Caseàcocher173_Cliquer()
With Worksheets("predim")
   .Rows("105:106").EntireRow.Hidden = .[AK103].Value
   .Rows("107:113").EntireRow.Hidden = Not .[AK103].Value
   End With
End Sub

if, elseif ...

casper64

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Hieu

XLDnaute Impliqué

casper64

XLDnaute Nouveau

Marc L

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires