Citation:
Public Sub Start()
Dim CompteurColonneFeuille1
Dim CompteurColonneFeuille2
Dim NomFeuille1
Dim ContenuCaseFeuille1 'Contenu d une case
NomFeuille1 = "Feuil1"
NomFeuille2 = "Feuil2"
NomFeuille3 = "Feuil3"
LigneAScruterFeuille1 = 2
LigneAScruterFeuille2 = 1
CompteurColonneFeuille1 = 3
Do
L = Sheets(NomFeuille3).Cells(1, Cells.Columns.Count).End(xlToLeft).Column + 1 'Permet de se positionner sur la dernière colonne de tableau NON VIDE
Sheets(NomFeuille1).Select
ContenuCaseFeuille1 = Cells(LigneAScruterFeuille1, CompteurColonneFeuille1).FormulaR1C1
Sheets(NomFeuille2).Select
CompteurColonneFeuille2 = 3
Do
ContenuCaseFeuille2 = Cells(LigneAScruterFeuille2, CompteurColonneFeuille2).FormulaR1C1
If ContenuCaseFeuille1 = ContenuCaseFeuille2 Then
Sheets(NomFeuille3).Cells(1, L).Value = Worksheets(NomFeuille1).Range("B2").Value
Exit Do
End If
CompteurColonneFeuille2 = CompteurColonneFeuille2 + 1
Loop While Len(ContenuCaseFeuille2) > 0
CompteurColonneFeuille1 = CompteurColonneFeuille1 + 1
Loop While Len(ContenuCaseFeuille1) > 0
Worksheets(NomFeuille3).Select
MsgBox ("Terminé")
End Sub
Je voudrais savoir s'il vous plait: