besion d'aide pour acheve une boucle for

piga25

XLDnaute Barbatruc

• 5 Décembre 2011

• #2

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)

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 5 Décembre 2011

• #3

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.

VB:

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+

 

Vote positif 0 Vote négatif

D

dsweb

Guest

• 5 Décembre 2011

• #4

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

 

Vote positif 0 Vote négatif

D

dsweb

Guest

• 5 Décembre 2011

• #5

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

 

Vote positif 0 Vote négatif