[EXCEL] Transfert de données entre 2 tableaux

Question

Bonjour,

J'ai besoind 'une petite aide dans le cadre d'une tache que je dois effectuer sous EXCEL.
J'ai un tableau excel avec une liste d'adresse dans la quelle je dois ajouter des infos (trouver les syndic , etc).

Pour ce faire , j'ai divisé le tableau en 8 et je l'ai transmis aux 8 personnes employées pour prospecter.

Tous les jours je dois recopier les informations trouvées dans les 8 tableaux dans le récap d'origine et le renvoyer au client.

Sachant qu'il y a pour chaque adresse une colonne qui correspond a un identifiant unique, y aurait il un moyen de mettre en place un systeme permettant a excel d'extraire dans chaque sous-tableau les adresse et de les recopier dans le récapitulatif suivant le numero d'identification unique ?


Cordialement,

Anthony NOEL
hotline SOGETREL

guy2mars · Accepted Answer

tu peux lire les identifiants, les stocker dans x variables ou 1 seule a gerer au fur et a mesure, mettre la condition dans la boucle
 ident = Range("x" & i).value
if ident=ident_1 then
else next i

tu peux aussi creer une variable colonne  et affecter cette variable au correspondant unique
par ex toto, titi, tata sont tes correspondant
tu dois copier toto en colonne F, tata en H et ttiti en W
if ident = "titi " then col = "F"
ou par select case
select case ident
 case "titi"
col="W"
case "toto"
case else si tu veux
end select
et tu selectionnes ta cellule de copie sous le format 
 Range(col & i).Select

ca devrait marcher.
sinon envoies moi un exemple du fichier type avec les cellules a copier et ou ! ca doit etre assez facile a concevoir cette syntaxe
@+

eriiic · Answer

Bonjour,

Déjà il faut regrouper tes 8 feuilles de réponses en 1.
Ensuite tu peux utiliser la formule
=RECHERCHEV(valeur_cherchée;table_matrice;no_index_col;valeur_proche)

avec valeur_cherchée = identifiant sur ta feuille à remplir
table_matrice = toute ta zone (en absolu!  Ex $A$1;$F$80) des réponses avec en 1ère colonne l'identifiant
no_index_col = le n° de colonne de table_matrice ou se trouve l'info (en sachant que l'identifiant est colonne1)
valeur_proche = 0

Tu recopies vers la droite et tu changes le n° de colonne désirée
Tu sélectionnes tes formules et tu recopies vers le bas

eric

ANTOHCDTony · Answer

Bonjour,

Je dois t'avouer que je suis un peu largué (aucune formation ni en prog ni en excel , je tripatouille tout au plus).
si je comprend bien , la fonctione recherchev me permettra d'identifier a partir d'un des 2 tableaux la ligne correspondant au meme identifiant sur l'autre tableau.

A partir de ca la copie se fait elle en automatique ?

guy2mars · Answer

salut
tu peux créer une macro dans ce style
@+



Sub transfert()
'
' transfert Macro
' Macro enregistrée le 12/12/2007 par Guy
'

'initialisation de la variable
Dim i As Integer
'cette commande pour ouvrir le fichier a implémenter

    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Ego\Mes documents\cible.xls" 'ceci est le dossier cible
        For i = 1 To 10 '10 etant le nombre de ligne de chaque dossier
    Windows("origine.xls").Activate
    Range("A" & i).Select
    Selection.Copy
    Windows("cible.xls").Activate
    Range("F" & i).Select 'f par hasard et i peut etre i+x ;o)
    ActiveSheet.Paste
    Windows("origine.xls").Activate
    Next i
 'la tu as copié tout ton dossier1
 'si y a plusieurs dossiers ou feuilles ou colonne, tu peux faire soit des call et appeler une autre macro etc...
 'tu peux aussi mettre plusieurs colonnes
   Application.CutCopyMode = False
    Application.Goto Reference:="essai1.xls!transfert"
    ActiveWorkbook.Save
End Sub

ANTOHCDTony · Answer

OK , y m'semble avoir à peu pres compris :)
Par contre cette macro permet basiquement de copier le contenu de mon fichier "origine" vers le fichier "cible", mais prend elle en compte le fait qu'il faudrait que chaque ligne soit copiée a un endroit spécifique du fichier cible défini par l'identifiant unique de chaque ligne ?

eriiic · Answer

recherchev() va chercher dans la 2nde feuille sur quelle ligne se trouve l'identifiant que tu lui donnes et te ramène la valeur de la xième colonne de cette ligne.
Voici un exemple plus parlant : http://www.cijoint.fr/cij111092396034515.xls

eriiic · Answer

le même avec les références absolues là où il faut
http://www.cijoint.fr/cij99277944734508.xls

ANTOHCDTony · Answer

En effet y m'semble que c'est purement l'idée que je recherche , je creuse un peu et je vois ca , en tout cas merci beaucoup d'avance :)

ANTOHCDTony · Answer

Question purement idiote , sur certaines cellules j'ai des noméros de siret qui se retrouvent en format de numero scientifiques ..

Faut il que je me mette en texte brut au niveau de la cellule et cela ne bloquera il pas l'application de la formule ?

ANTOHCDTony · Answer

oubliez ma question purement noobesque j'ai trouvé , en format décimal sans virgule ca passe nickel.

merci  guy2mars et Eriiic pour vos réponses :)

bonne journée a vous :)

ANTOHCDTony · Answer

Juste une derniere question j'ai fait mon extraction qui fontcionne sans probleme , ler soucis est le suivant.

Sur lignes ou le fichier ne trouve pas de correspondance a Ax il fait apparaitre les case en #N/A (ce qui me dérange pas).
Sur les lignes ou le Ax est trouvé mais ou des cellules sont vides, il me met un 0.

Y a t il une option ou un format de cellule qui me permette de laisser ces cellules vierges plutot que de mettre un 0 ?

eriiic · Answer

menu 'outils / options' onglet 'affichage' décocher 'valeur zéro'

Viouu · Answer

Bonjour,

Je suis un collègue de Anto et on s'aperçoit que peut être la piste du VBA serai plus pratique au final pour nous.

Je possède de maigre connaissance en VBA mais je me suis posé la question suivante  :


Comparer les colonnes A de la feuil 1 et feuil 2
x=numeros de ligne
0<x>5000
x peut differé d'une feuille à l'autre
Les colonnes A contiennent des valeur du type "IMB/75103/C/0525"

Si la valeur de cellule Ax dans la feuille 1  et égal à une valeur d'une cellule de la colonne  A dans la feuille 2 et si dans la ligne Ax de la feuille 2  la cellule Fx est rempli  alors les cellules de la feuille 1 Gx,Hx,Ix ...etc sont egal aux cellule de la feuille 2 Ox,Px..etc

Si Fx est pas rempli ne rien faire


Comment peut ton ecrire cela en VBA ?

Merci d'avance.

Viouu

guy2mars · Answer

tu peux aussi creer ton 0 non significatif; format cellule personnalisé 0;"";

eriiic · Answer

En partant de A15 par exemple, si tu veux 5 cellules sur la ligne en partant de la colonne B tu peux utiliser la methode .resize()
ex: 
range("A15").offset(0,1).resize(1,5)
.offset(lig,col) : même ligne décaler d'1 colonne, donc B15.
.resize(nblig,nbcol) : redimensionner la sélection à 1 ligne et 5 colonnes donc B15:F15
eric

guy2mars · Answer

c est assez simple aussi mais le traitement est plus long. il te faut lire chaque cellule de Afeuil1 qui soit <>"" tu compares chaque cellule a A de Feuil2 par do while avec un i=i+1 pour descendre chaque cellule (penses a mettre <>"" sinon tu vas descendre 36000 lignes vides :o)))). si tu trouves tu explores les colonnes que tu veux par le meme systeme puis tu copies ce que tu veux. tu continues la boucle de comparaison en feuil2 puis tu reviens continuer la boucle feuil1. @+

guy2mars · Answer

c est assez simple aussi mais le traitement est plus long. il te faut lire chaque cellule de Afeuil1 qui soit <>"" tu compares chaque cellule a A de Feuil2 par do while avec un i=i+1 pour descendre chaque cellule (penses a mettre <>"" sinon tu vas descendre 36000 lignes vides :o)))). si tu trouves tu explores les colonnes que tu veux par le meme systeme puis tu copies ce que tu veux. tu continues la boucle de comparaison en feuil2 puis tu reviens continuer la boucle feuil1. @+ si tu connais qq un qui s y connait en php j ai un pb je récupère dans une option value un mois. je récupère dans une chekbox une année. je voudrais, a partir de ces 2 données, afficher le choix des semaines comprises dans le mois puis, en partant de la semaine sélectionnée, afficher les jours(dates et jours de la semaine). je pense qu'une fonction est indispensable mais je coince.

Viouu · Answer

POur le moment je suis parti sur cette piste :

Sub toto()
Dim numero As Range 'numero fait reference a une plage de cellule'
Set numero = Range("A2") 'numero prend la valeur de la celulle A2'
If numero = 

End Sub

Alors ma premier question comment je compare ma variable "numero" avec les valeurs des cellules de la colonne A de la feuille 2 ?

Merci d'avance.

viouu

guy2mars · Answer

Sub COMPAR() ' Dim VALEURA As String, i As Integer, x As Integer, valeurB As String i = 1 VALEURA = Range("A" & i).Value 'tu es obligé d initialiser la variable ref Do While VALEURA <> "" VALEURA = Range("A" & i).Value Sheets("Feuil2").Select x = 1 valeurB = Range("A" & x).Value Dim VALEURA As String, i As Integer, x As Integer, valeurB As String i = 1 VALEURA = Range("A" & i).Value Do While VALEURA <> "" VALEURA = Range("A" & i).Value If valeurB <> "" Then Sheets("Feuil2").Select x = 1 valeurB = Range("A" & x).Value Do While VALEURA <> valeurB x = x + 1 valeurB = Range("A" & x).Value Loop 'la tu notes que le x est constant. Tu peux donc explorer la valeur de la cellule Fx If Range("F" & x).Value <> "" Then Range("o" & x).Select Selection.Copy Sheets("Feuil1").Select Range("g" & i).Select ActiveSheet.Paste Sheets("Feuil2").Select Range("p" & x).Select Selection.Copy Sheets("Feuil1").Select Range("h" & i).Select ActiveSheet.Paste End If End If i = i + 1 Loop End Sub

Viouu · Answer

Merci je devrai me debrouiller avec ca, mais pourquoi declarer deux fois les variables ?

De plus il y une erreur de compilation "Do sans boucle" ???

Merci

viouu

guy2mars · Answer

erreur de copier coller
le veritable syntaxe est la dessous
Sub COMPAR()

'
Dim VALEURA As String, i As Integer, x As Integer, valeurB As String
i = 1
VALEURA = Range("A" & i).Value
Do While VALEURA <> ""
VALEURA = Range("A" & i).Value
If valeurB <> "" Then
Sheets("Feuil2").Select
x = 1
valeurB = Range("A" & x).Value
Do While VALEURA <> valeurB
x = x + 1
valeurB = Range("A" & x).Value
Loop
'la tu notes que le x est constant. Tu peux donc explorer la valeur de la cellule Fx
If Range("F" & x).Value <> "" Then
Range("o" & x).Select
Selection.Copy
Sheets("Feuil1").Select
Range("g" & i).Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("p" & x).Select
Selection.Copy
Sheets("Feuil1").Select
Range("h" & i).Select
ActiveSheet.Paste
End If
End If
i = i + 1
Loop
End Sub

voila: l idee est
tu lis la cellule A1 tu cherche fdans A Feuil2 la 1ere correspondance.
tu en trouves 1, tu testes F vide si non vide tu copies, puis tu boucle pour trouver la 2eme occurence etc....
quand tu arrives en fin de liste col A feuil2, tu retournes en feuil1 et tu passes en A2 etccc
@+

Viouu · Answer

Merci j'etait parti la dessus

Sub COMPAR()

'declaration des variables'
Dim VALEURA As String, i As Integer, x As Integer, valeurB As String

'i correspondra au numeros de ligne dans la feuille 1'
i = 2

'continuer tant que i n'est pas egal à 4900'
Do While i <> "4900"

'donner une valeur de départ à VALEURA, valeura=le contenue de A2'
VALEURA = Range("A" & i).Value

'activer la feuille 2'
Sheets("Feuil2").Select

'x correspond au numeros de ligne dans la feuille 2'
x = 2

'donner une valeur de depart a valeurb'
valeurB = Range("A" & x).Value

'comparer valeura et valeurb, tant que faux incrementer x de 1'
Do While VALEURA <> valeurB
x = x + 1
valeurB = Range("A" & x).Value
Loop

'si la cellule Lx = quelque chose alors on copy la ligne'
If Range("L" & x).Value <> "" Then
Range("L" & x).Select
Selection.Copy
Sheets("Feuil1").Select
Range("J" & i).Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("O" & x).Select
Selection.Copy
Sheets("Feuil1").Select
Range("M" & i).Select
ActiveSheet.Paste
End If

'on incremente i de 1'
i = i + 1

'on continue les fonction d'avant jusqu'a ce que i=4900'
Loop

End Sub

Viouu

Viouu · Answer

ce passe rien quand j'execute ton code

Cdlt

Viouu

Viouu · Answer

Bon j'ai trouver le souci en faite il se peut que A feuilA ne trouve pas de correspondace dans Afeuil2

La feuil1 possede 5000 lignes et la feuil2 aussi

Comment faire pour que lors de la boucle suivante qu'il arrete la comparaison a X=5000 et que si il ne trouve pas de comparaison valeur A et valeur B il passe a i=i+1

Do While VALEURA <> valeurB
    x = x + 1
   
    valeurB = Range("A" & x).Value
    
    
    Loop


Viouu

Viouu · Answer

Voila le code final si peut aider du monde

Sub COMPAR()

'declaration des variables'
Dim VALEURA As String, valeurB As String ' string pour chaine de charactére different'
Dim i As Integer, x As Integer, ' Integer pour dire que i et x sont des entier'

'i correspondra au numeros de ligne de depart dans la feuille 1'
i = 2

'continuer tant que i n'est pas egal à 5000 car j'ai 500 pour eviter de boucler à l'infini'
Do While i <> "5003"

'donner une valeur de départ à VALEURA, valeura=le contenue de A2'
VALEURA = Range("A" & i).Value

'activer la feuille 2'
Sheets("Feuil2").Select

'x correspond au numeros de ligne dans la feuille 2'
x = 2

'donner une valeur de depart a valeurb'
valeurB = Range("A" & x).Value

'comparer valeura et valeurb, tant que faux incrementer x de 1'

Do While VALEURA <> valeurB
x = x + 1

'si X=5000 passer la boucle'

If x = 5003 Then GoTo l49

valeurB = Range("A" & x).Value
Loop

'si la cellule Lx = quelque chose alors on copy la ligne'

If Worksheets("Feuil2").Range("L" & x).Value <> "" Then
Worksheets("Feuil1").Range("J" & i).Value = Worksheets("Feuil2").Range("L" & x)

End If

'on incremente i de 1'
l49: ' etiquette pour le goto
i = i + 1

'on continue les fonction d'avant jusqu'a ce que i=5000'
Loop

End Sub

Merci à tous pour votre aide

[EXCEL] Transfert de données entre 2 tableaux - Page 2

Discussions similaires

Newsletters