Question sur exel
olivier
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je cherche à rapprocher des données de deux fichiers exel en introduisant une condition du genre:
copier la cellule n de la colone c du fichier 1 dans la cellule m de la colonne d du fichier 2 si la cellule n de la colonne c+1 du fichier 1 est la même que la celule m de la colone d+1 du fichier 2
quelque peux-t-il m'aider?
merci d'avance
olivier
je cherche à rapprocher des données de deux fichiers exel en introduisant une condition du genre:
copier la cellule n de la colone c du fichier 1 dans la cellule m de la colonne d du fichier 2 si la cellule n de la colonne c+1 du fichier 1 est la même que la celule m de la colone d+1 du fichier 2
quelque peux-t-il m'aider?
merci d'avance
olivier
A voir également:
- Question sur exel
- Exel 2013 - Télécharger - Tableur
- Liste deroulante exel - Guide
- Comment trier sur exel - Guide
- Moyenne exel - Guide
- Exel reader - Télécharger - Tableur
2 réponses
Bonjour, il faut passer par du vba :
sub a()
' sheets("Feuil1") ---> Feuil1 est l'onglet donc, a adapté
fichier1 = ActiveWorkbook.Name
fichier2 = "nom du fichier n°2" 'nécessite qu'il soit ouvert
for a = 1 to 30000
if Windows(fichier1).Sheets("Feuil1").Range("d" & a ).value = Windows(fichier2).Sheets("Feuil1").Range("e" & a ).value then
Windows(fichier1).Activate
Sheets("Feuil1").select
range("d" & a).select
application.copy
Windows(fichier2).Activate
Sheets("Feuil1").select
range("e" & a).select
ActiveSheet.Paste
end if
next
Application.CutCopyMode = False
end sub
à adapté suivant le fichier
sub a()
' sheets("Feuil1") ---> Feuil1 est l'onglet donc, a adapté
fichier1 = ActiveWorkbook.Name
fichier2 = "nom du fichier n°2" 'nécessite qu'il soit ouvert
for a = 1 to 30000
if Windows(fichier1).Sheets("Feuil1").Range("d" & a ).value = Windows(fichier2).Sheets("Feuil1").Range("e" & a ).value then
Windows(fichier1).Activate
Sheets("Feuil1").select
range("d" & a).select
application.copy
Windows(fichier2).Activate
Sheets("Feuil1").select
range("e" & a).select
ActiveSheet.Paste
end if
next
Application.CutCopyMode = False
end sub
à adapté suivant le fichier
cependant, n'étant pas un spécialiste de exel, j'ai du mal à te suivre!
vba??? qu'est-ce que c'est?
et surtout: j'avoue ne pas comprendre , concrêtement, j'ai effectivement deux fichiers ouverts; il s'agit de deux inventaires que je veux comparer alors que les deux listes ne sont pas totalement exactes: certains articles d'un fichier ne sont pas dans l'autre et inversement - je veux pouvoir, au moins comparer ceux qui sont présents dans les deux fichiers - j'ai donc dans chaque fichier une colonne 'code article' et une colonne 'stock' - je veux, sur l'un des deux fichiers, importer le stock de l'autre pour les codes existant dans les deux.....
merci d'avance
olivier