Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" a écrit dans le message de
news:
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" <nospam.chrue79@hotmail.com> a écrit dans le message de
news:eXujKnUHEHA.3696@TK2MSFTNGP10.phx.gbl...
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" a écrit dans le message de
news:
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" a écrit dans le message de
news:
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" <nospam.chrue79@hotmail.com> a écrit dans le message de
news:eXujKnUHEHA.3696@TK2MSFTNGP10.phx.gbl...
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" a écrit dans le message de
news:
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" a écrit dans le message de
news:
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" <nospam.chrue79@hotmail.com> a écrit dans le message de
news:eXujKnUHEHA.3696@TK2MSFTNGP10.phx.gbl...
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Public Sub supprimerlessai()
Sheets("variables").Activate
With Sheets("variables")
nbressais = .Range("B4").Value ' nbressais as byte
numordre = .Range("F4").Value 'numordre as byte
If nbressais = numordre Then
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
Selection.ClearContents
Application.CutCopyMode = False
Else
.Range("B" & 99 + numordre & ":DV" & 99 + numordre
& "").Select
'On Error Resume Next
Selection.ClearContents
.Range("B" & 100 + numordre & ":DV" & 99 +
nbressais & "").Select
Selection.Copy
.Range("B" & 99 + numordre & "").Select
ActiveSheet.Paste
.Range("B" & 99 + nbressais & ":DV" & 99 +
nbressais & "").Select
Selection.ClearContents
For i = 1 To nbressais - numordre
Cells(98 + numordre + i, 2) = numordre + i -
1 & " - Colonne n°
" & .Range("DV" & 98 + numordre + i) & " - " & .Range
("DU" & 98 + numordre +
i)
Next i
End If
End With
'Sheets("variables").Visible = 0
End Sub
Bonjour Boby,
Ta Listbox est située où : Feuille de calcul ou Formulaire
Comment as-tu renseigné la propriété "ListFillRange ou "RowSource" de ton
contrôle listbox ?
Est-ce que ton contrôle a plusieurs colonnes ou une seule colonnes ?
Après avoir expliqué ce que tu veux obtenir comme comportement de ta
listbox, publie ici seulement le code de ta
procédure qui se plante !
Salutations!
"bobby ewing" a écrit dans le message de
news:
bonjour à tous,
j'ai toujours un probleme avec ma listbox... (cf message du 05/04/04 17h33
de C.Ruelle). j'ai beau retourner le probleme (et mon code!) dans tous les
sens, rien n'y fait. c'est toujours le meme probleme: une listbox avec une
procedure qui marche tres bien, tant que je ne selectionne pas une ligne
qui
sort du cadre. je me dis que c'est peut etre un probleme de mémoire, mais
je
ne suis pas assez bon ni pour en etre sur, ni pour regler ce probleme...
je m'excuse d'avance pour les spécialistes qui auraient un peu de mal à
comprendre mes explications, mais je suis tout disposé à expliquer les
points obscurs aux personnes de bonne volonté qui voudraient me sortir de
ce
mauvais pas.
je m'excuse aussi de déroger aux regles du forum en repostant une question
déjà posée, mais ca me travaille meme la nuit...
je suis prêt à offrir toute ma reconnaissance eternelle à la personne qui
m'aidera...
un grand merci d'avance...
bobby
Bonjour Boby,
Essaie ceci :
Dans cette procédure, j'ai seulement modifié cette ligne de commande :
Range("maliste")(a + 1).Delete (xlUp)
Par :
Ceci effacera tout la ligne dans ta feuille de données qui correspond à
ton numéro de ton combobox
de la colonne B à la colonne DV
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
'---------------------------------
Private Sub CommandButton1_Click()
Dim A as Long
For a = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(a) = True Then
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
LaListe = Range("Maliste")
Me.ListBox1.List = LaListe
End If
Next
End Sub
'---------------------------------
Salutations!
"bobby ewing" a écrit dans le message de
news:
salut michel,
je te remercie bcp pour tes precieux conseils. j'ai encore un petit souci
malgré tout...
j'arrive a utiliser la procédure que tu m'as postée, elle est meme
vachement
bien... mais, parce que il faut toujours un mais, elle ne fonctionne que
sur
une seule colonne. logique me diras tu puisque je t'ai dit que je n'avais
qu'une colonne a gerer. ce n'est pas totalement vrai, malheureusement...
ma list box n'a qu'une seule colonne, c'est vrai, et elle prend sa source
(si je peux dire comme ca) dans une seule colonne. mais a coté de cette
colonne sont stockées une bonne centaine de valeurs.
je m'explique...
il est question de tester des ouvrages de fondation (batiments et travaux
publics). pour un ouvrage, on obtient une centaine de valeurs à exploiter
ensuite sous la forme d'une courbe. donc dans la colonne B, je stocke le
numéro de l'ouvrage testé, et de la colonne C à la colonne DV les valeurs
acquises au cours de l'essai. ma list box ne reprend donc que le numéro de
l'ouvrage testé. mais je ne peux pas remonter seulement le numéro des
ouvrages si les valeurs correspondant si les valeurs de l'essai ne les
suivent pas... j'ai essayé de bidouiller ton code pour qu'il me fasse ca,
mais j'y arrive pas, et donc je me retourne encore une fois vers toi, ou
une
bonne ame qui arriverait à me suivre dans mes explications...
voili voilou, je vous souhaite à tous une bonne soirée, et vous remercie
encore,
bobby
Bonjour Boby,
Essaie ceci :
Dans cette procédure, j'ai seulement modifié cette ligne de commande :
Range("maliste")(a + 1).Delete (xlUp)
Par :
Ceci effacera tout la ligne dans ta feuille de données qui correspond à
ton numéro de ton combobox
de la colonne B à la colonne DV
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
'---------------------------------
Private Sub CommandButton1_Click()
Dim A as Long
For a = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(a) = True Then
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
LaListe = Range("Maliste")
Me.ListBox1.List = LaListe
End If
Next
End Sub
'---------------------------------
Salutations!
"bobby ewing" <nospam.chrue79@hotmail.com> a écrit dans le message de
news:eJl3cQYHEHA.3880@tk2msftngp13.phx.gbl...
salut michel,
je te remercie bcp pour tes precieux conseils. j'ai encore un petit souci
malgré tout...
j'arrive a utiliser la procédure que tu m'as postée, elle est meme
vachement
bien... mais, parce que il faut toujours un mais, elle ne fonctionne que
sur
une seule colonne. logique me diras tu puisque je t'ai dit que je n'avais
qu'une colonne a gerer. ce n'est pas totalement vrai, malheureusement...
ma list box n'a qu'une seule colonne, c'est vrai, et elle prend sa source
(si je peux dire comme ca) dans une seule colonne. mais a coté de cette
colonne sont stockées une bonne centaine de valeurs.
je m'explique...
il est question de tester des ouvrages de fondation (batiments et travaux
publics). pour un ouvrage, on obtient une centaine de valeurs à exploiter
ensuite sous la forme d'une courbe. donc dans la colonne B, je stocke le
numéro de l'ouvrage testé, et de la colonne C à la colonne DV les valeurs
acquises au cours de l'essai. ma list box ne reprend donc que le numéro de
l'ouvrage testé. mais je ne peux pas remonter seulement le numéro des
ouvrages si les valeurs correspondant si les valeurs de l'essai ne les
suivent pas... j'ai essayé de bidouiller ton code pour qu'il me fasse ca,
mais j'y arrive pas, et donc je me retourne encore une fois vers toi, ou
une
bonne ame qui arriverait à me suivre dans mes explications...
voili voilou, je vous souhaite à tous une bonne soirée, et vous remercie
encore,
bobby
Bonjour Boby,
Essaie ceci :
Dans cette procédure, j'ai seulement modifié cette ligne de commande :
Range("maliste")(a + 1).Delete (xlUp)
Par :
Ceci effacera tout la ligne dans ta feuille de données qui correspond à
ton numéro de ton combobox
de la colonne B à la colonne DV
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
'---------------------------------
Private Sub CommandButton1_Click()
Dim A as Long
For a = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(a) = True Then
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
LaListe = Range("Maliste")
Me.ListBox1.List = LaListe
End If
Next
End Sub
'---------------------------------
Salutations!
"bobby ewing" a écrit dans le message de
news:
salut michel,
je te remercie bcp pour tes precieux conseils. j'ai encore un petit souci
malgré tout...
j'arrive a utiliser la procédure que tu m'as postée, elle est meme
vachement
bien... mais, parce que il faut toujours un mais, elle ne fonctionne que
sur
une seule colonne. logique me diras tu puisque je t'ai dit que je n'avais
qu'une colonne a gerer. ce n'est pas totalement vrai, malheureusement...
ma list box n'a qu'une seule colonne, c'est vrai, et elle prend sa source
(si je peux dire comme ca) dans une seule colonne. mais a coté de cette
colonne sont stockées une bonne centaine de valeurs.
je m'explique...
il est question de tester des ouvrages de fondation (batiments et travaux
publics). pour un ouvrage, on obtient une centaine de valeurs à exploiter
ensuite sous la forme d'une courbe. donc dans la colonne B, je stocke le
numéro de l'ouvrage testé, et de la colonne C à la colonne DV les valeurs
acquises au cours de l'essai. ma list box ne reprend donc que le numéro de
l'ouvrage testé. mais je ne peux pas remonter seulement le numéro des
ouvrages si les valeurs correspondant si les valeurs de l'essai ne les
suivent pas... j'ai essayé de bidouiller ton code pour qu'il me fasse ca,
mais j'y arrive pas, et donc je me retourne encore une fois vers toi, ou
une
bonne ame qui arriverait à me suivre dans mes explications...
voili voilou, je vous souhaite à tous une bonne soirée, et vous remercie
encore,
bobby
Bonjour Boby,
Essaie ceci :
Dans cette procédure, j'ai seulement modifié cette ligne de commande :
Range("maliste")(a + 1).Delete (xlUp)
Par :
Ceci effacera tout la ligne dans ta feuille de données qui correspond à
ton numéro de ton combobox
de la colonne B à la colonne DV
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
'---------------------------------
Private Sub CommandButton1_Click()
Dim A as Long
For a = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(a) = True Then
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
LaListe = Range("Maliste")
Me.ListBox1.List = LaListe
End If
Next
End Sub
'---------------------------------
Salutations!
"bobby ewing" a écrit dans le message de
news:
salut michel,
je te remercie bcp pour tes precieux conseils. j'ai encore un petit souci
malgré tout...
j'arrive a utiliser la procédure que tu m'as postée, elle est meme
vachement
bien... mais, parce que il faut toujours un mais, elle ne fonctionne que
sur
une seule colonne. logique me diras tu puisque je t'ai dit que je n'avais
qu'une colonne a gerer. ce n'est pas totalement vrai, malheureusement...
ma list box n'a qu'une seule colonne, c'est vrai, et elle prend sa source
(si je peux dire comme ca) dans une seule colonne. mais a coté de cette
colonne sont stockées une bonne centaine de valeurs.
je m'explique...
il est question de tester des ouvrages de fondation (batiments et travaux
publics). pour un ouvrage, on obtient une centaine de valeurs à exploiter
ensuite sous la forme d'une courbe. donc dans la colonne B, je stocke le
numéro de l'ouvrage testé, et de la colonne C à la colonne DV les valeurs
acquises au cours de l'essai. ma list box ne reprend donc que le numéro de
l'ouvrage testé. mais je ne peux pas remonter seulement le numéro des
ouvrages si les valeurs correspondant si les valeurs de l'essai ne les
suivent pas... j'ai essayé de bidouiller ton code pour qu'il me fasse ca,
mais j'y arrive pas, et donc je me retourne encore une fois vers toi, ou
une
bonne ame qui arriverait à me suivre dans mes explications...
voili voilou, je vous souhaite à tous une bonne soirée, et vous remercie
encore,
bobby
Bonjour Boby,
Essaie ceci :
Dans cette procédure, j'ai seulement modifié cette ligne de commande :
Range("maliste")(a + 1).Delete (xlUp)
Par :
Ceci effacera tout la ligne dans ta feuille de données qui correspond à
ton numéro de ton combobox
de la colonne B à la colonne DV
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
'---------------------------------
Private Sub CommandButton1_Click()
Dim A as Long
For a = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(a) = True Then
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
LaListe = Range("Maliste")
Me.ListBox1.List = LaListe
End If
Next
End Sub
'---------------------------------
Salutations!
"bobby ewing" <nospam.chrue79@hotmail.com> a écrit dans le message de
news:eJl3cQYHEHA.3880@tk2msftngp13.phx.gbl...
salut michel,
je te remercie bcp pour tes precieux conseils. j'ai encore un petit souci
malgré tout...
j'arrive a utiliser la procédure que tu m'as postée, elle est meme
vachement
bien... mais, parce que il faut toujours un mais, elle ne fonctionne que
sur
une seule colonne. logique me diras tu puisque je t'ai dit que je n'avais
qu'une colonne a gerer. ce n'est pas totalement vrai, malheureusement...
ma list box n'a qu'une seule colonne, c'est vrai, et elle prend sa source
(si je peux dire comme ca) dans une seule colonne. mais a coté de cette
colonne sont stockées une bonne centaine de valeurs.
je m'explique...
il est question de tester des ouvrages de fondation (batiments et travaux
publics). pour un ouvrage, on obtient une centaine de valeurs à exploiter
ensuite sous la forme d'une courbe. donc dans la colonne B, je stocke le
numéro de l'ouvrage testé, et de la colonne C à la colonne DV les valeurs
acquises au cours de l'essai. ma list box ne reprend donc que le numéro de
l'ouvrage testé. mais je ne peux pas remonter seulement le numéro des
ouvrages si les valeurs correspondant si les valeurs de l'essai ne les
suivent pas... j'ai essayé de bidouiller ton code pour qu'il me fasse ca,
mais j'y arrive pas, et donc je me retourne encore une fois vers toi, ou
une
bonne ame qui arriverait à me suivre dans mes explications...
voili voilou, je vous souhaite à tous une bonne soirée, et vous remercie
encore,
bobby
Bonjour Boby,
Essaie ceci :
Dans cette procédure, j'ai seulement modifié cette ligne de commande :
Range("maliste")(a + 1).Delete (xlUp)
Par :
Ceci effacera tout la ligne dans ta feuille de données qui correspond à
ton numéro de ton combobox
de la colonne B à la colonne DV
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
'---------------------------------
Private Sub CommandButton1_Click()
Dim A as Long
For a = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(a) = True Then
Range("maliste")(a + 1).Resize(, 125)Delete (xlUp)
LaListe = Range("Maliste")
Me.ListBox1.List = LaListe
End If
Next
End Sub
'---------------------------------
Salutations!
"bobby ewing" a écrit dans le message de
news:
salut michel,
je te remercie bcp pour tes precieux conseils. j'ai encore un petit souci
malgré tout...
j'arrive a utiliser la procédure que tu m'as postée, elle est meme
vachement
bien... mais, parce que il faut toujours un mais, elle ne fonctionne que
sur
une seule colonne. logique me diras tu puisque je t'ai dit que je n'avais
qu'une colonne a gerer. ce n'est pas totalement vrai, malheureusement...
ma list box n'a qu'une seule colonne, c'est vrai, et elle prend sa source
(si je peux dire comme ca) dans une seule colonne. mais a coté de cette
colonne sont stockées une bonne centaine de valeurs.
je m'explique...
il est question de tester des ouvrages de fondation (batiments et travaux
publics). pour un ouvrage, on obtient une centaine de valeurs à exploiter
ensuite sous la forme d'une courbe. donc dans la colonne B, je stocke le
numéro de l'ouvrage testé, et de la colonne C à la colonne DV les valeurs
acquises au cours de l'essai. ma list box ne reprend donc que le numéro de
l'ouvrage testé. mais je ne peux pas remonter seulement le numéro des
ouvrages si les valeurs correspondant si les valeurs de l'essai ne les
suivent pas... j'ai essayé de bidouiller ton code pour qu'il me fasse ca,
mais j'y arrive pas, et donc je me retourne encore une fois vers toi, ou
une
bonne ame qui arriverait à me suivre dans mes explications...
voili voilou, je vous souhaite à tous une bonne soirée, et vous remercie
encore,
bobby