éviter qu'une macro remonte des valeurs à 0 [résolu]

[tben08]

Bonjour,

Dans mon fichier j'ai une macro qui va me créer un tableau avec en colonne A les numéros de société qui sont en colonne, en colonne B les numéros de compte qui sont en lignes et et colonne C les valeurs dans le tableau. Ma macro fonctionne correctement sauf qu'elle me remonte les valeurs à zéro et je ne souhaiterais pas que la macro les remonte, est-ce possible?

voici la macro :

Sub For_X_to_Next_Colonne()
    firstline = 7
    lastline = 27
    accountcol = 5
    testligne = 1
    testcolonne = 1
    testmontant = 1
    'Boucle société
    
    i = 8
    Sheets("Feuil1").Select
    
    Do While (Cells(5, i).Value <> "")
       
        j = firstline
        
        Do While (j <= lastline)
        company = Cells(5, i).Value
        compte = Cells(j, 4).Value
        If montant = 0 Then
        Loop
        montant = Cells(j, i).Value
        Sheets("Feuil3").Select
        Cells(testligne, 1).Value = StringFormat("=""{0}""", company)
        testligne = testligne + 1
        Cells(testcolonne, 2).Value = compte
        testcolonne = testcolonne + 1
        Cells(testmontant, 3) = montant
        testmontant = testmontant + 1
        j = j + 1
        
        Sheets("Feuil1").Select
         
        Loop

        i = i + 1
    Loop
End Sub

Merci pour votre aide.

 

[Dranreb]

Re : éviter qu'une macro remonte des valeurs à 0

Oui, si ce compromis vous va, ça a l'air pas mal.
Vous n'avez même plus besoin d'en chercher l'intersection avec la UsedRange :
TE = Feuil4.[D5:fin].Value devrait suffire.