Bonjour, je suis niveau debutant en VBA, et j'essayer de transposer sur une nouvelle page la valeur des lignes de mon tableau dont la colonne C est non vide. Seul probleme mes valeurs ne sont affichés que pendant la boucle FOR est donc ne restent pas sur la nouvelle page. qui pourrait me donner un coup de main ?
Un grand merci par avance
Sub TRANSPOSE()
Sheets("aa").Select
For i = 1 To 30
If Cells(i + 1, 3) <> "" Then
Rows(i).Select
Selection.Copy
Sheets("bb").Select
Rows(i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, TRANSPOSE:=False
End If
Next
End Sub
Un grand merci par avance
Sub TRANSPOSE()
Sheets("aa").Select
For i = 1 To 30
If Cells(i + 1, 3) <> "" Then
Rows(i).Select
Selection.Copy
Sheets("bb").Select
Rows(i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, TRANSPOSE:=False
End If
Next
End Sub