Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc
"Christian" a écrit dans le message de news:4333050e$0$18836$
Bonjour,
Je souhaite parvenir à supprimer une colonne qui peut aussi bien être la 3éme comme la 7 éme. Seul l'utilisateur défini ce qu'il veut.
Hello,
il suffit de déplacer la colonne à supprimer en dernière position et de diminuer de 1 le nombre de colonnes.
Voici la fonction:
' 8<------------------------------- Public Function RemoveColumn(myGrid As MSFlexGrid, ByVal column As Long) As Boolean
If column < myGrid.Cols Then myGrid.ColPosition(column) = myGrid.Cols - 1 myGrid.Cols = myGrid.Cols - 1 RemoveColumn = True End If End Function ' 8<-------------------------------
Et un exemple d'appel:
' remplissage avec quelques valeurs Private Sub Command1_Click() MSFlexGrid1.Cols = 6 MSFlexGrid1.Rows = 2
' suppression d'une colonne Private Sub Command2_Click() Dim column As Long Dim r As Boolean
' supprimer la 3eme colonne column = 3 r = RemoveColumn(MSFlexGrid1, column) If r = True Then MsgBox "colonne " & column & " supprimée", vbInformation, "Ok" Else MsgBox "colonne " & column & " NON supprimée", vbExclamation, "Erreur" End If
End Sub
NOTE: le mot "aléatoire" veut dire "au hasard". Le hasard n'intervient pas dans ce que tu souhaites faire ici. Si l'utilisateur doit choisir une colonne à supprimer, c'est parafaitement déterminé. Il vaut mieux dire dans ce cas : "Suppression d'une colonne *quelconque*".
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
"Christian" <christgh@nepasutiliser.com> a écrit dans le message de
news:4333050e$0$18836$626a14ce@news.free.fr...
Bonjour,
Je souhaite parvenir à supprimer une colonne qui peut aussi bien être la
3éme comme la 7 éme. Seul l'utilisateur défini ce qu'il veut.
Hello,
il suffit de déplacer la colonne à supprimer en
dernière position et de diminuer de 1 le nombre de colonnes.
Voici la fonction:
' 8<-------------------------------
Public Function RemoveColumn(myGrid As MSFlexGrid, ByVal column As Long) As
Boolean
If column < myGrid.Cols Then
myGrid.ColPosition(column) = myGrid.Cols - 1
myGrid.Cols = myGrid.Cols - 1
RemoveColumn = True
End If
End Function
' 8<-------------------------------
Et un exemple d'appel:
' remplissage avec quelques valeurs
Private Sub Command1_Click()
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 2
' suppression d'une colonne
Private Sub Command2_Click()
Dim column As Long
Dim r As Boolean
' supprimer la 3eme colonne
column = 3
r = RemoveColumn(MSFlexGrid1, column)
If r = True Then
MsgBox "colonne " & column & " supprimée", vbInformation, "Ok"
Else
MsgBox "colonne " & column & " NON supprimée", vbExclamation,
"Erreur"
End If
End Sub
NOTE: le mot "aléatoire" veut dire "au hasard". Le hasard n'intervient
pas dans ce que tu souhaites faire ici. Si l'utilisateur doit choisir une
colonne à supprimer, c'est parafaitement déterminé.
Il vaut mieux dire dans ce cas : "Suppression d'une colonne *quelconque*".
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
"Christian" a écrit dans le message de news:4333050e$0$18836$
Bonjour,
Je souhaite parvenir à supprimer une colonne qui peut aussi bien être la 3éme comme la 7 éme. Seul l'utilisateur défini ce qu'il veut.
Hello,
il suffit de déplacer la colonne à supprimer en dernière position et de diminuer de 1 le nombre de colonnes.
Voici la fonction:
' 8<------------------------------- Public Function RemoveColumn(myGrid As MSFlexGrid, ByVal column As Long) As Boolean
If column < myGrid.Cols Then myGrid.ColPosition(column) = myGrid.Cols - 1 myGrid.Cols = myGrid.Cols - 1 RemoveColumn = True End If End Function ' 8<-------------------------------
Et un exemple d'appel:
' remplissage avec quelques valeurs Private Sub Command1_Click() MSFlexGrid1.Cols = 6 MSFlexGrid1.Rows = 2
' suppression d'une colonne Private Sub Command2_Click() Dim column As Long Dim r As Boolean
' supprimer la 3eme colonne column = 3 r = RemoveColumn(MSFlexGrid1, column) If r = True Then MsgBox "colonne " & column & " supprimée", vbInformation, "Ok" Else MsgBox "colonne " & column & " NON supprimée", vbExclamation, "Erreur" End If
End Sub
NOTE: le mot "aléatoire" veut dire "au hasard". Le hasard n'intervient pas dans ce que tu souhaites faire ici. Si l'utilisateur doit choisir une colonne à supprimer, c'est parafaitement déterminé. Il vaut mieux dire dans ce cas : "Suppression d'une colonne *quelconque*".
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Christian
Merci beaucoup, pour les explications ainsi que le pour le code.
Christian.
"Jean-Marc" a écrit dans le message de news: 433313f5$0$13272$
"Christian" a écrit dans le message de news:4333050e$0$18836$ > Bonjour, > > Je souhaite parvenir à supprimer une colonne qui peut aussi bien être la > 3éme comme la 7 éme. Seul l'utilisateur défini ce qu'il veut.
Hello,
il suffit de déplacer la colonne à supprimer en dernière position et de diminuer de 1 le nombre de colonnes.
Voici la fonction:
' 8<------------------------------- Public Function RemoveColumn(myGrid As MSFlexGrid, ByVal column As Long)
As
Boolean
If column < myGrid.Cols Then myGrid.ColPosition(column) = myGrid.Cols - 1 myGrid.Cols = myGrid.Cols - 1 RemoveColumn = True End If End Function ' 8<-------------------------------
Et un exemple d'appel:
' remplissage avec quelques valeurs Private Sub Command1_Click() MSFlexGrid1.Cols = 6 MSFlexGrid1.Rows = 2
' suppression d'une colonne Private Sub Command2_Click() Dim column As Long Dim r As Boolean
' supprimer la 3eme colonne column = 3 r = RemoveColumn(MSFlexGrid1, column) If r = True Then MsgBox "colonne " & column & " supprimée", vbInformation, "Ok" Else MsgBox "colonne " & column & " NON supprimée", vbExclamation, "Erreur" End If
End Sub
NOTE: le mot "aléatoire" veut dire "au hasard". Le hasard n'intervient pas dans ce que tu souhaites faire ici. Si l'utilisateur doit choisir une colonne à supprimer, c'est parafaitement déterminé. Il vaut mieux dire dans ce cas : "Suppression d'une colonne *quelconque*".
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;
Merci beaucoup, pour les explications ainsi que le pour le code.
Christian.
"Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de news:
433313f5$0$13272$ba620e4c@news.skynet.be...
"Christian" <christgh@nepasutiliser.com> a écrit dans le message de
news:4333050e$0$18836$626a14ce@news.free.fr...
> Bonjour,
>
> Je souhaite parvenir à supprimer une colonne qui peut aussi bien être la
> 3éme comme la 7 éme. Seul l'utilisateur défini ce qu'il veut.
Hello,
il suffit de déplacer la colonne à supprimer en
dernière position et de diminuer de 1 le nombre de colonnes.
Voici la fonction:
' 8<-------------------------------
Public Function RemoveColumn(myGrid As MSFlexGrid, ByVal column As Long)
As
Boolean
If column < myGrid.Cols Then
myGrid.ColPosition(column) = myGrid.Cols - 1
myGrid.Cols = myGrid.Cols - 1
RemoveColumn = True
End If
End Function
' 8<-------------------------------
Et un exemple d'appel:
' remplissage avec quelques valeurs
Private Sub Command1_Click()
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 2
' suppression d'une colonne
Private Sub Command2_Click()
Dim column As Long
Dim r As Boolean
' supprimer la 3eme colonne
column = 3
r = RemoveColumn(MSFlexGrid1, column)
If r = True Then
MsgBox "colonne " & column & " supprimée", vbInformation, "Ok"
Else
MsgBox "colonne " & column & " NON supprimée", vbExclamation,
"Erreur"
End If
End Sub
NOTE: le mot "aléatoire" veut dire "au hasard". Le hasard n'intervient
pas dans ce que tu souhaites faire ici. Si l'utilisateur doit choisir une
colonne à supprimer, c'est parafaitement déterminé.
Il vaut mieux dire dans ce cas : "Suppression d'une colonne *quelconque*".
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Merci beaucoup, pour les explications ainsi que le pour le code.
Christian.
"Jean-Marc" a écrit dans le message de news: 433313f5$0$13272$
"Christian" a écrit dans le message de news:4333050e$0$18836$ > Bonjour, > > Je souhaite parvenir à supprimer une colonne qui peut aussi bien être la > 3éme comme la 7 éme. Seul l'utilisateur défini ce qu'il veut.
Hello,
il suffit de déplacer la colonne à supprimer en dernière position et de diminuer de 1 le nombre de colonnes.
Voici la fonction:
' 8<------------------------------- Public Function RemoveColumn(myGrid As MSFlexGrid, ByVal column As Long)
As
Boolean
If column < myGrid.Cols Then myGrid.ColPosition(column) = myGrid.Cols - 1 myGrid.Cols = myGrid.Cols - 1 RemoveColumn = True End If End Function ' 8<-------------------------------
Et un exemple d'appel:
' remplissage avec quelques valeurs Private Sub Command1_Click() MSFlexGrid1.Cols = 6 MSFlexGrid1.Rows = 2
' suppression d'une colonne Private Sub Command2_Click() Dim column As Long Dim r As Boolean
' supprimer la 3eme colonne column = 3 r = RemoveColumn(MSFlexGrid1, column) If r = True Then MsgBox "colonne " & column & " supprimée", vbInformation, "Ok" Else MsgBox "colonne " & column & " NON supprimée", vbExclamation, "Erreur" End If
End Sub
NOTE: le mot "aléatoire" veut dire "au hasard". Le hasard n'intervient pas dans ce que tu souhaites faire ici. Si l'utilisateur doit choisir une colonne à supprimer, c'est parafaitement déterminé. Il vaut mieux dire dans ce cas : "Suppression d'une colonne *quelconque*".
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't." mailto: remove '_no_spam_' ;