Copier une cellule dans une autre feuille en fonction d'une autre
Bonjour,
je souhaite remplir automatiquement ma colonne D avec les informations de la colonne A de la feuille 2 en fonction des informations indiquées dans la colonne C de la feuille 2 qui correspond a différents paragraphes que l'on retrouve dans la colonne A de la feuille 1.
par exemple dans la feuille 2 colonne C on retrouve 8.7 ; 13.2 ; 13.3.a ; 13.3.c ; 13.3.d ; 13.3.e ; 13.3.f ; 13.3.i ; 13.3.k ; 13.3.l ; 13.3.m
je voudrais donc retrouver dans la feuille 1 dans la cellule D25 : ISO 15223-1:2016.
et ca pour tout les paragraphes.
pensez vous que c'est possible ?
merci d'avance
Bonjour Gmd,
je te remercie énormément de ta réponse elle me convient totalement !
puis-je avoir des explications par ce que je t'avoue que je ne comprend pas trop comment tu t'y es pris
encore merci.
J'ai fait une macro.
Tu peux la voir en tapant simultanément sur les touches Alt et F11.
Elle passe toutes les cellules de la colonne C de la Feuil2.
Pour chacune de ces cellules, elle isole chaque nom de paragraphe et recherche la ligne de la Feuil1 où dans la colonne A on retrouve ce nom.
On reporte alors dans cette ligne, en colonne D, la valeut que l'on a sur la Feuil2 en colonne A sur la ligne de la cellule étudiée.
OK ?
Bye !
PS : La présentation du résultat est meilleur sur la version ci-jointe.
je vois,
super merci a toi pour tout ca.
Est il juste possible d'avoir les explications des lignes de codes je pensais avoir compris mais après avoir essayer de modifier pour tester quelque chose je me rend compte que j'ai pas totalement compris ...
merci d'avance
Génial merci !
Mais si je veux en fonction des données de la colonne D de feuil 1 (les donné que l'on peut mettre a jour) remplir la colonne E de la meme feuille mais en remplissant une nouvelle colonne 4 dans feuil 2, je suis obligé de créer un nouveau bouton et une nouvelle macro ?
par exemple colonne 4 feuil2 E2 contient "blablabla" et elle est en face de la norme iso152231:2016
et je veux qu'elle se retrouve aussi enface de la meme norme dans la feuil1
Encore, merci
En gros, j'ai rajouté ça a la macro que tu as faite :
f1.Range("E3:E" & Application.Max(3, f1.Range("A" & Rows.Count).End(xlUp).Row)).ClearContents
tablo3 = f1.Range("A1:E" & f1.Range("A" & Rows.Count).End(xlUp).Row)
tablo4 = f2.Range("E2:E" & f2.Range("A" & Rows.Count).End(xlUp).Row)
For i = 2 To UBound(tablo1, 1)
nb = UBound(Split(tablo1(i, 4), Chr(10)))
For n = 0 To nb
On Error Resume Next
Set cell2 = f1.Range("D:D").Find(Split(tablo2(i, 3), Chr(10))(n), lookat:=xlWhole)
If Err.Number <> 0 Then
Err.Number = 0
GoTo suite2
End If
If Not cell2 Is Nothing Then
tablo4(cell.Row, 1) = tablo4(cell.Row, 1) & Chr(10) & tablo3(i, 1)
End If
Next n
suite2:
Next i
f1.Range("E3").Resize(UBound(tablo1, 1), 1) = tablo4
je ne mettais pas relu j'ai corrigé quelques erreurs :
f1.Range("E3:E" & Application.Max(3, f1.Range("A" & Rows.Count).End(xlUp).Row)).ClearContents
tablo3 = f1.Range("A1:D" & f1.Range("A" & Rows.Count).End(xlUp).Row)
tablo4 = f2.Range("E3:E" & f2.Range("A" & Rows.Count).End(xlUp).Row)
For i = 2 To UBound(tablo4, 1)
nb = UBound(Split(tablo4(i, 4), Chr(10)))
For n = 0 To nb
On Error Resume Next
Set cell2 = f1.Range("D:D").Find(Split(tablo4(i, 4), Chr(10))(n), lookat:=xlWhole)
If Err.Number <> 0 Then
Err.Number = 0
GoTo suite2
End If
If Not cell2 Is Nothing Then
tablo4(cell2.Row, 1) = tablo4(cell2.Row, 1) & Chr(10) & tablo3(i, 1)
End If
Next n
suite2:
Next i
f1.Range("E3").Resize(UBound(tablo4, 1), 1) = tablo4
End Sub