Problème de longueur de code!

[wapit]

Bonjour,

J'ai un problème de longueur de code.
J'ai un If qui me prend plusieurs lignes et cela me créé une erreur.

If contenu <> (..............................Sur deux lignes....................................) Then 
Box = MsgBox("Code client éroné!", 0, "Attention") 
[\code] 
J'ai donc une erreur à la fin de la première ligne. 
Que puis-je faire?

 

[nebucad]

place un _ a la fin de ta ligne :
if condition1 and _
condition2 or _
condition3 then

instructions

end if

j espere que j ai repondu a ta question apres c est a toi de gerer si tu es en "et" ou en "ou" pour tes conditions

@ plus
nebucad

 

[nebucad]

je viens de relire ton post et ton "_" tu peux le mettre n importe ou dans ta condition ex:
If position_in_prog _
= 1 Then

(...)

end if


tiens moi (et nous les forumeurs au courant)
nebucad

 

[wapit]

C'était bien ça!
Merci!
Par contre j'ai un autre problème qui est apparu.
Voilà mon code :

Dim contenu As String
Dim Box As Integer
Dim CodeClient As Integer

Range("D4").Select
contenu = ActiveCell.Value

If contenu <> (Range("J2").Value And Range("M2").Value And Range("P2").Value And Range("S2").Value And Range("V2").Value And Range("Y2").Value And Range("AB2").Value And Range("AE2").Value And Range("AH2").Value And Range("AK2").Value And Range("AN2").Value And Range("AQ2").Value And Range("AT2").Value And Range("AW2").Value And Range("AZ2").Value And Range("BC2").Value And Range("BF2").Value And Range("BI2").Value And Range("BL2").Value And Range("BO2").Value And Range("BR2").Value And Range("BU2").Value And Range("BX2").Value And Range("CA2").Value And Range("CD2").Value And Range("CG2").Value And Range("CJ2").Value And Range("CM2").Value And Range("CP2").Value And Range("CS2").Value And Range("CV2").Value And Range("CY2").Value And Range("DB2").Value And Range("DE2").Value And Range("DH2").Value And Range("DK2").Value And Range("DN2").Value And Range("DQ2").Value And Range("DT2").Value And Range("DW2").Value And Range("DZ2").Value And _
Range("EC2").Value And Range("EF2").Value And Range("EI2").Value And Range("EL2").Value And Range("EO2").Value And Range("ER2").Value And Range("EU2").Value And Range("EX2").Value And Range("FA2").Value And Range("FD2").Value And Range("FG2").Value And Range("FJ2").Value And Range("FM2").Value And Range("FP2").Value And Range("FS2").Value And Range("FV2").Value And Range("FY2").Value And Range("GB2").Value And Range("GE2").Value And Range("GH2").Value And Range("GK2").Value And Range("GN2").Value And Range("GQ2").Value And Range("GT2").Value And Range("GW2").Value And Range("GZ2").Value And Range("HC2").Value And Range("HF2").Value And Range("HI2").Value And Range("HL2").Value And Range("HO2").Value And Range("HR2").Value And Range("HU2").Value And Range("HX2").Value And Range("IA2").Value And Range("ID2").Value And Range("IG2").Value And Range("IJ2").Value And Range("IM2").Value And Range("IP2").Value And Range("IS2").Value) Then
Box = MsgBox("Code Client éroné! Veuillez Saisir un code client valide dans la cellule D4")
Else
Range("J2").Select
If contenu = ActiveCell.Value Then
CodeClient = 11
End If
Range("M2").Select
If contenu = ActiveCell.Value Then
CodeClient = 14
End If
...........
.........
............
...........
If contenu = ActiveCell.Value Then
CodeClient = 248
End If
Range("IP2").Select
If contenu = ActiveCell.Value Then
CodeClient = 251
End If
Range("IS2").Select
If contenu = ActiveCell.Value Then
CodeClient = 254
End If
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=CodeClient, Criteria1:="<>"
Sheets(1).Select
Sheets.Add
ActiveSheet.Name = "Fiche Client"
Sheets("Fiche Client").Move After:=Sheets(2)
Sheets(1).Select
If CodeClient = 11 Then
Columns("J:K").Select
End If
If CodeClient = 14 Then
Columns("M:N").Select
End If
..........
...........
...........
If CodeClient = 248 Then
Columns("IA:IB").Select
End If
If CodeClient = 251 Then
Columns("ID:IE").Select
End If
If CodeClient = 254 Then
Columns("IG:IH").Select
End If
Selection.Copy
Sheets("Fiche Client").Select
Range("E1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(1).Select
Columns("B:E").Select
Selection.Copy
Sheets("Fiche Client").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("D").EntireColumn.AutoFit
Range("G6").Select
ActiveSheet.Buttons.Add(440.25, 39, 60, 24).Select
Selection.OnAction = "SupprimerFicheClient"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Supprimer"
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If
Range("D4").Select
End Sub

La boite de message s'affiche bien lorsque l'utilisateur ne saisie pas de code client ou saisie un code éroné, mais elle s'affiche aussi lorsque je saisie un code client valide (cad présent dans les cellules J2, M2....IS2) et la suite de la macro ne s'exécute plus.
Voyez-vous d'où vient le problème?

 

[wapit]

En fait cela ne fonctionne plus dès qu'il y a plus d'une condition dans le If.
Dès que je mets un "And...." ça m'affiche la boite de dialogue pour n'importe quelle valeur entée et le reste de la macro ne s'exécute pas.

 

[Myta]

Salut le forum

Wapit j'irais plus avec un OR qu'un AND

 

[wapit]

J'ai essayé avec un Or mais le résultat est le même!

 

[Ti]

Moi je pense qu'à ta place je définirais une plage comprenant l'ensemble des cellules que tu référence et ensuite il suffirait d'un simple Find dans cette plage pour tester si ta valeur y est présente, ça t'éviterait cette très longue suite de AND dans laquelle on se perd.
D'autre part évite les Select, ton code en sera littéralement boosté parce que je suppose que, telle qu'elle est écrite, ta macro doit ramer un maximum.

 

[wapit]

J'ai essayé d'utiliser un Find mais il ne le reconnais pas.

 

[@+Thierry]

Bonjour le Fil,

Euh sans déconner, c'est une blague ? la macro du post 15-07-03 11:29 ?

Tout çà pour identifier si "Contenu" est dans une de ces cellules ???

C'est pas fait pour çà les If en Vba !!! (lol)

Essaies ceci


Option Explicit
Option Compare Text
Sub RechercheClient()
Dim Contenu As String, CodeClient As Integer
Dim Plage As Range, Cell As Range
Dim Test As Byte

Contenu = Sheets(1).Range("D4")

Set Plage = Sheets(1).Range("J2:IS2")

For Each Cell In Plage
If Cell = Contenu Then
Test = Test + 1
CodeClient = Cell.Column + 1
End If
Next Cell

If Test = 0 Then
MsgBox "Code Client éroné! Veuillez Saisir un code client valide dans la cellule D4"
Exit Sub
ElseIf Test > 1 Then
MsgBox "Le Client : " & Contenu & " est " & Test & " fois dans la base"
Exit Sub
End If

MsgBox "Le Client : " & Contenu & " a le code : " & CodeClient


'blah blah blah blah

End Sub

Ca sera déjà plus court ! quel enfer tu as dû passer à écrire ce tableau de correspondance en IF !!! (J2, CodeClient = 11... M2, CodeClient = 14.... Jusqu'à IV, CodeClient = 257 !!!) au moins la boucle ci-dessus te le fait toute seule !!!

Pour la fin du code, je n'ai pas vraiment compris ce que tu fais, mais bon, le début devrait faire dans les 500 lignes de moins maintenant !! (mdr)

Bon Aprèm
@+Thierry

 

[wapit]

Ca marche merci!!!!!!!!!!

 

[@+Thierry]

De rien !!!

Welcome to XLD Wapit !!

@+Thierry