Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour faire tourner des zones liste (formulaire)

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Christian0258

XLDnaute Accro
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
 
Trier par date Trier par votes
Re : Macro pour faire tourner des zones liste (formulaire)

Bonjour Christian,
If Range("$b$7").Text > 0
Cliquez pour agrandir...
moi, je remplacerait ça par
Code: 
If Range("b7").Value> 0 Or Range("O102").Value="non" Then ....ce que tu veux

essaie et reviens si nécessaire
à+
Philippe
.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour faire tourner des zones liste (formulaire)

Bonjour,
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
et dans tes codes tu mets:
Code: 
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"

à+
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
D
  • Question Question
Microsoft 365 Macro pour conditionner une réponse selon des hypothèses
Réponses
3
Affichages
319
Phil69970
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Question Question
XL 2021 Résultats dans un formulaire VBA suite à la saisie d'un texte contenu dans un tableau Excel
Réponses
10
Affichages
1 K
AugusteP
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
791
Usine à gaz
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
10 K
TooFatBoy
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
984
oguruma
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
1 K
Yann71
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
Y
  • Question Question
XL 2019 Copie des données des différentes lignes sur une base de données
Réponses
10
Affichages
2 K
YANNISE
Y
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
Y
  • Résolu(e)
XL 2016 Transfère des données réparties sur des lignes à une base de données
2
Réponses
19
Affichages
2 K
soan
S
M
  • Question Question
XL 2019 Colorié des zones par rapport a des critère de date si quelqu'un peut m'aider pour ce projet
Réponses
3
Affichages
886
marsu-07
M
M
  • Question Question
Microsoft 365 Evolution macro - VBA - Copier/coller en fonction d'une ligne
Réponses
6
Affichages
2 K
melinavy
M
M
  • Question Question
Microsoft 365 Petit changement
Réponses
2
Affichages
1 K
marine_volria
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…