collage spéciale avec une macro

  • Initiateur de la discussion Initiateur de la discussion alfonso
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

alfonso

Guest
bonjour j'ai fait une macro qui me copie des cellules d'un fichier vers un autre fichier mais le probleme c'est qu'il doit me coller uniquement la valeur pas les formules

voila la macro

For ligne = 13 To 20
For colonne = 22 To 24
If Cells(ligne, colonne).Value > 0 Then Cells(ligne, colonne).Select

Selection.Copy
Windows("essai2.xls").Activate
Cells(ligne, colonne).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues
Next colonne
Next ligne

probleme j'ai une erreur a la ligne Selection.PasteSpecial Paste ....
car les cellule fusionné doit etre de taille identique

pouvez vous m'aidez ??
 
Re : collage spéciale avec une macro

Re

je n'avais pas vu ton post de 8h04, je pense qu'il y a un problème avec le nom du classeur ou le nom de la feuille, le code transmis dans mon fichier joint à 7h22 était le suivant :

Code:
Sub Macro12()
For ligne = 13 To 20
    For colonne = 22 To 24
        With Workbooks("fichiers1.xls").Sheets("Stator")
        If .Cells(ligne, colonne).Value > 0 Then
            .Range(.Cells(ligne, 4), .Cells(ligne, 24)).Copy
            With Workbooks("essai2.xls").Sheets("Feuil1").Range("D" & ligne)
                .PasteSpecial Paste:=xlValues
            End With
        End If
        End With
    Next colonne
Next ligne
End Sub

il respectait les noms des classeurs et feuilles dans tes fichiers.

chez moi cette macro fonctionnait parfaitement.

@+
 
Re : collage spéciale avec une macro

Re,

Dans ce cas, il faut refaire une partie du code, ne plus passer par un copier / collage spéciale, mais rajouter une boucle sur les cellules de la ligne, en faisant un test sur chacune des cellules, enfin si j'ai bien compris.

@+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
780
Réponses
10
Affichages
791
Réponses
2
Affichages
466
Retour