1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Sub Exemple1()
Dim Wsh As Worksheet
Dim c As Range
Worksheets("suivi global").Select
Range("A1") = "Nom"
Range("A1") = "Documentation"
'Boucle dans toutes les feuilles
For Each Wsh In ThisWorkbook.Worksheets
'Si il ne s'agit pas de la feuille récapitulative
If Wsh.Name <> ActiveSheet.Name Then
'cherche si le nom existe déja
Set c = Range("a:a").Find(2, LookIn:=xlValues, LookAt:=xlWhole)
'si oui
If Not c Is Nothing Then
'recupere la valeur "a fait une demande de documentation" et la range à coté du nom
c.Offset(0, 1) = Wsh.Range("D3").Value
'si non
Else
'ajoute le nom à la suite des autre
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
Selection = Wsh.Name
' et copie la valeur "a fait une demande de documentation" et la range à coté du nom
Selection.Offset(0, 1) = Wsh.Range("D3")
End If
End If
Next
End Sub |
Partager