Partage et macro

Bonjour j'ai créer un fichier excel sur lequel j'ai un certain nombre de macro qui tourne.

Elles fonctionnent toutes (que le fichier soit partagé ou non), sauf une qui ne veut pas fonctionner lorsque le fichier et partagé.

Auriez-vous une idée sur ce qui pourrait-être à l'origine d'un tel problème.

D'avance merci et bonne journée

Bonjour,

Sans boule de cristal ou le code, la ligne en erreur et le problème généré, non, aucune idée.

eric

Bonjour, voici le lien vers mon fichier excel.

Le problème situe lorsque tu clique sur le Bouton Administrateur (mot de passe : admin), puis sur l'onglet "supprimer" de l'userform.

Losque tu valide la suppression d'une adresse mail, il y a un message d'erreur disant que cette commende ne fonctionne pas en partagé.

Merci de ton aide.

Tout le monde ne peut pas partager le fichier.

Donne le module, la macro et la ligne voire la fonction qui génère l'erreur, qu'on voit si ça rappelle qcq chose ou si on peut remplacer par autre chose.

Si c'est ActiveWorkbook.Worksheets("Emails").Cells(iligne, colonne).Delete (xlUp) tu pourrais envisager une colonne de marquage Suppression et purger de temps en temps quand personne n'est dessus.

eric

Bonjour, voici le code me posant problème :

Private Sub BoutonSup_Click()

Dim i, iligne, colonne, colonnecadre As Byte

'E-mail cellule=cellule sélectionné
Dim trouve As Boolean
trouve = False

'NBX de fois que l'E-mai la été trouvé
Dim nbxtrouve As Byte
nbxtrouve = 0

'Vérifie qu'un E-mai la été sélectionné
If ComboSup.Value = "" Then
    MsgBox "Sélectionnez d'abord un E-mail."
    Exit Sub
End If

'Recherche de l'E-MaiL
For i = 1 To 8

    Select Case i

        'RETAD
        Case 1
            colonne = ColonneRETADesti
            colonnecadre = ColonneRETADesti
        'RETAC
        Case 2
            colonne = ColonneRETACopie
            colonnecadre = ColonneRETADesti

        'INFOGARED
        Case 3
            colonne = ColonneINFOGAREDesti
            colonnecadre = ColonneINFOGAREDesti
        'INFOGAREC
        Case 4
            colonne = ColonneINFOGARECopie
            colonnecadre = ColonneINFOGAREDesti

        'VIDEOD
        Case 5
            colonne = ColonneVIDEODesti
            colonnecadre = ColonneVIDEODesti
        'VIDEOC
        Case 6
            colonne = ColonneVIDEOCopie
            colonnecadre = ColonneVIDEODesti

        'CNSETD
        Case 7
            colonne = ColonneCNSETDesti
            colonnecadre = ColonneCNSETDesti
        'CNSETC
        Case 8
            colonne = ColonneCNSETCopie
            colonnecadre = ColonneCNSETDesti

    End Select

    'Parcours des colonnes
    iligne = ligneEmail

    'iligne>100 pour éviter une éventuelle boucle infinie
    Do While (Worksheets("Emails").Cells(iligne, colonne) <> "") Or iligne > 100

        'Teste si l'on se trouve sur la cellule de l'E-mail à supprimer
        If Worksheets("Emails").Cells(iligne, colonne) = ComboSup.Value Then
            ActiveWorkbook.Worksheets("Emails").Cells(iligne, colonne).Delete (xlUp)

            'Pour garder les cadres E-MaiLs égaux
            'Worksheets("Emails").Cells(38, colonne).Insert Shift:=xlDown

            trouve = True
            nbxtrouve = nbxtrouve + 1

            Exit Do

        End If

        iligne = iligne + 1

    Loop

Next i

    'Message indiquant le résultat de la suppression
    If trouve = True Then

        MsgBox ComboSup.Value & " effacé " + CStr(nbxtrouve) + " fois."
        ComboSup.RemoveItem (ComboSup.ListIndex)
        ComboSup.ListIndex = 0

    Else

        MsgBox "Erreur, l'E-mail n'a pas été trouvé."

    End If
End Sub

D'avance merci

Bonne fin de journée à tous

Bonjour,

comme tu ne réponds pas aux questions ça sera sans moi.

eric

Excuse moi mais dans la 1ère partie de ta réponse tu demande le code ou la ligne ... et ilme semble donc y répondre en donnant le code qui me pose problème.

Quand au 2ème point je n'y pas répondu car je préfèrerai que le code soit corrigé.

Maintenant si tu ne veux plus tampis, mais merci comme même.

help !!!!!!!!