besion d'aide pour acheve une boucle for

[dsweb]

bonjour
je suis pas tres fort en vba excel mais j'ai besion de termine ce travail svp
vous trouverez ci-joint le fichier avec le probleme avant le traitement et apres le traitement j'attend vos reponse et merci
nb : que j'ai essai d'utiliser la boucle for mais sans succès

 

[piga25]

Re : besion d'aide pour acheve une boucle for

Bonsoir dsweb

Aucun macro dans le fichier joint.
Pour que la macro soit prise en compte dans le fichier il faut enregistrer avec l'extension .xlsm (prenant en charge les macros)

 

[Fred0o]

Re : besion d'aide pour acheve une boucle for

Bonsoir dsweb et bienvenue sur le forum.

Ce code fonctionne sur ton exemple, il est à adapter à tes données réelles.

Public i, j, Lig

Sub Essai()
    Lig = 3
    For i = 3 To [A65536].End(xlUp).Row
        For j = Cells(i, 2) To Cells(i, 3)
            Cells(Lig, 5) = Cells(i, 1)
            Cells(Lig, 6) = j
            Lig = Lig + 1
        Next
    Next
End Sub

A+

 

[dsweb]

Re : besion d'aide pour acheve une boucle for

je crois que le code sera un peu pres comme ca

dim i as integer
dim b as long
dim c as long
dim f as long

b= range("B")
c=range("C")
f=range("f")

for i = a to c
f = a+1
next i

 

[dsweb]

Re : besion d'aide pour acheve une boucle for

merci beaucoup Fred0o c'est ca le code que je recherche
et merci pour le forum