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.
A voir également:
- Calcul VBA simple
- 14 simple - Guide
- Calcul moyenne excel - Guide
- Simple pdf - Télécharger - PDF
- Calcul km marche à pied gratuit - Télécharger - Sport
- Simple ocr - Télécharger - Bureautique
1 réponse
Erreur d'inattention de ma part.
Le bon code est :
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.
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.