Diviser deux plages en VBA

[Atiom]

Bonsoir le forum

En VBA quelle est la manière la plus simple de diviser deux plages ?

Exemple, je souhaiterait diviser la plage ( J49 :J68) par ( AH49 : AH68) et afficher le résultat en ( AL49 : AL68 ).

Autrement dis, je souhaite deviser la colonne J par AH et Afficher en AL, mais seulement dans les lignes 49 à 68.

Merci pour votre aide.

 

[Caponord38]

Re : Diviser deux plages en VBA

Bonsoir Atiom,
Essaye ceci
Sub division()
For I = 49 To 68
Range("AL" & I).Value = Range("J" & I).Value / Range("AH" & I).Value
Next
End Sub

J'espère que ceci va te convenir
A+
Caponord38

 

[Atiom]

Re : Diviser deux plages en VBA

Bonsoir, Caponord38

Merci.

Ça fonctionne mais seulement si toutes les cellules de la plage contiennent un chiffre.

Le problème est que, mes plages sont dynamiques.

Par fois il y a juste une ligne et par fois les 20 etc.…

Y a-t-il un moyen de contourner le problème ?

 

[Caponord38]

Re : Diviser deux plages en VBA

Bonsoir Atiom,
Essaye ceci ça devrait fonctionner

Sub division()
For I = 49 To 68
If Range("J" & I).Value <> "" AND (Range("AH" & I).Value <> 0 OR Range("AH" & I).Value <> "") Then
Range("AL" & I).Value = Range("J" & I).Value / Range("AH" & I).Value
Else
Range("AL" & I).Value = ""
End If
Next
End Sub

A+
Caponord38

 

[Atiom]

Re : Diviser deux plages en VBA

Bonjour,

Impeccable.
Merci et bonne journée.