Discussion :

[syl-thom]

Bonjour forum,
Je voudrais copier/colle des données
Mais je rencontre un problème

Si je mets la commande

Code :

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

1
2
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Je me retrouve avec une erreur, en cherchant un peu j'ai découvert que je ne copie pas tout, du coup j'ai le choix seulement entre texte Unicode, ou texte
Es qu'il existe un cut ou copy(spécial) ?

Je vous remercie par avance

[Philippe Tulliez]

Bonjour,
Quelque chose m'échappe, pourquoi utiliser le PasteSpecial en collant tout ?
Autant utiliser un Copier/Coller classique.

Je me retrouve avec une erreur, en cherchant un peu j'ai découvert que je ne copie pas tout, du coup j'ai le choix seulement entre texte Unicode, ou texte
Es qu'il existe un cut ou copy(spécial) ?

Les données viennent d'où ?

[syl-thom]

bonjour corona, bonjour forum

Les données viennent des feuils Excel généré par ma banque
Il s’agit d'un tableau de 4 colonnes avec des cases incluant un retour a la ligne dans la même cellule

Le copier(ou couper) coller normale ne me copie que la première ligne de chaque cellule
Sans aucune mise en forme du coup quand je recherche les doublons ca ne marche pas, d'ou l'idée du copiage spéciale

Mais comme je l'ai dit précédemment, quand je copier par VBA, cela me donne une erreur due au fait que je n'ai le choix pour coller que entre texte Unicode ou texte
Or je voudrais faire exactement la même action que si je le fais manuellement copier coller (ou là ca me copie l'intégralité du texte (même la partie en deuxième ligne, ainsi que les bordures (du coup ma base de donnés reste propre et la recherche des doublons fonctionnent)
Je vous joins un exemple des données copié :
Il s’agit de 6 lignes exemple sans donner privées et sans code VBA
Qui sont le résultat de la préparation automatisé de l'importation des données (ce qui existera si je trouve comment copier / coller)


Merci encore de votre aide

[gFZT82]

Bonjour,

Code :

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

1
2
3
 
    Sheets("Feuil1").Cells.Copy
    Sheets("Feuil2").Paste

Cordialement.

[syl-thom]

bonjour gFZT82,

le problem c'est que ca ne fontione pas dans mon cas peut etre qu'il a une erreur dans mon code

j'ai bien chercher je ne vois pas d'erreur (aprés je suis debutant ), pouvais vous jeter un coup d'oeil ?

voici la partie du code concerné

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
                         nb_de_nouvelle_donées = WorksheetFunction.CountA(Range("A:A"))
                            Workbooks(classeur_choisi_bis).Sheets(1).Range(Cells(1, 1), Cells(nb_de_nouvelle_donées, 4)).Select
                            Selection.Cut
                            Application.DisplayAlerts = False ' désactivation des alerts programme
                            Workbooks(classeur_choisi_bis).Close False
                            Do Until nb_de_nouvelle_donées = boucle
                            Application.ScreenUpdating = False
                            Rows("1:1").Select
                                Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                                boucle = boucle + 1
                            Loop
                            Application.DisplayAlerts = True 'reactivation des alerts programme
                            Range("A1").Select
                            ActiveSheet.Paste
'"=== bug au collage

je viens de me rendre compte que je ne vous ai pas dis que je change de claseur (cela peut il influer ?)

merci encore

[gFZT82]

Code à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim nb_de_nouvelle_donées As Integer
Dim WbSource As Workbook
Dim WsSource As Worksheet, WsCible As Worksheet
Dim MaPlage As Range
 
    Set WbSource = Workbooks("classeur_choisi_bis.xlsm")
    Set WsCible = ThisWorkbook.Worksheets("Feuil1")
    Set WsSource = WbSource.Worksheets("Feuil1")
    nb_de_nouvelle_donées = Application.CountA(WsSource.Range("A:A"))
    Set MaPlage = WsSource.Range(WsSource.Cells(1, 1), WsSource.Cells(nb_de_nouvelle_donées, 4))
 
    Application.ScreenUpdating = False
    MaPlage.Cut
    WsCible.Rows(1).Insert shift:=xlDown
    Application.ScreenUpdating = True
 
    Application.DisplayAlerts = False
    WbSource.Close False
    Application.DisplayAlerts = True
 
    Set MaPlage = Nothing: Set WsSource = Nothing: Set WsCible = Nothing: Set WbSource = Nothing

Cordialement.