Calcul VBA simple

Résolu/Fermé

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 2 juil. 2015 à 09:45
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 2 juil. 2015 à 09:59

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.

A voir également:

Calcul VBA simple
Calcul moyenne excel - Guide
Iphone 14 simple - Guide
Logiciel calcul plancher bois gratuit - Télécharger - Architecture & Déco
Formule de calcul excel - Guide
Logiciel gratuit calcul surface m2 - Télécharger - Outils professionnels

1 réponse

Réponse 1 / 1

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 2/07/2015 à 09:59

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.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

exo pix

EXCEL - Calcul automatique de Fin de contrat et période d'essai

VBA : Range avec références variables..

Discussions similaires

Newsletters