Calcul VBA simple
Résolu
Kuartz
Messages postés
852
Date d'inscription
Statut
Membre
Dernière intervention
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Quelqu'un aurait-il une idée sur pourquoi ce code ne marche pas?
Sachant que la formule =SI(A13="FRANCE";K13/1.20;"") en S13 marche parfaitement.
Merci d'avance.
Cordialement.
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.
1 réponse
-
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.
