copie ne se faisant pas

Dranreb

XLDnaute Barbatruc

• 9 Avril 2018

• #2

Bonsoir.
Classique. Aucune valeur ne correspond parce qu'il y a un espace en plus derrière dans les cellules de la Feuil2.

 

Vote positif 0 Vote négatif

J

JBL8

Guest

• 9 Avril 2018

• #3

Bonsoir Dranreb
OK mais comment y remédier car j'ai beaucoup de lignes à transmettre et je ne peux le faire manuellement !
Merci à l'avance !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Avril 2018

• #4

En D1, à propager sur le nombre de lignes qu'il faut :

Code:

=SUPPRESPACE(A1)

Ensuite copier la colonne D, sélectionner la colonne A, Collage spécial par valeurs.

 

Vote positif 0 Vote négatif

J

JBL8

Guest

• 9 Avril 2018

• #5

Re,
J'ai fait ce que tu a dis mais quand je lance ma macro, Le texte n'est pas reconnu et donc rien ne se passe!
A signaler que le texte de la feuille 2 provient d'un copier coller d'un site internet !
@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Avril 2018

• #6

Chez moi ça a marché. Ne l'auriez vous pas fait sur la mauvaise feuille ?

 

Dernière édition: 9 Avril 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Avril 2018

• #7

Essayez comme ça :

VB:

Sub TEST()
Dim Rng1 As Range, Rng2 As Range
Set Rng1 = Intersect(Feuil1.Columns(2), Feuil1.UsedRange)
Set Rng2 = Feuil2.UsedRange: Set Rng2 = Rng2.Columns(Rng2.Columns.Count + 1)
Rng2.FormulaR1C1 = "=TRIM(RC1)"
Rng1.FormulaR1C1 = "=INDEX(Feuil2!R1C2:R" & Rng2.Rows.Count & "C2,MATCH(RC1," _
      & Rng2.Address(True, True, xlR1C1, True) & ",0))"
Rng1.Value = Rng1.Value
Rng2.EntireColumn.Delete
End Sub

 

Vote positif 0 Vote négatif

J

JBL8

Guest

• 9 Avril 2018

• #8

Re,
j'ai cette erreur ici :

Code:

Rng1.FormulaR1C1 = "=INDEX(Feuil2!R1C2:R" & Rng2.Rows.Count & "C2,MATCH(RC1," _
      & Rng2.Address(True, True, xlR1C1, True) & ",0))"[ATTACH=full]1010051[/ATTACH]

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Avril 2018

• #9

Les noms des objets Worksheet qui assument auprès de VBA la représentation des entités de l'application hôte que sont les feuilles Excel ayant pour onglets "Feuil1" et "Feuil2" s'appellent-ils toujours Feuil1 et Feuil2 comme dans le classeur joint ? À vérifier dans la rubrique Microsoft Excel Objets de l'explorateur de projet, et changer s'il y a lieu.

 

Dernière édition: 9 Avril 2018

Vote positif 0 Vote négatif

J

JBL8

Guest

• 9 Avril 2018

• #10

Re,
Pas compris ce que tu veux dire !
merci !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Avril 2018

• #11

Je veux dire que dans le classeur joint Feuil1 et Feuil2 étaient des expressions Worksheet définies.
Est-ce toujours le cas dans le classeur où tu as essayé ?

Remarque ça aurait dû planter plus haut si ce n'était pas le cas.
Est-ce qu'il n'y aurait plus rien dans la colonne 2 de Feuil1 ?
Mets un espion sur Rng1 pour vérifier s'il n'est pas Nothing.

 

Dernière édition: 10 Avril 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Avril 2018

• #12

Ah ben oui, il n'y a sans doute plus rien.
Ajoute .EntireRow derrière UsedRange

VB:

Set Rng1 = Intersect(Feuil1.Columns(2), Feuil1.UsedRange.EntireRow)

 

Vote positif 0 Vote négatif

J

JBL8

Guest

• 10 Avril 2018

• #13

Bonjour à tous, Dranreb,
Chapeau ta macro !
OK, elle fonctionne maintenant et le probléme et réglé!
Merci à l'avance et bonne journée !

 

Vote positif 0 Vote négatif

J

JBL8

Guest

• 10 Avril 2018

• #14

Re,
Désolé, mais s'il y a 8 colonnes (B à I) à copier comment modifier ta macro que je ne comprend pas !
Merci !

 

Vote positif 0 Vote négatif

J

JBL8

Guest

• 10 Avril 2018

• #15

Bonjour, bonjour Dranreb,
Grace à toi j'ai compris comment faire ma macro pour plusieurs lignes !

Code:

Sub TEST()
Dim i As Long, j As Long, k As Long, A As Long
A = 1
With Sheets("Feuil2")
For i = 1 To 3 Step 2
.Cells(i, 10).FormulaR1C1 = "=TRIM(RC1)"
For j = 1 To 2
  j = A
If .Cells(i, 10) = Sheets("Feuil1").Cells(j, 1) Then
  For k = 2 To 9
.Cells(i, k).Copy Sheets("Feuil1").Cells(j, k)
  Next k
  Exit For
  Else
  A = A + 1
  End If
Next j
Next i
End With
End Sub

Merci beaucoup et bonne journée !

 

Pièces jointes

• report_numeros.xls

  59.5 KB · Affichages: 27

Vote positif 0 Vote négatif