remplacer données feuille A per donnes feuille B

Bonsoir Valefe

Selon le vieil adage énonçant qu'un petit schéma vaut mieux qu'un long discours, il serait souhaitable que tu nous délivres un extrait explicite de ton projet.

Cordialement

CBernardT

voici a quoi ca ressemble
sur la feuille A j'ai ca

A ... ... ... G

1 xxx xxx xxx xxx 0615489745

2 xxx xxx xxx xxx 0610141519

3 xxx xxx xxx xxx 0694959697

.....
.....

et sur la feuille B j'ai ca
A B
1 Mme Gerard 0694959697
2 Mr Martin 0610141519
3 Mr Dupont 0615489745


en fait je cherche a remplacer dans la colonne G de la feuille A
les n° de telephone par les noms correspondants ( colonne A de la
feuille B)

Salut
essaye d'utiliser la fonction vlookup: tu as des valeurs communes dans chacunes des feuilles (numéro de téléphone)

Bonjour Valefe

Je pense que cette procédure derait réaliser le remplacement des N° par les Noms des personnes appelées.

Sub Remplacer()
Dim Tbl As Range
Dim MyRange As Range
Dim MyPlage As Range
Dim C As Range, Cbis As Range
'Copie des N° des appelés
Worksheets("A").Range("F2:F20").Copy Worksheets("A").Range("D2")
'Déclaration de variable de la feuille à traiter et du tableau de récapitulation
Set MyRange = Range(Sheets("A").Range("D2"), Sheets("A").Range("D100").End(xlUp))
Set MyPlage = Range(Worksheets("B").Range("C2"), Worksheets("B").Range("C100").End(xlUp))
' Boucle sur les N° de la feuille "A"
For Each C In MyRange
C.Select
'Boucle sur les N° de la feuille "B"
For Each Cbis In MyPlage
If Cbis = C Then ' Recherche du N° équivalent
C = Cbis.Offset(0, -1) ' Remplacement du N° par le Nom
Exit For
End If
Next Cbis
Next C
End Sub

Cordialement

CBernardT

Re

Deux choses :

J'ai limité à 100 lignes pour mon essai, mais la plage peu -être allongé jusqu'à 65536 je crois.

Enlever la ligne de code :

C.Select


qui ne sert qu'à vérifier soit la macro :

Sub Remplacer()
Dim Tbl As Range
Dim MyRange As Range
Dim MyPlage As Range
Dim C As Range, Cbis As Range
'Copie des N° des appelés
Worksheets("A").Range("F2:F20").Copy Worksheets("A").Range("D2")
'Déclaration de variable de la feuille à traiter et du tableau de récapitulation
Set MyRange = Range(Sheets("A").Range("D2"), Sheets("A").Range("D65536").End(xlUp))
Set MyPlage = Range(Worksheets("B").Range("C2"), Worksheets("B").Range("C65536").End(xlUp))
' Boucle sur les N° de la feuille "A"
For Each C In MyRange
'Boucle sur les N° de la feuille "B"
For Each Cbis In MyPlage
If Cbis = C Then ' Recherche du N° équivalent
C = Cbis.Offset(0, -1) ' Remplacement du N° par le Nom
Exit For
End If
Next Cbis
Next C
End Sub

Salut

CBernardT

j'avais pas eu le temps avant
mais je le fais maintenant
un tres tres grand MERCI pour ton aide


je l'ai un peu arrangée a ma sauce et ca marche.........