fonction IF vba macro excel Résolu

Question

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 !!


Configuration: Windows 7 / Safari 534.13

michel_m · Answer

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

michel_m · Answer

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

Fonction IF vba macro excel

2 réponses

Votre réponse

Discussions similaires