Discussion :

[js8bleu]

Bonjour,

je souhaiterai supprimer plusieurs lignes d'un msflexgrid (que j'aurai sélectionné). Mais je ne sais pas comment m'y prendre. J'ai mis la propriété BackColorSel à &HF8505 en cas de sélection et je me disais qu'en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Do While msflog.BackColorSel = &HF8505
cn.Execute "delete from tlog where " & msflog.BackColorSel = &HF8505 " "
rs1.MoveNext
Loop

ça irai, mais ça ne marche malheureusement pas. Quelqu'un aurait-il une idée s'il vous plaît?

Merci d'avance.

Cordialement.

[js8bleu]

Voici où j'en suis mais ça ne marche toujours pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim rslog As New ADODB.Recordset
rslog.Open "select * from tlog", cn, adOpenDynamic, adLockOptimistic
 
z = msflog.TextMatrix(msflog.Row, 0)
 
For i = 1 To z
 
   If msflog.BackColorSel = 1017093 Then
      msflog.RemoveItem i
      cn.Execute "delete from tlog where numlog = " & i & " "
 
   Else
 
 
   End If
 
Next i

Que .BackColorSel soit égal à 1017093 ou RGB(5,133,15) ça ne marche pas. Il me supprime tout jusqu'à z.

Quelqu'un pourrait-il m'aider s'il vous plaît?

Merci d'avance.

Cordialement.

[iclic]

Bonjour,

Essaie (sans garantie) avec la propriété "CellBackColor "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
...
For i = 1 To z
 
   If msflog.CellBackColor  = 1017093 Then
      msflog.RemoveItem i
      cn.Execute "delete from tlog where numlog = " & i & " "
 
  ' Else inutile
 
 
   End If
 
Next i
...

[OhMonBato]

Bonjour,
J'avoue ne rien comprendre à ton code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

z = msflog.TextMatrix(msflog.Row, 0)

z est donc le texte d'une cellule en particulier ?

Si tu veux que z soit le nombre de lignes (?), il suffit de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

z=msflog.rows

Ensuite dans ta boucle tu testes "msflog.CellBackColor", mais de quelle ligne ?

Là encore, je pense qu'il faut préciser tout d'abord :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msflog.row= i-1

[js8bleu]

Bonjour iclic et OhMonBato et Merci pour vos intervention. iclic, désolé mais ça n'a pas marché. OhMonBato, tu avais entièrement raison sur le calcul du nombre de ligne. Par contre je ne sais pas où mettre le code que tu m'as suggéré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msflog.row= i-1

Voici mon "nouveau" code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
z = msflog.Rows
 
For I = 1 To z
 
      If msflog.CellBackColor = vbYellow Then
 
             msflog.RemoveItem I
 
             cn.Execute "delete from tlog where numlog = " & I & " "
 
       End If
 
 Next I

En fait, voici comment je vois les choses. En supposant msflog fait 30 lignes et que je sélectionne les lignes de 6 à 9. Je souhaiterai savoir comment faire pour récupérer le numéro de ligne 6 et 9 (pour faire le delete des lignes 6 à 9 dans ma boucle For) d'autant plus que la propriété .BackColorSel de msflog est à vbyellow et comme les lignes sélectionnées sont à vbyellow elle devrait me permettre de connaître la première ligne sélectionnée et la dernière ligne sélectionnée. Je pense que le problème que je rencontre est : COMMENT CONNAITRE LA 1ère LIGNE SELECTIONNEE ET LA DERNIERE LIGNE SELECTIONNEE?

Je reste à votre disposition pour d'éventuels éclaircissements.

Merci d'avance pour votre très précieuse aide.

Cordialement.

[l_autodidacte]

Salut;

Je n'ai pas utilisé MsFlexgrid auparavant mais là, j'ai une suggestion concernant l'utilisation du compteur :
Si tu commences par i=1 et que par hasard cet élément correspond au critère de recherche, il va être supprimé et du coup, tous les indices vont changer en conséquence et à un moment donné, tu tombes sur une erreur du type "indice hors de la plage" ou quelque chose du genre.

Il me semble plus commode de commencer ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 For i=z to 1 Step -1
   If ...........Then
     ...........
     ...........
     ........... 
   End If
Next i