Bonjour,

J'ai un problème de conception. j'essaie plein de truc depuis 2 jours, mais je n'arrive a rien. Voici mon problème,

J'ai un classeur excel avec 2 feuilles. Dans la première, j'ai une liste de nom avec des numéro unique pour chacun (non consécutif). Dans la deuxième feuille, J'ai les information sur ces contacts, c'est-à-dire les coordonnées du père, mère, soeur et frère pour chaque personne de la feuille 1.

le nombre de contact est différent pour tous. Donc, j'ai réussi a mettre le numéro de dossier dans la colonne A de la feuille2. Je désire que si la cellule Bn de la feuille1 est = à celle de la cellule Bm de la feuille2 et que la cellule Dm="NON" alors

il y a copie de Dm-3 à Dm-1 dans la première colonne disponible de la ligne n de la feuille 1.

Comme je vous dit, j'ai essayer plein de méthode, mais rien ne fonctionne. Je sollicite donc votre aide.

Voici ce que j'ai essayé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With Sheets("Liste Urgence Final")
 For N = 2 To Sheets("Liste Urgence Final").Range("B" & .Rows.Count).End(xlUp).Row
 
 For P = 1 To Sheets("RapportListeUrgenceXls").Range("A" & .Rows.Count).End(xlUp).Row
 
 
   If Sheets("Liste Urgence Final").Cells(N, 2) = Sheets("RapportListeUrgenceXls").Cells(P, 1) And Sheets("RapportListeUrgenceXls").Cells(P, 7) = "NON" Then
   With Sheets("Liste Urgence Final")
         NewCol = .Range(.Column.Count & N).End(xlRight).Column + 1
   End With
   Sheets("Liste Urgence Final").Range(NewCol & N).Value = Application.Transpose(.Range("D" & P - 2 & ":D" & P - 1).Value)
 
 
   End If
   Next P
 
Next N
Merci et bonne journée