copie ne se faisant pas

[JBL8]

Bonjour,
J'ai fait une macro pour copier des N° de la feuille 2 dans la colonne B de la feuille 1 sans que cela marche !
Merci !

 

[Dranreb]

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

 

[JBL8]

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 !

 

[Dranreb]

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

=SUPPRESPACE(A1)

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

 

[JBL8]

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 !
@+

 

[Dranreb]

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

 

[Dranreb]

Essayez comme ça :

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

 

[JBL8]

Re,
j'ai cette erreur ici :

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

 

[Dranreb]

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.

 

[JBL8]

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

 

[Dranreb]

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.

 

[Dranreb]

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

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

 

[JBL8]

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

 

[JBL8]

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

 

[JBL8]

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

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 !