Bonjour à tous,

J'ai créé une application qui permet de généré des rapports pour différentes utilisateurs. A l'aide d'une requête, je remplis un tableau suivant des données d'une base de données... mon utilisateur peut sélectionner différentes lignes, et à l'aide d'un bouton, je copie cette ligne et la colle dans une autre feuille de calcul, puis je remplis la cellule F de la ligne par le nom de l'utilisateur.

J'aimerais empêcher mon utilisateur d'affecter la même ligne à des personnes différentes... pour ce faire, j'ai fais une boucle pour vérifier si la cellule F est renseigner... dans le cas où elle est renseigner, j'ai pensé passer à l'enregistrement suivant dans la boucle ou de supprimé cette enregistrement dans la mémoire.

Mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim memCell As Range
 
Set memCell = Selection
 
For Each Row In memCell
    If Range("F" & i).Value <> Leer Or Range("F" & i).Value <> Null Then
        MsgBox "Error"
        memCell.Cells.EntireRow.Delete
    End If
Next Row
Avec ce code, il me vide toute ma variable memCell!

Quelqu'un aurait une idée
Merci
Franck