Imbrication de formule vba simple.

M

mawua

XLDnaute Occasionnel

• 2 Octobre 2006

• #2

Re : Imbrication de formule vba simple.

Pour plus de précision, je me rend compte que j'ai été un peu court.
J'ai tenté des imbrication de boucle for.
Ca ne fonctionnait pas car je mettait des conditions intermédiaires trop longue probablement, et excel me mettait des erreurs "end with sans with" ou "next sans for" c'est pour ça que j'en suis arrivé à faire des renvois de macro completement stupide qui pour la plupart ne veulent rien dire.

Merci encore de (encore) faire l'effort de me lire.

 

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 2 Octobre 2006

• #3

Re : Imbrication de formule vba simple.

Bonjour Mawua,

Voici une partie du code VBA corrigé.
Avant d'aller plus loin, peux-tu regarder si cela correspond à ce que tu demandes ?

Merci
@+
Béa

 

Dernière édition: 30 Novembre 2006

Vote positif 0 Vote négatif

M

mawua

XLDnaute Occasionnel

• 2 Octobre 2006

• #4

Re : Imbrication de formule vba simple.

Bonjour lacorse,

Oui c'est tout à fait cela. Apparemment j'avaias négligé les Boolean
et je m'etais emmélé les pinceaux entre Target et Cellos.
Je teste si ça passe sur la base de donnée complète et je te tiens au courant.

 

Vote positif 0 Vote négatif

M

mawua

XLDnaute Occasionnel

• 2 Octobre 2006

• #5

Re : Imbrication de formule vba simple.

J'ai adapté le tout à la vraie BDD, et ça s'insère comme une fleur.
Mis à part une grosse boulette de ma part. Pour moi c'est une affaire qui roule.
Une bonne chose de faite.
Encore merci lacorse.

 

Vote positif 0 Vote négatif

M

mawua

XLDnaute Occasionnel

• 2 Octobre 2006

• #6

Re : Imbrication de formule vba simple.

Il me reste l'affichage "par défaut" du formulaire OS si rien n'a été trouvé dans la zone de recherche.
J'ai continué à déroulé le code sur la même inspiration, c'est à dire comme ça:

Set Plage = Sheets("page 1").Range("F20:G24") 'active la plage de cellule en page 1
For Each cellos In Plage
If TestOS(cellos) = True Then
i = 1
Sheets("BDD").Cells(Ligne, 3) = cellos.Offset(0, 1) 'le contenu de la cellule de droite est transmis en BBD"
Else: i = 0
End If
If TestBon(cellos) = True Then
j = 1
Sheets("BDD").Cells(Ligne, 3) = cellos.Offset(0, 1) 'le contenu de la cellule de droite est transmis en BBD"
Else: j = 0
End If
next cellos

...

If i + j = 0 Then
USFOS.Show
Sheets("BDD").Cells(Ligne, 3) = USFOS("TextBox1").Value 'ordre de service
.Cells(Ligne, 9) = USFOS("Textbox2").Value 'Date prévisionnelle d'achèvement
Application.CutCopyMode = False
End If
End With
End Sub

Sauf que au lieu de m'afficher le formulaire par défaut, il me l'affiche à chaque fois. Même lorsque c'est "Bon" qui est écrit dans la zone de recherche???

 

Dernière édition: 2 Octobre 2006

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 2 Octobre 2006

• #7

Re : Imbrication de formule vba simple.

Mawua,

Peux-tu reposter ton fichier adapté ?

Merci
@+
Béa

 

Vote positif 0 Vote négatif

M

mawua

XLDnaute Occasionnel

• 2 Octobre 2006

• #8

Re : Imbrication de formule vba simple.

Re
Je suis obligé de tailler dans le vif, mais ça devrait être démonstratif.
Et voilou, le fichiou.

 

Pièces jointes

• BDD2.zip

  37.9 KB · Affichages: 37
• BDD2.zip

  37.9 KB · Affichages: 45
• BDD2.zip

  37.9 KB · Affichages: 37

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 2 Octobre 2006

• #9

Re : Imbrication de formule vba simple.

Bonsoir Mawua,

Je ne comprends ce qui ne va pas.
Peux-tu me donner plus d'explications ?

Merci
@+
Béa

 

Vote positif 0 Vote négatif

M

mawua

XLDnaute Occasionnel

• 2 Octobre 2006

• #10

Re : Imbrication de formule vba simple.

Eh bien si j'ecris "Bon" à la place de "OS" en page 1, c'est le mauvais formulaire (formulaire OS) qui apparait. Chez moi en tout cas.

 

Vote positif 0 Vote négatif