Discussion :

[toto14]

Bonjour,

Bon, ma question va certainement paraitre toute simple, mais bon, je suis perdue là, alors s'il vous plait, aidez-moi !!!
Voilà, j'ai deux feuilles excel :
Feuil1 :
Nom 1976 1979 1990
1,3 DP 1 1
4,5 EX 1 1


Feuil2 :
Nom 1976 1979 1996
4,5 EX 1 1
8,9 TH 1 1

Et j'aimerais obtenir en feuil3,
Nom 1976 1979
4,5 EX 1 1
C'est à dire que les champs communs entre feuil1 et feuil2.

J'avais penser à du VBA, mais j'ai du mal à concevoir mon algo, sinon, jai essayé avec un filtre élaboré mais il ne fonctionne que sur le nom, pas sur les années (j'ai peut-ête loupé une étape !!!).

Merci de votre aide.

Céline (ben oui, parce que des céline y'en a plein alors que toto, c'est plus rare )

[ouskel'n'or]

Pour le principe :
Tu lis ligne par ligne les données de la première colonne de ta feuille 1
Pour chaque ligne, tu recherches la donnée correspondante dans feuille 2
- Si elle existe, tu vérifies que la donnée de la colonne 2 de la feuille 2 correspond à la donnée de la colonne 2 de la feuille 1
- Si oui, tu incrémentes le N° de ligne de la feuille 3 et tu copies les données sur ce nouveau N° de ligne.
- Si non, tu passes à la ligne suivante feuille1
Pour la recherche, tu as deux solutions : si tu peux trier les données des feuilles 1 et 2, tu peux lire ta feuille 2 ligne par ligne. Sinon, utilise Find (F1...)
Pour ma part, comme il n'est pas toujours possible de trier les données, je préfère utiliser Find.
Fais quelque chose et montre-nous si tu as des difficultés
A+

[toto14]

OK, merci, on dirait que je suis partie puor du VBA. C'est pas gagné !!!

Bon, j'essaie et si je galère, je reviens

[dadavyvy]

Sans VBA le résultat ne sera pas exactement le même. Tu garderas des cellules vides.
Cela dépend combien de fois tu comptes répéter l'opération. Si c'est du one-shot, tu peux utiliser des fonctions excel. Sinon il faudra du VBA comme indiqué par ouskel'n'or.
En gros dans la feuille 3, cellule C3, on met la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SI(Feuil2!C3=""; ""; SI(ESTERREUR(RECHERCHEH(Feuil2!C3; Feuil1!3:3; 1; FAUX)); ""; Feuil2!C3))

(Il faudra adapter les fonctions selon le langage d'Excel)
Et il suffit d'étendre cette formule sur la Feuil3 sur la même plage que celle utilisée dans la Feuil2. Tu ne verras alors apparaître que les cellules de la feuil2 qui sont dans la feuil1 sur la même ligne (attention aux espaces superflux).
En esperant que ca t'aidera...

[toto14]

Bonjour ! et merci pour votre aide.
En fait, c'est un peu plus compliqué car je ne compare pas les fichiers lignes à lignes, je n'ai pas le meme nombre d'enregistrement entre la feuille 1 et la feuille 2, c'eut été trop facile !!!
En fait, il faut d'abord que je recherche dans la feuille 2, les lignes où j'ai les meme noms que dans la feuille 1, ensuite, que je récupérer les années qui sont en commun, puis que je regarde si il y a un "1" pour le meme nom à la meme année. Oui, en fait, ça se résume à ça : "il faut que je trouve les cases où il y a un "1" pour le meme nom à la meme année".

J'avoue que je galère complètement. Je suis totalement perdue. Mais je ne désespère pas, je vais bien trouver une solution.

Est-ce que quelqu'un pourrait juste m'indiquer comment sélectionner mes années de la feuille 1 en fonction des années présentes dans ma feuille 2, ça m'aiderait beaucoup. Les champs concernant les années se situent en ligne 1, à partir de C1.
Merci.

Céline

[dadavyvy]

Je vois que tu veux vraiment le faire en VBA.
Voici une methode possible :
¤ Faire une copie exacte de la Feuil2 en Feuil3
¤ Pour chaque année de la Feuil2, si elle n'est pas dans la Feuil1, supprimer complètement la colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
line1 = 1 ' line1 étant la ligne ou se trouve les années
col1 = 1  ' col1 étant la colonne ou se trouve les noms
For i = 255 to col1 Step -1
	annee = Feuil3.Cells(line1, i)
	If annee <> "" Then
		If Feuil1.Range(line1 & ":" & line1).Find(annee) Is Nothing Then
			Feuil3.Cells(1, i).EntireColumn.Delete
		End If
	End If
Next i

Attention : selon le format de tes données, il faudra peut-être ajouter des paramètres à la fonction Find
Rem. On fait une boucle For avec un Step -1 car, quand tu supprimes une colonne, cela les décale vers la gauche. 255 = nbr de colonnes max (mais on peut faire plus rapide).
¤ Faire la même chose sur les noms, sauf que l'on parcoure cette fois-ci les lignes et on recherche le nom dans la 1ere colonne de la Feuil1.
Attention : pour les noms, ne pas commencer la boucle à 255, mais à Feuil1.UsedRange.Rows.Count + Feuil1.UsedRange.Row, càd le numéro de la dernière ligne utilisée.

Rem. Si dans la Feuil1 et la Feuil2, la cellule en haut à gauche n'est pas identique, terminer la 1ere boucle For à line1 + 1, et la 2eme à col1 + 1.

En esperant que ca va t'aider.