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

Macro à plusieurs connditions

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion clautu
  • Date de début Date de début

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

clautu

XLDnaute Junior
Bonjoiur à tout le monde
J'ai encore unprobleme que je ne peux solutionner.
Voici une macro qui me donne 3 réponses ("vrai" "Faux" ou " " ).
Achaque réponses correspons un suite différente mais ça ne fonctionne pas.
Pouve vous maider

Private Sub CommandButton2_Click()

If ActiveSheet.Range("z1").Value = "Faux" Then
Dim retour As Integer
retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
If ActiveSheet.Range("z1").Value = "" Then

retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
If ActiveSheet.Range("z1").Value = "Vrai" Then

ActiveSheet.Copy After:=Sheets(2)
Range("V3:Y3").Select
Selection.Copy
Sheets("Facture (2)").Select
Application.CutCopyMode = False
Sheets("Facture (2)").Name = Range("facture!v3").Value
Range("V3:X3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ActiveSheet.Shapes("Button 26").Select
Selection.Cut

Range("z1").Delete

ActiveSheet.Select
Range("v3").Copy
Sheets("produits").Select
Range("m1").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Select
Range("e11").Select
Sheets("facture").Select
Range("ab3").Value = Range("ab3").Value + 1

Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False

Sheets("facture").Select
Range("ab3").Value = Range("ab3").Value + 1
End If
End If

Sheets("facture").Select
Range("b12").Select

Lorsqu'il n'y a que la première (faux) tout fonctionne très bien. Maius si jM'en ajoute une ça ne marche plus.

Merci !!!
 
Trier par date Trier par votes
Re : Macro à plusieurs connditions

Bonsoir,

Essaye ça (Non testé):
Code: 
Private Sub CommandButton2_Click()

If ActiveSheet.Range("z1").Value = "Faux" Then
Dim retour As Integer
retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
[COLOR=Blue] ElseIf [/COLOR]ActiveSheet.Range("z1").Value = "" Then

retour = MsgBox("Ce numéro de facture existe déjà", vbNo + vbInformation + vbDefaultButton2, "118e groupe scout")
[COLOR=Blue] Else [/COLOR]
ActiveSheet.Range("z1").Value = "Vrai"
    ActiveSheet.Copy After:=Sheets(2)
.....
End if
En plaçant le end if au bon endroit
Cordialement

 
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

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
671
job75
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
644
AtTheOne
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
343
Phil69970
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
592
sylvanu
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
789
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
391
patricktoulon
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
415
MATLEA
M
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
397
MICHIS
M
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
692
micie1509
Optimisation de code VBA
Réponses
5
Affichages
302
Cléa
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
886
candido57
C
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
813
thunder23
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
665
Franc58
F
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
803
MBEPID
M
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
587
Francky79
F
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
801
robpellan52
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…