Macro pour faire tourner des zones liste (formulaire)

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier cette macro ;

If Range("$b$7").Text > 0 Then 'comment modifier pour mettre une double condition,si la cellule B7=0 ou si O102=non...ON PASSE
Range("D91").Select
ActiveCell.FormulaR1C1 = "1" '1=MIDI / 2=SOIR
Range("E91").Select
ActiveCell.FormulaR1C1 = "1" 'de 1 à 6 (les maisonnées)
Range("F91").Select
ActiveCell.FormulaR1C1 = "1" 'de 1 à 15 les plats
ActiveSheet.Calculate
End If
If Range("$O$102").Text <> "non" Then
Application.Run "archive"
End If

ect ect... il y a bien évidemment ces codes répétés pour les 6 maisonnées et les 15 plats

Merci pour votre aide si précieuse,
Bien amicalement,

Christian

 

[phlaurent55]

Re : Macro pour faire tourner des zones liste (formulaire)

Bonjour Christian,

If Range("$b$7").Text > 0

moi, je remplacerait ça par

If Range("b7").Value> 0 Or Range("O102").Value="non" Then ....ce que tu veux

essaie et reviens si nécessaire
à+
Philippe
.

 

[kjin]

Re : Macro pour faire tourner des zones liste (formulaire)

Bonjour,

If Range("B7") = 0 And Range("O102") = "non" Then Exit Sub
Range("D91") = "1" '1=MIDI / 2=SOIR
Range("E91") = "1" 'de 1 à 6 (les maisonnées)
Range("F91") = "1" 'de 1 à 15 les plats
Archive

A+
kjin

 

[Christian0258]

Re : Macro pour faire tourner des zones liste (formulaire)

Re,

merci kjin, et phlaurent55

J'ai rentré ça :

If Range("B7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1" '1midi 2soir
Range("E91") = "1" 'de 1à6 maisonnées
Range("F91") = "1" 'de 1à15 plats
ActiveSheet.Calculate
archive

If Range("C7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1"
Range("E91") = "1"
Range("F91") = "2"
ActiveSheet.Calculate
archive

If Range("D7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1"
Range("E91") = "1"
Range("F91") = "3"
ActiveSheet.Calculate
archive

If Range("E7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1"
Range("E91") = "1"
Range("F91") = "4"
ActiveSheet.Calculate
archive

If Range("F7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1"
Range("E91") = "1"
Range("F91") = "5"
ActiveSheet.Calculate
archive

If Range("G7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1"
Range("E91") = "1"
Range("F91") = "6"
ActiveSheet.Calculate
archive

If Range("H7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1"
Range("E91") = "1"
Range("F91") = "7"
ActiveSheet.Calculate
archive

If Range("I7") = 0 And Range("$O$102") = "non" Then Exit Sub
Range("D91") = "1"
Range("E91") = "1"
Range("F91") = "8"
ActiveSheet.Calculate
archive
ect...ect
ça fonctionne mais ne prend que le code B7 alors que j'ai des données en G7 et H7

Pouvez-vous me dire
à+ merci
Christian

 

[phlaurent55]

Re : Macro pour faire tourner des zones liste (formulaire)

Re,
voici ta question initiale

If Range("$b$7").Text > 0 Then 'comment modifier pour mettre une double condition,si la cellule B7=0 ou si O102=non...ON PASSE

et dans tes codes tu mets:

If Range("B7") = 0 [SIZE=5][COLOR=red][B]And[/B][/COLOR][/SIZE] Range("$O$102") = "non" Then Exit Sub

remplace les "And" par "Or"

à+

 

[kjin]

Re : Macro pour faire tourner des zones liste (formulaire)

Re,
Avec un fichier exemple on gagnerai sans doute en efficacité !
A+
kjin

 

[Christian0258]

Re : Macro pour faire tourner des zones liste (formulaire)

Re, ok kjin,

Je joins un fichier, trés allégé, pour mieux comprendre le mécanisme et
mes attentes.


Merci pour le temps que vous m'avez déjà consacré et pour celui que vous voudrez bien m'accorder à nouveau.

Bien amicalement,

Christian