Fonction IF vba macro excel

Résolu
couc67 Messages postés 50 Date d'inscription   Statut Membre Dernière intervention   -  
couc67 Messages postés 50 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai une fonction permettant de comparer 2 x 2 cellules entre elles. Mais la fonction de passe pas lorsque je lance ma macro...

Dim i As Integer

Set FL1 = Worksheets("Feuil1")
Set FL2 = Worksheets("Feuil2")

For i = 2 To DerniereLigne
If (FL1.Cells(i, 3) = FL1.Cells(i, 4)) & (FL1.Cells(i, 9) = FL1.Cells(i, 10)) Then
FL2.Cells(i, 2).Value = 1
Else
FL2.Cells(i, 2).Value = 0
End If
Next i

J'ai également tenté en utilisant des cells().value mais ca ne marche pas non plus... Une petite idée ? Merci d'avance de votre aide !!


A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

Je suppose que "derniereligne" est définie en amont ?

If (FL1.Cells(i, 3) = FL1.Cells(i, 4)) AND (FL1.Cells(i, 9) = FL1.Cells(i, 10)) Then


& est un symbole de concaténation
Michel
0
couc67 Messages postés 50 Date d'inscription   Statut Membre Dernière intervention  
 
Oui oui, derniereligne est défini au dessus.

la ligne passe maintenant, merci bien !!

Un autre problème que j'ai est la ligne suivante :

FL2.Cells(2, 8) = WorksheetFunction.Average(Range("C2", Cells(DerniereLigne, 3)))

j'aimerai simplement mettre la valeur moyenne de la liste C2 à C(DerniereLigne), mais une nouvelle fois, ca passe pas.... une autre idée ?

Encore merci pour le AND de tout à l'heure !! C'est bon à savoir
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
si tout en FL2 
With FL2  
     .Cells(2, 8) = Application.Average(.Range(.cells(2,3), .Cells(DerniereLigne, 3)))   
End with


Worksheetfunction est une collection de l'objet application. syntaxe d'école:

application.Worksheeetfunction.average(....

Michel
0
couc67 Messages postés 50 Date d'inscription   Statut Membre Dernière intervention  
 
parfait! Merci beaucoup ;)
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses