Autres Impossibilité de copier (RESOLU)

[JBARBE]

Bonjour à tous,
Suite à un copier -coller manuel d'un site, ma macro ne peut copier de la feuille 1 vers la feuille 2 les données !
Merci à l'avance !

 

[patricktoulon]

bonjour @dubarre
ben c'est pas étonnant

tu a le mérite d’être le premier a me déclencher le bandeau rouge depuis que j'ai 2013
tu vois le petit icon en forme sot dans un coin de ton bureau ?
ben voila glisse ton fichier vers et dans cet icon

 

[sylvanu]

Bonjour JBarbe, Patricktoulon,
Ca, c'est très classique.
Lors de l'importation dans feuille 1 des espaces se "sont introduits".
Par ex "AIP" est devenu "AIP ", subtil, non ?
Il suffit de rajouter :

Sheets("Feuil1").Cells(j, 1) = Trim(Sheets("Feuil1").Cells(j, 1))

pour supprimer ces espaces. voir PJ;

NB1 : vos collages commencent en colonne 4 au lieu ( à priori ) à la colonne 2. Je n'ai pas modifié.
NB2 : Attention on a "La Dépèche" et "La Dépêche", "Le Télégramme" et "Le Télégramme de Brest" ....
bref, que du classique quand on importe des données.

 

[JBARBE]

Bonjour, sylvanu, patricktoulon,
Merci sylvanu c'est OK ! Merci également pour ces précisions !
patricktoulon pourtant j'ai excel 2007 et le fichier ne pose pas de problèmes !
Bonne soirée !

 

[patricktoulon]

re
excel 2007 n'a pas les protections que 2013 a
il y a une cochonnerie qui ne devrait pas y être dans ton fichier ça c'est sur !!

 

[JBARBE]

re
excel 2007 n'a pas les protections que 2013 a
il y a une cochonnerie qui ne devrait pas y être dans ton fichier ça c'est sur !!

Re,
J'ai comme antivirus Kaspersky internet security et j'utilise mon fichier d'origine depuis 2009 !
quant au fichier mit sur ce forum "trier chevaux" seule les données copier-coller ont été de mon ficher original !
Ma macro elle aussi a été copiée !

Sub Trier_Chevaux()
Dim j As Integer
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Range("A2") = Date + 1
Range("A2") = Range("A2") + 1
Range("plage1").ClearContents
'For j = 1 To 180 Step 3
For j = 1 To 300
If Sheets("Feuil1").Cells(j, 1) <> "" Then
 For i = 6 To 52
 If Sheets("Feuil1").Cells(j, 1) = Sheets("PRESSES").Cells(i, 1) Then
 Sheets("PRESSES").Cells(i, 4) = Sheets("Feuil1").Cells(j, 2)
 Sheets("PRESSES").Cells(i, 5) = Sheets("Feuil1").Cells(j, 3)
 Sheets("PRESSES").Cells(i, 6) = Sheets("Feuil1").Cells(j, 4)
 Sheets("PRESSES").Cells(i, 7) = Sheets("Feuil1").Cells(j, 5)
 Sheets("PRESSES").Cells(i, 8) = Sheets("Feuil1").Cells(j, 6)
 Sheets("PRESSES").Cells(i, 9) = Sheets("Feuil1").Cells(j, 7)
 Sheets("PRESSES").Cells(i, 10) = Sheets("Feuil1").Cells(j, 8)
 Sheets("PRESSES").Cells(i, 11) = Sheets("Feuil1").Cells(j, 9)
 Exit For
 End If
 Next i
 End If
Next j
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Celle de sylvanu qui marche :

Sub Trier_Chevaux_BON()
Dim j As Integer
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("A2") = Range("A2") + 1
Range("plage1").ClearContents
For j = 1 To 300
Sheets("Feuil1").Cells(j, 1) = Trim(Sheets("Feuil1").Cells(j, 1))
If Sheets("Feuil1").Cells(j, 1) <> "" Then
 For i = 6 To 52
 If Sheets("Feuil1").Cells(j, 1) = Sheets("PRESSES").Cells(i, 1) Then
 Sheets("PRESSES").Cells(i, 4) = Sheets("Feuil1").Cells(j, 2)
 Sheets("PRESSES").Cells(i, 5) = Sheets("Feuil1").Cells(j, 3)
 Sheets("PRESSES").Cells(i, 6) = Sheets("Feuil1").Cells(j, 4)
 Sheets("PRESSES").Cells(i, 7) = Sheets("Feuil1").Cells(j, 5)
 Sheets("PRESSES").Cells(i, 8) = Sheets("Feuil1").Cells(j, 6)
 Sheets("PRESSES").Cells(i, 9) = Sheets("Feuil1").Cells(j, 7)
 Sheets("PRESSES").Cells(i, 10) = Sheets("Feuil1").Cells(j, 8)
 Sheets("PRESSES").Cells(i, 11) = Sheets("Feuil1").Cells(j, 9)
 Exit For
 End If
 Next i
 End If
Next j
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Et rien d'autre !
Où est le probléme !

 

[sylvanu]

Bonsoir JBarbe, Patricktoulon,
Quand on copie colle des données d'un site vers XL, généralement on colle aussi des caractères "parasites", comme le fameux CHR(160).
Ca ne pose pas de problème mais il semble qu'au delà de XL2007, XL regarde aussi les caractères qui lui semble bizarres, par sécurité.
Ce n'est pas un problème, juste une alerte de sécurité.

 

[JBARBE]

Bonsoir JBarbe, Patricktoulon,
Quand on copie colle des données d'un site vers XL, généralement on colle aussi des caractères "parasites", comme le fameux CHR(160).
Ca ne pose pas de problème mais il semble qu'au delà de XL2007, XL regarde aussi les caractères qui lui semble bizarres, par sécurité.
Ce n'est pas un problème, juste une alerte de sécurité.

Re,
Une excellente info sylvanu ! Bravo et merci !
A force de mettre de forte sécurité sur les logiciels récents ont finira par ne plus pouvoir s'en servir !
De toute façon les hakers sont plus malin que ces consepteurs de logiciels !
Lamentable !
Bonne soirée à tous !