Index dans For Each

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:

---

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

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim memCell As Range Dim Cell as range Set memCell = Selection   For Each Cell In memCell If Range("F" & Cell.row).Value <> Leer Or Range("F" & Cell.row).Value <> Null Then MsgBox "Error" 'memCell.Cells.EntireRow.Delete End If Next Row

---

Que veux-tu supprimer ? Toute la plage sélectionnée ou seulement la ligne de l'erreur ?

Edit
N'utilise pas de mot clé en tant que variable. Row en est un que j'ai remplacé par Cell qui n'en est pas un dans Excel.

J'aimerais supprimer la ligne de l'erreur de la plage sélectionné, mais pas sur le tableau Excel, dans la variable memCell.

J'avais aussi pensé passer à l'enregistrement suivant dans la boucle FOR, sans pour autant sortir de la boucle.

En fait, tu souhaites faire un filtre, non ?
Et si tu nous indiquais simplement la finalité de la chose ? ;)

Ben non, je ne souhaite pas faire de filtre... Je souhaite supprimer cette selection pour ne pas l'affecter à un autre utilisateur...

Exemple: un tableau avec 10 lignes... les 5 premiers lignes sont déjà affecter à une personne... le chef sélectionne la ligne 4,5 et 6 pour les affecters à une autre personne... je veux donc que la ligne 4 et 5 soit déselectionner de la sélection ou supprimer de la variable, mais la ligne 6 doit être affectué à la personne qu'il a choisit.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Dim rngCell As Range Dim memCell As Range Dim rngSelection As Range Dim intRow As Integer Dim intCol As Integer   Dim i As Integer   i = 2   Set memCell = Selection   For Each cell In memCell If Range("F" & cell.Row).Value <> Leer Or Range("F" & cell.Row).Value <> Null Then MsgBox "Error" 'supprimer ce cell End If Next cell     For Each cell In memCell Set rngCell = cell intRow = rngCell.Row If rngCell.Column = 1 Then intCol = rngCell.Column Set rngSelection = ActiveSheet.Range(Cells(intRow, intCol), Cells(intRow, 5))   rngSelection.Select   Selection.Copy Sheets(User).Visible = True Sheets(User).Select 'Check Data CheckUserData i = n Range("A" & i).Select ActiveSheet.Paste Sheets("Report").Select i = i + 1 End If   Next cell

---

Eh voilà toute la procédure.

Le mieux serait que tu masques les lignes concernées.
Une fois masquées, tu peux sélectionner la plage des lignes visibles avec

Code:

---

1 2 3

Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible) 'et pour vérifier : MsgBox Plage.Address

---

Tiens, j'ai testé ça à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub un() Set memcell = ActiveSheet.UsedRange For Each Cell In memcell If Range("F" & Cell.Row).Value = 40 Then 'modifie juste ça Cell.EntireRow.Hidden = True End If Next Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible) MsgBox Plage.Address End Sub

---

Eh merci...j'avais pas pensé à ça!

Franck

Si c'est résolu, un petit clic sur :resolu: pour qu'on sache que c'est résolu ;)