[RÉSOLU] VBA : while à plusieurs conditions

[dionys0s]

Bonjour le forum

Serait-il possible d'avoir deux conditions pour un while ?

j'ai le code suivant :

Sub Calcul_des_CA()

'Alin TTC SG

    Feuil1.Visible = True
    Feuil1.Select

    Dim DerLign As Integer

    DerLign = Range("A65536").End(xlUp).Row

    Feuil15.Select
    Range("C9").Select

    While ActiveCell.Offset(0, -1) <> ""
    
    ActiveCell.Formula = _
        "=SUMPRODUCT(('Datas CA'!R2C2:R" & DerLign & "C2='Calcul CA'!RC2)*(('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C3)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C4)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C5)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R5C5)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C6)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R5C6)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C7)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C8)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C9))*('Datas CA'!R2C7:R" & DerLign & "C7))"

    ActiveCell.Offset(1, 0).Select

    Wend

    Range("D9").Select

'Alin TTC SG (fin)

End Sub

Je voudrais que mon

While ActiveCell.Offset(0, -1) <> ""
soit aussi différent de "Total"

C'est possible d'écrire un truc du genre

While ActiveCell.Offset(0, -1) <> "" & "Total" ?

Merci beaucoup pour votre aide

 

[JNP]

Re : VBA : while à plusieurs conditions

Salut Dionys0s 🙂,

While ActiveCell.Offset(0, -1) <> "" And ActiveCell.Offset(0, -1) <> "Total"

Bonne journée 😎

 

[Cousinhub]

Re : VBA : while à plusieurs conditions

Bonjour,

Sans filet, aucun....

On ne sait pas à quoi correspond "Feuil1", "Feuil5"......

Donc, sans filet, aucun....

Sub Calcul_des_CA()
DerLign = Feuil1.Range("A65536").End(xlUp).Row
With Feuil15
    With .Range("C9:C" & .[B65000].End(xlUp).Row - 1)
        .Formula = _
            "=SUMPRODUCT(('Datas CA'!R2C2:R" & DerLign & "C2='Calcul CA'!RC2)*(('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C3)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C4)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C5)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R5C5)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C6)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R5C6)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C7)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C8)+('Datas CA'!R2C1:R" & DerLign & "C1='Calcul CA'!R4C9))*('Datas CA'!R2C7:R" & DerLign & "C7))"
    End With
End With
End Sub

Mais forcément, cela ne va pas fonctionner....

Sans fichier exemple, je ne pourrai aller plus avant....

Bon courage

 

[dionys0s]

Re : VBA : while à plusieurs conditions

JNP t'es le meilleur.

*respect*

 

[Cousinhub]

Re : VBA : while à plusieurs conditions

Yessssssssssssssss

Génial,

Maintenant, on a un classement en direct.....

Pour le moment, JNP : 1, bhbh : 2

Eh les gars, hésitez pas, le challenge est "open".....

Au plaisir....