copier coller

[gothc]

merci pour vos reponses

j'ai un petit probleme la macro elle marche bien sauf il me copie les formule dans les cellules je cherche a avoir la valeur
merci a vous pour votre aide

Sub copieréel()

j = 1

For i = 10 To 10
Sheets('Feuil1').Select
Cells(2, i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets('feuil3').Select
line1:
Cells(3, j + 13).Select
If ActiveCell.Value = '' Then
ActiveSheet.Paste

Else
Cells(3, j + 14).Select
j = j + 1
GoTo line1
End If
Next i
End Sub

 

[marco57]

Bonsoir Gothc et le Forum

Remplace donc ton :
ActiveSheets.Paste
par:
ActiveSheets.PasteSpecial Paste:=xlValues

Bonne programmation

Marco

 

[gothc]

merci marco57 pour ton aide


petit probléme il me fait un code erreur

 

[marco57]

Il ne faut ni espace, ni caractère spéciaux dans ton nom de fichier.
Ton fichier doit être zippé.

A+

Marco

 

[gothc]

jr tenv le fichier j

merci bonne soirée a toi [file name=gothc_V2_20050803200559.zip size=15736]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gothc_V2_20050803200559.zip[/file]

 

[SHINTRA]

hello le forum
hello le fil


Essaye avec ca peut etre :

Sub copieréel()
Dim j, i

j = 1

For i = 1 To 10
Sheets('Feuil1').Select
Cells(2, i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets('feuil3').Select
line1:
Cells(3, j + 13).Select
If ActiveCell.Value = '' Then
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False


Else
Cells(3, j + 14).Select
j = j + 1
GoTo line1
End If
Next i
End Sub

voila
j espere que ca va marcher


@+
shintra

 

[SHINTRA]

hello le forum
hello le fil


Essaye avec ca peut etre :

Sub copieréel()
Dim j, i

j = 1

For i = 1 To 10
Sheets('Feuil1').Select
Cells(2, i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets('feuil3').Select
line1:
Cells(3, j + 13).Select
If ActiveCell.Value = '' Then
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False


Else
Cells(3, j + 14).Select
j = j + 1
GoTo line1
End If
Next i
End Sub

voila
j espere que ca va marcher


@+
shintra

 

[marco57]

ReBonsoir Gothc, Bonsoir Shintra
Désolé mais je viens de voir que tu as eu une réponse.Je te joins quand même ton fichier avec la macro modifiée.
Bonne soirée à tous

Marco [file name=gothc_V2_Marco.zip size=15508]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gothc_V2_Marco.zip[/file]

 

[gothc]

merci a vous

bonne soirée

bis