psychofred0
XLDnaute Nouveau
Bonjour,
Je me permets de vous solliciter car je rencontre une problématique que je ne suis pas en mesure d'expliquer.
Ci-dessous le code qui pose problème :
Le code fonctionne très bien, mais certaines lignes sont zappées sans raison
J'ai ajouté un compteur sur chaque boucle, et j'ai toujours le même résultats : 7 lignes et/ou cellules sont zappées du traitement (sur l'exemple que j'utilise)
Je ne sais pas pourquoi, ni comment résoudre cette problématique... 😡😡😡
L'un d'entre vous aurait-il une idée ?
En vous remerciant par avance,
Je me permets de vous solliciter car je rencontre une problématique que je ne suis pas en mesure d'expliquer.
Ci-dessous le code qui pose problème :
Code:
'Supprimer les lignes lorsque la donnée "Appels pris" est = 0
vNbLignesAPP = Range("C8").CurrentRegion.Rows.Count
vComptAPP = 0
For vNumLigneAPP = 8 To vNbLignesAPP Step 1
If Range("C" & vNumLigneAPP).Value = 0 Then Rows(vNumLigneAPP).Delete
vComptAPP = vComptAPP + 1
Next vNumLigneAPP
MsgBox Prompt:=vComptAPP & "/" & vNbLignesAPP
'Corriger les cellules contenant une valeur en temps au mauvais format
'Boucle pour la DTC en colonne E
vNbLignesDTC = Range("F8").CurrentRegion.Rows.Count
vComptDTC = 0
For vNumLigneDTC = 8 To vNbLignesDTC Step 1
If Left(Range("F" & vNumLigneDTC).Value, 1) = ":" Then Range("F" & vNumLigneDTC).Value = "00" & Range("F" & vNumLigneDTC).Value
vComptDTC = vComptDTC + 1
Next vNumLigneDTC
MsgBox Prompt:=vComptDTC & "/" & vNbLignesDTC
'Boucle pour la DTT en colonne F
vNbLignesDTT = Range("G8").CurrentRegion.Rows.Count
vComptDTC = 0
For vNumLigneDTT = 8 To vNbLignesDTT Step 1
If Left(Range("G" & vNumLigneDTT).Value, 1) = ":" Then Range("G" & vNumLigneDTT).Value = "00" & Range("G" & vNumLigneDTT).Value
vComptDTT = vComptDTT + 1
Next vNumLigneDTT
MsgBox Prompt:=vComptDTT & "/" & vNbLignesDTT
'Boucle pour la DTG en colonne J
vNbLignesDTG = Range("K8").CurrentRegion.Rows.Count
vComptDTG = 0
For vNumLigneDTG = 8 To vNbLignesDTG Step 1
If Left(Range("K" & vNumLigneDTG).Value, 1) = ":" Then Range("K" & vNumLigneDTG).Value = "00" & Range("K" & vNumLigneDTG).Value
vComptDTG = vComptDTG + 1
Next vNumLigneDTG
MsgBox Prompt:=vComptDTG & "/" & vNbLignesDTG
'Boucle pour la DTCS en colonne O
vNbLignesDTCS = Range("O8").CurrentRegion.Rows.Count
vComptDTCS = 0
For vNumLigneDTCS = 8 To vNbLignesDTC Step 1
If Left(Range("P" & vNumLigneDTCS).Value, 1) = ":" Then Range("P" & vNumLigneDTCS).Value = "00" & Range("P" & vNumLigneDTCS).Value
vComptDTCS = vComptDTCS + 1
Next vNumLigneDTCS
MsgBox Prompt:=vComptDTCS & "/" & vNbLignesDTCSLe code fonctionne très bien, mais certaines lignes sont zappées sans raison
J'ai ajouté un compteur sur chaque boucle, et j'ai toujours le même résultats : 7 lignes et/ou cellules sont zappées du traitement (sur l'exemple que j'utilise)
Je ne sais pas pourquoi, ni comment résoudre cette problématique... 😡😡😡
L'un d'entre vous aurait-il une idée ?
En vous remerciant par avance,