Calcul VBA simple Résolu/Fermé

Question

Bonjour, 

Quelqu'un aurait-il une idée sur pourquoi ce code ne marche pas?

Sub Remplir()

Dim i As Long, DL As Long
    
    DL = Range("A65536").End(xlUp).Row
    
    For i = 13 To DL
    
If Sheets(1).Range("A" & i) = "FRANCE" Then Sheets(1).Range("S13" & i) = Sheets(1).Range("K13" & i) / 1.2

Next i

End Sub

Sachant que la formule =SI(A13="FRANCE";K13/1.20;"") en S13 marche parfaitement.

Merci d'avance.

Cordialement.

Kuartz · Answer

Erreur d'inattention de ma part.

Le bon code est :

Sub Remplir()

Dim i As Long, DL As Long
    
    DL = Range("A65536").End(xlUp).Row
    
    For i = 13 To DL
    
If Sheets(1).Range("A" & i) = "FRANCE" Then Sheets(1).Range("S" & i) = Sheets(1).Range("K" & i) / 1.2

Next i

End Sub

Il ne faut pas préciser le numéro de ligne dans la boucle puisque c'est justement le principe. Désolé du dérangement.

Cordialement.

Calcul VBA simple

1 réponse

Discussions similaires