Regueiro
XLDnaute Impliqué
Bonsoir le Forum et Bonne Année à Tous.
Voici mon code qui marche pour boucler sur une feuille
Mais j'aimerais boucler sur toutes les feuilles sauf 1 (Feuil4) = ACCUEIL
Pour info je dois rajouter plusieurs feuilles avec des noms diééfrents
MErci de votre Aide
Voici mon code qui marche pour boucler sur une feuille
Mais j'aimerais boucler sur toutes les feuilles sauf 1 (Feuil4) = ACCUEIL
Code:
Option Explicit
Public Derlig As Long, DerCol As Long
Public Cell As Range
Sub Transfert()
Dim Dico As Object
Dim F As Worksheet
Set F = Worksheets("eric")
MsgBox F.Name
Set Dico = CreateObject("Scripting.Dictionary")
Derlig = F.Cells(Rows.Count, 3).End(xlUp).Row
MsgBox Derlig
For Each Cell In F.Range("C7", F.Cells(Derlig, 3))
If Cell <> "" Then Dico(Cell.Value) = ""
Next Cell
With Sheets("ACCUEIL")
[I4].Resize(Dico.Count) = Application.Transpose(Dico.keys)
End With
End Sub
MErci de votre Aide