Discussion :

[Mairequimby]

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. En attendant votre réponse, je vais essayer à mon tour d'en aider quelques uns.

Merci et bonne journée

[Mairequimby]

J'ai essayer le code suivant, mais ça ne fonctionne pas

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 de m'aider!!!