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   -
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:

1 réponse

Réponse 1 / 1
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
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.
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses