Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Pb de structure if-then et les autres

Pb de structure if-then et les autres

1 réponse
Avatar
Ticker
Bonsoir à tous
Je fais dans le problème facile en ce moment
En voici un, j'ai fais une structure pour chercher un mot d'une listbox dans
4 cellules d'une feuille et ainsi, supprimer le mot de la listbox et de la
feuille.
Et je sais pas pourquoi, cet aprés midi , ça fonctionnait très bien, j'ai
voulu faire des modifs et j'ai du faire une erreur, mais je vois pas
laquelle car lorsque j'arrive à la ligne *** il fait le test et même si
c'est "true", il ne fait pas la partie après "then" mais continue après
"else" ?! Alors, j'ai essayer pleins de choses, mettre tout en ligne,
enlever le "Else" (j'ai fais comme ça cet après midi, c'était bon), mais
rien. Quel
est la solution que je n'est pas essayer ?
:o/
Merci d'avance, en attendant, je vais continuer à chercher :o(
_____________________________________________________
Private Sub CommandButton9_Click()
'Bouton -

If Label1.Caption = "Français -> Chinois" Then Colonne = 2 Else: Colonne = 7


If ListBox1.ListCount = 1 Then MsgBox ("attention"): Exit Sub
For i = 0 To ListBox1.ListCount


If TextBox1.Text = ListBox1.List(i) Then

For j = 2 To 5
*** If Cells(LigneU2, Colonne) = ListBox1.List(i) Then
Range(Cells(LigneU2, Colonne), Cells(LigneU2, Colonne)).Clear:
ListBox1.RemoveItem (ListBox1.ListIndex): Exit Sub Else: Colonne = Colonne +
1

Next j
End If
Next i

MsgBox ("Mot inexistant dans le dictionnaire, pas de suppression possible"):
Beep: Exit Sub

End Sub
________________________________________________________
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Ticker
Après quelques heures de recherche, je me suis aperçu d'une erreur dans
l'utilsation des propriètes de listbox, maintenant, c'est bon :o)
1 problème de moins, un :)


"Ticker" a écrit dans le message de news:
O#Xjf$
Bonsoir à tous
Je fais dans le problème facile en ce moment
En voici un, j'ai fais une structure pour chercher un mot d'une listbox
dans

4 cellules d'une feuille et ainsi, supprimer le mot de la listbox et de la
feuille.
Et je sais pas pourquoi, cet aprés midi , ça fonctionnait très bien, j'ai
voulu faire des modifs et j'ai du faire une erreur, mais je vois pas
laquelle car lorsque j'arrive à la ligne *** il fait le test et même si
c'est "true", il ne fait pas la partie après "then" mais continue après
"else" ?! Alors, j'ai essayer pleins de choses, mettre tout en ligne,
enlever le "Else" (j'ai fais comme ça cet après midi, c'était bon), mais
rien. Quel
est la solution que je n'est pas essayer ?
:o/
Merci d'avance, en attendant, je vais continuer à chercher :o(
_____________________________________________________
Private Sub CommandButton9_Click()
'Bouton -

If Label1.Caption = "Français -> Chinois" Then Colonne = 2 Else: Colonne 7


If ListBox1.ListCount = 1 Then MsgBox ("attention"): Exit Sub
For i = 0 To ListBox1.ListCount


If TextBox1.Text = ListBox1.List(i) Then

For j = 2 To 5
*** If Cells(LigneU2, Colonne) = ListBox1.List(i) Then
Range(Cells(LigneU2, Colonne), Cells(LigneU2, Colonne)).Clear:
ListBox1.RemoveItem (ListBox1.ListIndex): Exit Sub Else: Colonne = Colonne
+

1

Next j
End If
Next i

MsgBox ("Mot inexistant dans le dictionnaire, pas de suppression
possible"):

Beep: Exit Sub

End Sub
________________________________________________________