Bonjour,
J'ai utilisé un des codes fournis dans ce sujet (le deuxième proposé) : https://www.excel-downloads.com/thr...de-cellules-jusqua-une-cellule-pleine.119094/
J'en profite pour remercier au passage la personne qui l'a créé.
Mon problème : le code adapté fonctionne, mais j'essaye maintenant de le compléter avec une formule pour effectuer une division toute simple entre deux cellules, mais la ligne de code (entre les flèches) que je rajoute provoque l'erreur d'exécution n°13, et malgré ma persévérance je ne parviens pas à trouver une solution.
Je m'en remets donc à vous, âmes charitables, en espérant que vous puissiez avoir pitié d'un nul sur VBA et l'aider.
Par avance, merci.
J'ai utilisé un des codes fournis dans ce sujet (le deuxième proposé) : https://www.excel-downloads.com/thr...de-cellules-jusqua-une-cellule-pleine.119094/
J'en profite pour remercier au passage la personne qui l'a créé.
Mon problème : le code adapté fonctionne, mais j'essaye maintenant de le compléter avec une formule pour effectuer une division toute simple entre deux cellules, mais la ligne de code (entre les flèches) que je rajoute provoque l'erreur d'exécution n°13, et malgré ma persévérance je ne parviens pas à trouver une solution.
Code:
Sub LignesVide()
Dim DernièreLigne As Long
Dim NbLigneVide As Long
DernièreLigne = [A65536].End(xlUp).Row
For i = 2 To DernièreLigne
If Range("V" & i) <> "" Then
If Range("V" & i - 1) <> "" Then
Range("AK" & i) = ""
Else
NbLigneVide = i - Range("V" & i).End(xlUp).Row - 1
Range("AK" & i) = NbLigneVide
=====> Range("AI" & i) = (Range("W" & i) / Range("AK" & i)) * 0.01 <=====
End If
End If
Next i
End Sub
Je m'en remets donc à vous, âmes charitables, en espérant que vous puissiez avoir pitié d'un nul sur VBA et l'aider.
Par avance, merci.