Au secour !!! Cela ne fonctionne pas !

[malingrey69]

hmy:

Au secour Hervé, la macro développée ne fonctionne plus.

Je voulais l'appliquer à un autre tableau mais impossible de la faire fonctionner.

Pour ceux que cela intéresse, voir mes post précédent (MALINGREY69)

Hervé ? Une autre personne ?

Merci de votre aide.

Le fichier qui ne fonctionne pas est joint en pièce attachée.

:side: [file name=Famille 2005 - V2_20050418110419.zip size=9899]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Famille 2005 - V2_20050418110419.zip[/file]

 

[Hervé]

bonjour

macro modifié si-dessous :

Option Explicit
Public Sub renvoitableau()
Dim i As Integer, derligne As Integer, j As Integer
Dim c As Range

Dim datanom As New Collection
Set datanom = New Collection


On Error Resume Next
For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
    datanom.Add c.Text, c.Text
Next c

With Sheets('feuil2')

For j = 1 To datanom.Count
    i = 1
    derligne = .Range('a65536').End(xlUp).Row + 1
    For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
        If c.Text = datanom.item(j) Then
            .Cells(derligne, 1) = c.Value
            .Cells(derligne, i + 1) = c.Offset(0, 1)
            .Cells(derligne, i + 2) = c.Offset(0, 2)
            .Cells(derligne, i + 3) = c.Offset(0, 3)
            i = i + 3
        End If
    Next c
Next j
.Select
End With
End Sub

le souci venait du datanom.item(item), et je ne sais pas pourquoi ????

Salut

 

[malingrey69]

Merci beaucoup Hervé.

Cette macro peut-elle fonctionner lorsque le matricule des salariés est en chiffre ? J'ai essayé mais cela n'est pas probant.

J'ai transformé les chiffres en texte et là, cela fonctionne.

Merci encore du temsp que tu as consacré à la résolution de mon problème.

Bonne journée

Malingrey 69

 

[Hervé]

re

dans la dernière macro donnée, remplace :

datanom.Add c.text, c.text

par

datanom.Add CStr(c.Value), CStr(c.Value)

Et tu ne devrais plus avoir de souci avec le numérique.

Salut

 

[malingrey69]

Mille merci ! ca marche.