Discussion :

[Lubberla]

Bonjour je cherche à copier à la suite des données sur une ligne donc à chaque fois à la première cellule vide d'une ligne.

Voici le code que j'ai essayé de faire mais rien ne ce passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CodeAna()
Dim i As Long, derniereligne As Long
With ThisWorkbook
derniereligne = .ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derniereligne
If .ActiveSheet.Range("P" & i) = .ActiveSheet.Range("P" & i + 1) Then
    .Worksheets("Feuil2").Cells(4, Columns.Count).End(xlToLeft).Value = .ActiveSheet.Range("S" & i).Value
Else
Exit For
End If
Next
End With
End Sub

[halaster08]

Bonjour:

essaye comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CodeAna()
Dim i As Long, derniereligne As Long
With ThisWorkbook
derniereligne = .ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derniereligne
If .ActiveSheet.Range("P" & i) = .ActiveSheet.Range("P" & i + 1) Then
    .Worksheets("Feuil2").Cells(4, Columns.Count).End(xlToLeft).offset(0,1).Value = .ActiveSheet.Range("S" & i).Value
Else
Exit For
End If
Next
End With
End Sub

Cells(4, Columns.Count).End(xlToLeft) renvoie toujours sur la même cellule tu écrase donc ta valeur a chaque itération, il faut donc décaler d'une colonne a chaque fois (d'où le offset)

[Nagel Tha]

Bonjour,

Cette question a été posée de nombreuses fois il me semble.

Pour ce problème je raisonnerais uniquement en termes de lignes en définissant juste la dernière ligne cela me paraît encore plus simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim DerniereLigne, NombreCopies As Integer
...
For i = 1 To NombreCopies
DerniereLigne = ActiveSheet.UsedRange.Rows.Count + 1 'évalué à chaque itération
'CODE DE COPIE ICI
Next

note : ThisWorkbook ne fonctionnera pas si tu veux exécuter ta macro dans un autre classeur

ThisWorkbook -> classeur de la macro
ActiveWorkbook -> classeur actif