Problème de conditions

D

didibzh

XLDnaute Nouveau
Bonjour a tous, voila j'ai un petit problème voici mon code

Code: 
Private Sub Validation_woodline_Click()
'--------------SOMME MURAUX------------------
TOTALW = WC1_660.Value + WC1_750.Value + WC1_1000.Value + WC2_660.Value + WC2_750.Value + WC2_1000.Value + WC3_660.Value + WC3_750.Value + WC3_1000.Value + WC4_660.Value + WC4_750.Value + WC4_1000.Value + WC5_660.Value + WC5_750.Value + WC5_1000.Value + WC6_660.Value + WC6_750.Value + WC6_1000.Value
'---------------------------------------------
If WC1_660.Value And WC1_750.Value And WC1_1000.Value = 0 Then
GoTo coupe2
Else
'Copie mise en forme
Sheets("1").Select
    Range("A1:I25").Select
    Selection.Copy
    Sheets("Devis").Select
    Selection.Insert Shift:=xlDown
'Déplacement de**
ActiveCell.Offset(5, 2).Range("A1").Select
ActiveCell.Value = WC1_660.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC1_750.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC1_1000.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select

'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(5, 5).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
'Retour à l'origine
ActiveCell.Offset(-7, -5).Range("A1").Select
End If
'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select


coupe2:
If WC2_660.Value And WC2_750.Value And WC2_1000.Value = 0 Then
GoTo Coupe3
Else
'Copie mise en forme
Sheets("1").Select
    Range("A1:I25").Select
    Selection.Copy
    Sheets("Devis").Select
    Selection.Insert Shift:=xlDown
'Déplacement de**
ActiveCell.Offset(5, 2).Range("A1").Select
ActiveCell.Value = WC2_660.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC2_750.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC2_1000.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select

'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(5, 5).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
'Retour à l'origine
ActiveCell.Offset(-7, -5).Range("A1").Select
End If


'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select

Coupe3:
If WC3_660.Value And WC3_750.Value And WC3_1000.Value = 0 Then
GoTo coupe4
Else
'Copie mise en forme
Sheets("1").Select
    Range("A1:I25").Select
    Selection.Copy
    Sheets("Devis").Select
    Selection.Insert Shift:=xlDown
'Déplacement de**
ActiveCell.Offset(5, 2).Range("A1").Select
ActiveCell.Value = WC3_660.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC3_750.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC3_1000.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select

'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(5, 5).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
'Retour à l'origine
ActiveCell.Offset(-7, -5).Range("A1").Select
End If


'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select

coupe4:
If WC4_660.Value And WC4_750.Value And WC4_1000.Value = 0 Then
GoTo coupe5
Else
'Copie mise en forme
Sheets("1").Select
    Range("A1:I25").Select
    Selection.Copy
    Sheets("Devis").Select
    Selection.Insert Shift:=xlDown
'Déplacement de**
ActiveCell.Offset(5, 2).Range("A1").Select
ActiveCell.Value = WC4_660.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC4_750.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC4_1000.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select
'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(5, 5).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
'Retour à l'origine
ActiveCell.Offset(-7, -5).Range("A1").Select
End If

'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select

coupe5:
If WC5_660.Value And WC5_750.Value And WC5_1000.Value = 0 Then
GoTo coupe6
Else
'Copie mise en forme
Sheets("1").Select
    Range("A1:I25").Select
    Selection.Copy
    Sheets("Devis").Select
    Selection.Insert Shift:=xlDown
'Déplacement de**
ActiveCell.Offset(5, 2).Range("A1").Select
ActiveCell.Value = WC5_660.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC5_750.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC5_1000.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select
'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(5, 5).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
'Retour à l'origine
ActiveCell.Offset(-7, -5).Range("A1").Select
End If

'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select

coupe6:
If WC6_660.Value And WC6_750.Value And WC6_1000.Value = 0 Then
GoTo accessoires
Else
'Copie mise en forme
Sheets("1").Select
    Range("A1:I25").Select
    Selection.Copy
    Sheets("Devis").Select
    Selection.Insert Shift:=xlDown
'Déplacement de**
ActiveCell.Offset(5, 2).Range("A1").Select
ActiveCell.Value = WC6_660.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC6_750.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WC6_1000.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select

'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(5, 5).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWMB.Value = True Then
ActiveCell.Value = "1"
Else
ActiveCell.Value = "2"
End If
'Retour à l'origine
ActiveCell.Offset(-7, -5).Range("A1").Select
End If

'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select

accessoires:
'Copie mise en forme
Sheets("2").Select
    Range("A1:I22").Select
    Selection.Copy
    Sheets("Devis").Select
    Selection.Insert Shift:=xlDown
'Déplacement de**
ActiveCell.Offset(2, 2).Range("A1").Select
ActiveCell.Value = QMWAH.Value
ActiveCell.Offset(1, 0).Range("A1").Select
'-----------------------------------------
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWER.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWHU.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWFL.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWDF.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWRM.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWPE.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWBC.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWB.Value
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = QMWBS.Value

'-----------OPTION KOMACEL----------------
ActiveCell.Offset(6, 0).Range("A1").Select
If QMWKB.Value = True Then
ActiveCell.Value = TOTALW
Else
ActiveCell.Value = ""
End If
'-----------OPTION TEXTE ADHESIF----------------
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWTA.Value = True Then
ActiveCell.Value = TOTALW
Else
ActiveCell.Value = ""
End If

'-----------OPTION IMAGES GENERIQUES----------------
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWIG.Value = True Then
ActiveCell.Value = TOTALW
Else
ActiveCell.Value = ""
End If

'-----------OPTION SOCLE PLINTHE----------------
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWSP.Value = True Then
ActiveCell.Value = TOTALW
Else
ActiveCell.Value = ""
End If

'-----------OPTION GELATINE----------------
ActiveCell.Offset(1, 0).Range("A1").Select
If QMWG.Value = True Then
ActiveCell.Value = TOTALW
Else
ActiveCell.Value = ""
End If

'Retour à l'origine
ActiveCell.Offset(-22, -2).Range("A1").Select

End Sub

sa bloc ici "If WC1_660.Value And WC1_750.Value And WC1_1000.Value = 0 Then" mais je pense que j'ai fait d'autre erreurs au niveaux des conditions

si quelqu'un peut m'éclairer merci par avance
 
Trier par date Trier par votes

Discussions similaires

F
  • Résolu(e)
Microsoft 365 Simplification code
Réponses
2
Affichages
161
Francky79
F
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
200
shf
S
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
128
snoopy07
S
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
275
gui22
G
Z
  • Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
1 K
onobyone
O
S
  • Résolu(e)
XL 2016 Boucle For ne s'exécute pas comme une boucle et boucle infinie
Réponses
2
Affichages
124
Stéphane_1
S
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
165
Francky79
F
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
715
mapomme
mapomme
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
239
Francky79
F
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
401
dadu35
D

Membres actuellement en ligne

5 membres et 66 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 581
Messages
2 089 916
Membres
104 305
dernier inscrit
EDIT