SI Conditionnel et Transposé dans ligne
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:
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 :D
