Discussion :

[dandy87]

Bonsoir à tous,

Besoin de votre aide svp

je souhaite copier les cellules d'une feuille de A14 a A24 dans une autre feuille a partir de la cellul B6. mon code est pret simplement lors de la copie la mise en forme de A14 a A24 est reproduite. pouvez vous m'aider a faire le copier-coller sans la mise en forme. de plus je voudrais écarter les cellule vide lors de la copie

ps: dans l'aide windows il est mentionné dans pastespecial une variante ignorervides mais je n'arrive pas a mettre en place.

Merci d'avance

[mercatog]

Sans passer par le copier/ colage spécial (adapte les noms des feuilles

Code :

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

sheets("Feuil2").range("B6:B16").value=sheets("Feuil1").range("A14:A24").value

[pgz]

Bonsoir.

Si tu veux copier seulement des valeurs, tu peux faire

Code :

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

ThisWorkbook.Worksheets("Feuil2").Range("B6:B16").Values = ThisWorkbook.Worksheets("Feuil1").Range("A14:A24").Values

Avec le nom de tes feuilles, bien sûr!

Cordialement,

PGZ

[dandy87]

Bonsoir

le code que vous m'avez donné bloque.

voici ce que ça donne chez moi.

Code :

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

 Sheets("facture").Range("A14:A24").Value = Sheets("detail factures").Range("B" & Range("B65500").End(xlUp).Row + 1).Value

[mercatog]

Les 2 ranges doivent avoir les mêmes dimensions

Edit: je viens de relire ton PS

si ta plage A14:A24 ne comporte pas de formules, essaies ceci

Code :

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

1
2
3
Sheets("Feuil1").Range("A14:A24").SpecialCells(xlCellTypeConstants).Copy
Sheets("Feuil2").Range("B6").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

[dandy87]

La plage ne comporte pas de formules mais il y'a une erreur avec la ligne de copie

L'erreur était due au fait que la plage de cellule n'etait pas renseignée.

autre question svp, si mes cellules contiennent des valeurs monétaire (xltypeconstants) devra être remplacé par quoi?

Merci d'avance

[mercatog]

Code :

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

1
2
3
Sheets("Feuil1").Range("A14:A24").SpecialCells(xlCellTypeConstants).Copy
Sheets("Feuil2").Range("B6").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False

Fais F1 sur SpecialCells, tu verras l'explication de ses paramètres

[dandy87]

Sauf que je souhaite selectionner uniquement les valeurs monétaires et non pas les éventuels textes qui pourrait etre présent dans la meme colonne

[mercatog]

As tu fais F1?

Code :

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

1
2
3
4
5
On Error GoTo Erreur:
Sheets("Feuil1").Range("A14:A24").SpecialCells(xlCellTypeConstants, xlNumbers).Copy
Sheets("Feuil2").Range("B6").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Erreur:

[dandy87]

Oui j'ai fait F1, j'ai repris aussi ce script mais il ne marche pas

[fring]

Bonjour,

Si tu téléphones à ton garagiste en lui disant "ma voiture marche pas" je doute fort qu'il puisse te diagnostiquer la panne...
Il faut être plus explicite, qu'est ce qui ne fonctionne pas dans le code et quel est le message d'erreur s'il y a un ?

[dandy87]

eh bien mon code ne copie tout simplement pas les valeurs au format monétaire que je voulais.

Merci pour l'aide

[fring]

Copie des valeurs monétaires en Euro, sans la mise en forme

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim i As Byte
 
For i = 14 To 24
    If Right(Sheets(1).Cells(i, 1).Text, 1) = "€" Then '<-- format monétaire Euro
        Sheets(2).Cells(i - 8, 2) = Sheets(1).Cells(i, 1)
    End If
Next
End Sub