Problème boucle for

re,

Si tu ne veux voir qu'une fois PC ACCUEIL, XP PRO, PC Accueil sur la feuille Données, pourquoi fais-tu varier J de 2 à 1000 ?

En gros tu dois rapatrier en feuille Donnees, les cellules E26, D10 et E34 venant des feuilles 14 à la dernière de ton classeur ?

A te relire

re,

Oui c'est ca, je le fais que pour une feuille pour tester, mais en fait je dois en avoir dans les 130, sachant que ca peut toujours augmenter ou diminuer.

re,

Hum... ton pb était pas trop bien expliqué au début là...

Essaie ce code

Amicalement

Edit :

Sub BtnDon_Clic()
'Macro Dan
Dim i As Byte
Dim j As Integer
If Sheets.Count >= 13 Then
    For i = 13 To Sheets.Count
    With Sheets(13)
        For j = 2 To .Range("A65536").End(xlUp).Row + 1
            .Cells(j, 1) = Sheets(i).Range("E26")
            .Cells(j, 2) = Sheets(i).Range("D10")
            .Cells(j, 3) = Sheets(i).Range("E34")
        Next j
    End With
    Next i
End If
End Sub

Amicalement

Re,

Alors j'ai testé est avec plusieurs feuilles ca remplace les données de la première ligne par celles de la secondes tout en écrivant la seconde.

Kris

re,

Ah oui bien sûr. comme ton fichier n'avait que trois feuilles. J'aurais dû aller plus loin.

essaie comme ceci

Sub BtnDon_Clic()
'Macro Dan
Dim i As Byte
Dim Lg as integer
If Sheets.Count >= 13 Then
    For i = 13 To Sheets.Count
        With Sheets(2)
        lg = .Range("A65536").End(xlUp).Row + 1
            .Cells(lg, 1) = Sheets(i).Range("A1")
            .Cells(lg, 2) = Sheets(i).Range("B2")
            .Cells(lg, 3) = Sheets(i).Range("A6")
        End With
    Next i
End If
End Sub

A te relire

Re,

Ahhhhh ca marche come je le souhaite!!!

Un grand merci à toi!

Kris