Bonjour,
La macro fonctionne très bien. La voici, j'ai simplement désactivé
l'appel de macros extérieures.
Cette ligne de code : MsgBox ("dans feuille 12g")
ne sert absolument à rien. Quel est son rôle?
Je l'ai testé comme ceci et tout est OK. Aucune erreur!
'--------------------------------------
Sub point()
Dim Rg As Range, C As Range
Dim D As Object, Sh As Worksheet
' affiche Feuille module 13
'Call UnhideSheet
'execution macro gestion des doublons module14
'Call copievaleur 'module14
'Nom de l'onglet de la feuille où sont les données
Set Sh = Worksheets("récap")
With Sh
Set Rg = .Range("Y25:Y" & .Range("Y" & .Rows.Count).End(xlUp).Row)
End With
Set D = CreateObject("Scripting.Dictionary")
For Each C In Rg
MsgBox ("dans feuille 12g")
If C <> 0 And Not IsEmpty(C.Value) Then
If Not D.Exists(C.Value) Then
D.Add C.Value, C.Row
End If
End If
Next
MsgBox ("dans feuille 12k")
'Copie des données uniques sans less "0" ou les cellules vides.
Sh.Range("AA1").Resize(D.Count) = Application.Transpose(D.Keys)
'execution macro colle point dans feuille image module 9
'Call copiepoint 'module9
'execution macro colle point avec le bonhomme module10
'Call positionnementpointsurbonhomme 'module10
End Sub
'--------------------------------------
MichD