Mes formules sont-elles correctes ?

swampsnake · 6 Août 2010

Salut tout le monde,

J'ai un problème avec deux formules que j'aimerais appliquer à deux cellules.

Voici comment les choses doivent se passer : dans une boucle j'insère des lignes et je souhaiterais affecter une formule dans les cellules C et E de chaque nouvelle ligne. Malheureusement, ça n'a pas l'air de fonctionner.
Après moultes recherches sur le sujet et des tas de tests en modifiant les quotes et autres, je vous appelle au secours.

Pourriez-vous me dire si la syntaxe est correcte ?

Voici le code en question :

Code:

sht.Rows(cpt).Insert Shift:=xlDown
sht.Range("C" & cpt).Formula = "=IF(B" & cpt & "<>"""",(IF(AND(B" & cpt & ">Z" & cpt & ",B" & cpt & "<>""""),""""Sur-engagé"""",IF(AND(B" & cpt & "<Y" & cpt & ",B" & cpt & "<>""""),""""Sous-engagé"""",""""OK""""))),"""")"
sht.Range("E" & cpt).Formula = "=IF(AL" & cpt & "="""","""",AL" & cpt & ")"

MJ13 · 6 Août 2010

Re : Mes formules sont-elles correctes ?

Bonjour swampsnake

Le mieux serait de mettre un fichier réprésentant le problème car la en l'état, si quelqu'un peut te dépanner, c'est un magicien .

kjin · 6 Août 2010

Re : Mes formules sont-elles correctes ?

Bonjour, salut MJ ,
J'ai du mal à cerner la logique de la première formule
Tu testes si B & cpt est non vide 3 fois !

Code:

sht.Range("C" & cpt).Formula = "=IF(B" & cpt & "="""","""",IF(B" & cpt & ">Z" & cpt & ",""Sur-engagé"",IF(B" & cpt & "<Y" & cpt & ",""Sous-engagé"",""OK"")))"

A+
kjin

swampsnake · 6 Août 2010

Re : Mes formules sont-elles correctes ?

D'accord. Voici donc un fichier exemple qui reproduit exactement ce que je voudrais faire. Les cellules ne sont pas les mêmes, mais ça ne fait rien, le résultat est le même.

Merci de bien vouloir y jeter un coup d'œil.

kjin · 6 Août 2010

Re : Mes formules sont-elles correctes ?

re,
La macro complète

Code:

Sub Generer()
Dim cpt As Integer
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("Feuil1")
cpt = 1
While cpt < 20
    cpt = cpt + 1
    sht.Rows(cpt).Insert Shift:=xlDown
    sht.Range("C" & cpt).Formula = "=IF(B" & cpt & "="""","""",IF(B" & cpt & ">Z" & _
            cpt & ",""Sur-engagé"",IF(B" & cpt & "<Y" & cpt & ",""Sous-engagé"",""OK"")))"
    sht.Range("E" & cpt).Formula = "=IF(AL" & cpt & "="""","""",AL" & cpt & ")"
Wend

End Sub

A+
kjin

swampsnake · 6 Août 2010

Re : Mes formules sont-elles correctes ?

Merci ça fonctionne.

J'avais mis des double-quotes en trop on dirait...

Merci encore ^^

MJ13 · 6 Août 2010

Re : Mes formules sont-elles correctes ?

Re, Bonjour kjin

Bravo Kjin .

Je savais qu'on avais des magiciens sur XLD .

Comme quoi, avec un fchier, y'a pas besoin de palabres .

Mes formules sont-elles correctes ?

swampsnake

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

swampsnake

XLDnaute Nouveau

Pièces jointes

kjin

XLDnaute Barbatruc

swampsnake

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

Discussions similaires